Hyperlink mit Doppelklick erstellen
10.01.2019 17:45:55
Nils
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
Danke und Gruß
Anzeige