Gruppe
Dialog
Problem
Wie kann ich über ein sich in einem Tabellenblatt befindenden DropDown-Feld ein Arbeitsblatt auswählen?
ClassModule: Tabelle2
Private Sub cmdNewSheets_Click()
Dim iSheet As Integer
ComboBox1.Clear
For iSheet = 1 To 12
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(1, iSheet, 1), "mmmm")
ComboBox1.AddItem ActiveSheet.Name
Next iSheet
ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Worksheets(ComboBox1.Value).Select
End Sub