Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Hyperlink zu letztem Tabellenblatt erstellen
28.11.2018 09:23:53 PingPongMan
Solved
28.11.2018 09:38:24 PingPongMan
NotSolved
28.11.2018 13:03:16 Gast36754
NotSolved
28.11.2018 16:15:48 PingPongMan
NotSolved
28.11.2018 17:11:44 Gast36754
NotSolved
28.11.2018 17:16:06 Gast36754
NotSolved
05.12.2018 13:41:41 Gast49204
NotSolved

Ansicht des Beitrags:
Von:
PingPongMan
Datum:
28.11.2018 09:23:53
Views:
54
Rating: Antwort:
 Nein
Thema:
VBA: Hyperlink zu letztem Tabellenblatt erstellen
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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Hyperlink zu letztem Tabellenblatt erstellen
28.11.2018 09:23:53 PingPongMan
Solved
28.11.2018 09:38:24 PingPongMan
NotSolved
28.11.2018 13:03:16 Gast36754
NotSolved
28.11.2018 16:15:48 PingPongMan
NotSolved
28.11.2018 17:11:44 Gast36754
NotSolved
28.11.2018 17:16:06 Gast36754
NotSolved
05.12.2018 13:41:41 Gast49204
NotSolved