Per Userform angezeigte Sheets auswählen können
14.05.2018 11:22:13
Franz
meine Frage bezieht sich auf eine von mir gestellte Frage vor 2 Wochen:
https://www.herber.de/cgi-bin/callthread.pl?index=1622790#1622790
Ich kann sie nur leider nicht mehr bearbeiten.
Ich habe ein Userform erstellt mit dessen Hilfe ich ein Sheet auswählen kann.
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Visible 2 Then ListBox1.AddItem Sheets(i).Name
Next i
End Sub
Private Sub ListBox1_Click()
With Sheets(ListBox1.Text)
.Visible = True
.Select
End With
Unload Me
End Sub
Dieses wird auch wie folgt aufgerufen:
Sub Workbook_Open
UserForm1.Show
End Sub
Nun würde ich gerne die Sheets bündeln oder zusammenfassen, sodass ich mit der Listbox eigentlich nur noch die Sprache auswählen kann (soll heißen: alle englischen Sheets unter einem Namen gespeichert, alle deutschen unter dem anderen). Der VBA Code ist jeweils gleich, also sollte aufgrund der Wartbarkeit keine 2 Workbooks geöffnet werden. Mit einem Wechsel der Sprache mithilfe der Buttons (einfache WENN Bedingung) ist mir auch nicht wirklich geholfen, da es sich um variable & lange Texte dreht).
Gibt es eine Möglichkeit die Sheets zu bündeln oder wenigstens mehr als ein Sheet zur Eröffnung auszuwählen?
VG