Hallo liebes Forum,
Ich habe folgendes Problem:
Als Teil eines größeren Macros versuche ich gerade einen Code einzubauen, der in der ausgewählten Zelle einen Hyperlink zum letzten Sheet der selben Arbeitsmappe erstellt. Der Link soll nach dem Text in der ausgewählten Zelle benannt werden.
Bis jetzt sieht mein Code so aus:
[Code]
Sub CreateHyperlinkg()
Range("D43").Select
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ThisWorkbook.Sheets.Count & "!A1", TextToDisplay:=Range("D43").Value
Range("D43").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
[/Code]
Dadurch entsteht zwar ein Link an der richtigen Stelle mit dem richtigen Namen, er führt jedoch ins leere bzw. zeigt die Fehlermeldung: "Bezug ist ungültig".
Wenn mir da jemand weiterhelfen könnte, wäre ich wirklich sehr dankbar, ich beiß mir jetzt schon länger die Zähne dran aus.
Vielen Dank und Liebe Grüße!
|