Wie erhalte ich die Liste mit den Blattnamen von MS Excel?

Question

Ich habe eine Excel-Datei mit vielen Blättern. Wie kann ich eine Liste mit den Blattnamen von MS-Excel erhalten?

(PS: Das Office ist eine Mac-Version.)

Answer 1

Versuchen Sie es mit dem folgenden Makro:

Sub ListWorkSheetNames()

For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
Next i

End Sub

Für mich - funktioniert ganz gut.

(Quelle)

Answer 2

So erhalten Sie dasselbe wie oben, jedoch zusätzlich mit Hyperlinks, die Sie zum Blatt führen:

Sub ListWorkSheetNames()

For i = 1 To Sheets.Count
Range("A" & i) = "=HYPERLINK('" + Sheets(i).Name + "'!A1, """ + Sheets(i).Name + " "")"
Next i

End Sub