Hyperlink, bestehendes Srcipt anpassen
04.06.2020 10:23:41
Peter
Ich habe untenstehendes Script, welches Hyperlinks gemäss den Nummern in der Spalte C erstellt.
Wie müsste das Script angepasst werden, so dass nur mit der Nummer in Zelle C2 ein Hyperlink erstell, aber dieser Hyperlink dann auch sofort ausgeführt, geöffnet wrid?
Sub Hyperlink()
Application.ScreenUpdating = False
Dim Z
Const strHL_1 As String = _
"http://Server-Adresse/"
For Each Z In Range("C:C").SpecialCells(xlCellTypeConstants, 3)
If Z.Row > 1 Then 'ab 2. Zeile
ActiveSheet.Hyperlinks.Add Z, strHL_1 & Z.Value
End If
Next
Range("a1").Select
Application.ScreenUpdating = True
End Sub
Danke für Eure Unterstützung
Viele Grüsse,
Peter
Anzeige