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
MfG