Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm aufruf

Forumthread: UserForm aufruf

UserForm aufruf
Ulf
Hallo Excel- Spezialisten,
ich möchte ein universelles UserForm aufrufen.
Dieses soll "UserForm_dateiname_blatt" heißen.
Danke Ulf
hier etwas Code
Private Sub UserForm_Initialize()
Dim Name_Form As String
'Dim Form_2 As UserForm  bringt Fehler deshalb siehe nächste Zeile
Dim Form_2
Name_Form = ThisWorkbook.Name
MsgBox Name_Form  ' "Mappe1.xlsm" wird ausgegeben
Name_Form = Left(Name_Form, InStr(Name_Form, ".") - 1)
MsgBox Name_Form  ' "Mappe1" wird ausgegeben
Name_Form = Name_Form & "_" & ActiveSheet.Name
MsgBox Name_Form  ' "Mappe1_Tabelle1" wird ausgegeben
Name_Form = "UserForm_" & Name_Form
MsgBox Name_Form  ' "UserForm_Mappe1_Tabelle1" wird ausgegeben
Set Form_2 = UserForm_Mappe1_Tabelle1  ' so klappt es zum Test
'so will ich es nutzen
'Set Form_2 = Name_Form
Form_2.Show
End Sub

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: UserForm aufruf
30.09.2010 10:46:47
Nepumuk
Hallo,
so:
UserForms.Add(Name_Form).Show

Die Objektvariable benötigst du nicht.
Gruß
Nepumuk
Anzeige
AW: UserForm aufruf
Ulf
Danke Nepumuk,
jetzt kommt Laufzeitfehler 124,
mein Code sieht jetzt so aus:
Private Sub UserForm_Initialize()
Dim Name_Form As String
'Dim Form_2 As UserForm  bringt Fehler deshalb siehe nächste Zeile
Dim Form_2
Name_Form = ThisWorkbook.Name
Name_Form = Left(Name_Form, InStr(Name_Form, ".") - 1)
Name_Form = Name_Form & "_" & ActiveSheet.Name
Name_Form = "UserForm_" & Name_Form
'Set Form_2 = UserForm_Mappe1_Tabelle1  ' so klappt es zum Test
'Set Form_2 = Name_Form
'Form_2.Show
UserForms.Add(Name_Form).Show
End Sub

Anzeige
existiert die UF? owT
30.09.2010 12:44:55
Rudi
AW: existiert die UF? owT
Ulf
Hi Rudi
die UF: "UserForm_Mappe1_Tabelle1 " existiert
Was heißt owT
Ulf
lad die Mappe hoch.
30.09.2010 13:25:29
Rudi
Hallo,
owT=ohne weiteren Text
Gruß
Rudi
Anzeige
AW: lad die Mappe hoch.
Ulf
beim Hochladen meckert er, Zugangsdaten seien nicht korrekt,
sind aber ja die, wie hier auch
AW: lad die Mappe hoch.
30.09.2010 14:11:11
Rudi
Hallo,
keine Umlaute, Leerzeichen, Sonderzeichen im Dateinamen und Pfad nicht zu tief.
Gruß
Rudi
C:\Mappe1.xlsm, owT
Ulf
?
Anzeige
AW: C:\Mappe1.xlsm, owT
30.09.2010 15:09:46
Rudi
Hallo,
beim Einloggen vertippt?
Bei .xlsm bin ich raus.
Gruß
Rudi
AW: UserForm aufruf
Ulf
es ist nicht fehler 124 sondern 424
Danke Nepumuk
Ulf
es hat etwas gedauert,
aber es klappt jetzt
Danke
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige