TextToDisplay Datum als Text
07.12.2012 08:23:54
Andreas
Ich hab eine Excel-Datei mit 12 Tabellenblättern, für jeden Monat eines. Die Tabellenblätter müssen nach Monat und Jahr benannt sein: "Januar 2012" usw.
Ich habe ein Übersichtsblatt erstellt, das automatisch Hyperlinks für jedes Blatt erzeugt und bestimmte Daten aus jedem Blatt aktuell auflistet.
Den entsprechenden Code hab ich hier schon gefunden.
Auszug:
For Each Blatt In Sheets
ActiveSheet.Hyperlinks.Add Anchor:=Cells(zeile, 1), Address:="", SubAddress:="'" & _
Blatt.Name & "'!A1", TextToDisplay:=Blatt.Name
zeile = zeile + 1
Next Blatt
usw.
Das Problem ist jetzt, dass Excel den Tabellenblattnamen als Datum interpretiert und in die entsprechende Zahl umwandelt. Gibt es einen Parameter für "TextToDisplay:=Blatt.Name", damit der Tabellenblattname als Text interpretiert wird, oder hat jemand noch eine andere Lösung?
Danke für eure Antworten
Gruß
Andreas