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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen