Link zusammensetzen mit ver.Zellen
18.01.2022 11:30:29
sandra
ich habe nachfolgendes Problem.
Ich setze einen Hyperlink aus 3 Zellbezügen zusammen.
Der erste Bezug ist aus Zelle O2.
Der zweite Bezug aus einem verbundenen Zellbereich der Spalte B
Der dritte Bezug aus der Spalte C.
Der erste Link der erzeugt wird ist auch ok.
Das Problem fängt ab dem nächsten Link an, die nachfolgenden Links werden erstellt, funktionieren jedoch nicht, da die Zusammensetzung des Links aus dem zweiten Bezug aus der Spalte B (verbundenen Zelle) keine Werte übernimmt.
Ich weiß das Verbundene Zellen öfter Probleme machen im VBA, ich kann leider aber nicht ohne.
Hätte jemand vielleicht eine Lösung für mich?
Private Sub Worksheet_Activate()
Dim lngLastRow As Long
Dim lngCounter As Long
Application.ScreenUpdating = False
lngLastRow = Rows.Count
If Cells(Rows.Count, 3).Value = "" Then lngLastRow = Cells(Rows.Count, 3).End(xlUp).Row
For lngCounter = 3 To lngLastRow
ActiveSheet.Hyperlinks.Add Anchor:=Cells(lngCounter, 6), Address:=Range("O2").Value & _
"\" & Range("B" & lngCounter).Value & _
"\" & Range("C" & lngCounter).Value
Next lngCounter
Application.ScreenUpdating = True
End Sub
Anzeige