Hyperlink aufführen
05.06.2020 16:04:38
Peter
Ich hatte für dieses Thema bereits einen Chat angefragt, aber irgendetwas habe ich falsch gemacht. Ich bekommen keine Antworten (Häkchen gesetzt) und kann auf eine Antwort keine Rückmeldung geben. Somit versuche ich es erneut mit einem neuen Chat.
Ich habe unterstehendes Script, welches Hyperlinks gemäß 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 wird?
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
--------------------------------------------------------------------------------------------------------
Folgend die Lösung von Martin (mit Fehlermeldung) und meine Antwort dazu:
Hallo Peter,
so sollte das gehen:
Sub Hyperlink()
With Range("C2")
ActiveSheet.Hyperlinks.Add .Cells, "http://Server-Adresse/" & .Value
ThisWorkbook.FollowHyperlink Address:=.Cells, NewWindow:=True
End With
End Sub
Viele Grüsse
Martin
Hallo Martin
Leider kann ich Dir nicht auf "normalen" weg Antworten, mein Beitrag ist bereits zu.
Dein Vorschlag funktioniert nicht. Folgender Fehler wird angezeigt:
Laufzeitfehler '-2147221021 ((800401e3)'
Ein unerwarteter Fehler ist aufgetreten
Und diese folgende Codezeile wird gelb markiert:
ThisWorkbook.FollowHyperlink Address:=.Cells, NewWindow:=True
Hast Du eine Idee an was es liegen könnte?
Danke Dir für Deine Unterstützung
Viele Grüsse
Peter