kennt jemand eine schnelle Lösung, wie ich die Namen der Tabellenblätter aus einem Woorkbook auslesen kann?
Danke!
jens
Sub Auslesen()
Dim liIndex As Integer
For liIndex = 1 to ThisWorkbook.Sheets.Count
MsgBox ThisWorkbook.Sheets(liIndex).Name
Next
End Sub
Konnte ich helfen?
Sub Tabellennamen()
Dim vntName As Variant
Dim i As Integer
For i = 1 To Worksheets.Count
vntName = vntName & Chr(10) & Worksheets(i).Name
Next i
MsgBox vntName
End Sub
MfGDie 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