Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink mit Doppelklick erstellen

Hyperlink mit Doppelklick erstellen
10.01.2019 17:45:55
Nils
Hallo zusammen,
ich bin ein VBA-Neuling und habe folgendes Problem.
Ich habe ein Makro, welches mir ein neues Tabellenblatt erstellt. Dabei wird dem neuen Tabellenblatt automatisiert der Name der gerade aktiven Zelle zugewiesen. Das funktioniert soweit ganz ordentlich.
Nun möchte ich mit demselben Makro auch noch, dass derselben aktiven Zelle ein Hyperlink auf das gerade erstellte Tabellenblatt zugewiesen wird. Wenn möglich mit einem Doppelklick. Ist sowas als Makro umsetzbar?
Sub Test()
Dim wsNew As Worksheet
sName = ActiveCell
Set wsNew = Worksheets.Add
With wsNew
.Name = Left(sName, 31)
.Move After:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
' Hier sollte die Erstellung des Hyperlinks folgen'
End Sub
Ich bin euch für jede Hilfe dankbar.
Danke und Gruß
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink mit Doppelklick erstellen
10.01.2019 19:15:47
AlterDresdner
Hallo Nils,
mit
Sub Test()
Dim wsNew As Worksheet, wsOld
Set wsOld = ActiveWindow.ActiveCell
Set wsNew = Worksheets.Add(After:=Sheets(Sheets.Count))
With wsNew
.Name = Left(wsOld.Text, 31)
'.Move After:=Sheets(Sheets.Count)
wsOld.Hyperlinks.Add Anchor:=wsOld, Address:="", SubAddress:="'" & wsNew.Name & "'!A1", _
TextToDisplay:="zu " & wsNew.Name 'oder was auch immer
End With
Set wsNew = Nothing
Set wsOld = Nothing
End Sub

sollte es gehen.
Gruß der AlteDresdner
Anzeige
AW: Hyperlink mit Doppelklick erstellen
16.01.2019 13:06:13
Daniel
Wenn du das Ganze jetzt nicht unter einem Modul erstellst, sondern direkt auf dem Arbeitsblatt, kannst du den Vorgang auch mit Doppelklick starten:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wsNew As Worksheet, wsOld
Set wsOld = ActiveWindow.ActiveCell
Set wsNew = Worksheets.Add(After:=Sheets(Sheets.Count))
With wsNew
.Name = Left(wsOld.Text, 31)
'.Move After:=Sheets(Sheets.Count)
wsOld.Hyperlinks.Add Anchor:=wsOld, Address:="", SubAddress:="'" & wsNew.Name & "'!A1", _
TextToDisplay:="zu " & wsNew.Name 'oder was auch immer
End With
Set wsNew = Nothing
Set wsOld = Nothing
End Sub
Grüße
Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige