wie kann ich die tabellenblattnamen automatisch in ein listenfeld einlesen und blatt auswählen. das listenfeld ist in einer userform.
für eure hilfe wäre ich dankbar.
gruss/martin
Private Sub CommandButton1_Click()
If Me.ListBox1.Value <> "" Then Sheets(Me.ListBox1.Value).Activate
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
With Me.ListBox1
For i = 1 To ThisWorkbook.Sheets.Count
.AddItem Sheets(i).Name
Next i
End With
End Sub