Hyperlink und Range
05.04.2019 10:18:29
Martin
ich versuche einen Hyperlink in einen bestehenden Code einzubauen.
Folgende Zeile habe ich hinzugefügt:
With Workbooks(Dateiname).Worksheets("Tabelle1")
.Hyperlinks.Add Anchor:=Workbooks(Dateiname).Worksheets("Tabelle1").Cells(Zaehler + 0, 2), _
Address:="", SubAddress:="'Tabelle2'!A1", TextToDisplay:="Tabelle2"
End With
With Worksheets("Tabelle1").Range("A3,K8,K13,K16")
.Font.Italic = True
.Font.Underline = xlUnderlineStyleSingle
End With
Die Fehlermeldung lautet: "Anwendungs- oder objektdefinierter Fehler (1004)"
Vielen Dank und viele Grüße
Martin