Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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
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
?
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige