
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.)
Antwort1
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)
Antwort2
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