Namen aller Tabellenblätter in ein Array schreiben
Martin
gibt es eine Möglichkeit ohne eine Schleife die Namen aller Tabellenblätter in ein Array zu schreiben? Ich habe es so probiert, aber ohne Erfolg:
Sub Versuch()
Dim ArrTabellen As Variant
ArrTabellen = Array(ActiveWorkbook.Worksheets)
End Sub
Sub Loesung()
Dim i As Integer
Dim ArrTabellen As Variant
ReDim ArrTabellen(0 To ActiveWorkbook.Sheets.Count - 1)
For i = 1 To ActiveWorkbook.Sheets.Count
ArrTabellen(i - 1) = Sheets(i).Name
Next i
End Sub
Viele Grüße
Martin