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