Textmarke oder Anker setzen
07.04.2005 15:21:44
Sirhendrik
Ich möchte gerne mein Arbeitsblatt als .Html veröffentlichen und mitten auf dem Arbeitsblatt eine Textmarke(=Anker) setzten, die bei der Konvertierung zu html nicht verloren geht.
Ein Artikel im Forumsarchiv rät eine Zelle zu benennen und die dann mit dem Hyperlink anzuspringen. Der Zellname geht aber anscheinend kaputt wenn man das Arbeitsblatt als .html veröffentlicht und das anspringen funktioniert nicht.
Ich generiere die Html per VBA, also VBA-Vorschläge sind am besten.
Danke!
Sirhendrik
hier mein Makro:
Sub AlsWebsiteVeröffentlichen()
' Veröff2 Makro
'Dateinamen des aktuellen Blatttes zurückgeben UNWICHTIG!
Dim datei, datumxls, datum As String
Dim pfad As String
Dim offenedatei As Workbook
pfad = ActiveWorkbook.Path
MsgBox pfad
fp = Right(pfad, 3)
MsgBox fp
'HIER GEHT`S LOS:
With ActiveWorkbook.PublishObjects("FP5 Monatsübersicht_27628")
.HtmlType = xlHtmlStatic
.Filename = _
pfad & "\HTML-Ausgabe\" & fp & " Monatsübersicht.html"
.Publish (False)
.AutoRepublish = False
End With
ChDir (pfad & "\HTML-Ausgabe")
End Sub