VBA: Hyperlink + Verketten
26.03.2020 16:56:58
Chris
ich versuche derzeit ohne großartigen Ansatz eine bestehende Hyperlink-Formel in VBA zu integrieren.
Die Formel wie folgt:
=HYPERLINK(WENNFEHLER(VERKETTEN("M:\P\S\SDo\";SVERWEIS('ShDe'!Z(86)S1&"*";'Other'!S1;1;0)); 'ShDe'!Z(86)S1);'ShDe'!Z(86)S1)
Derzeit wird einfach unter "Vari1" der Inhalt der "gültigen" Zellen als Text von VBA ausgegeben.
Ich fände es spitze, wenn es stattdessen als Hyperlink zum direkten Anklicken ausgegeben wird.
Diese Hyperlink-Idee bekomme ich aber leider nur als normale Formel hin, daher oben jene Formel.
Der Auszug der VBA-Funktion hier:
Dim rngCal As Range
Dim Zeile As Long
Dim Vari1$
Dim rngZell As Range
Dim iOffset As Integer
With Worksheets("Cal")
Set rngCal = .Range ("...")
End With
With Worksheets("ShDe")
For Zeile = 2 To .Cells(.Rows.Count, 10).End(xlUp).Row
If ...
Vari1 = .Cells(Zeile, 1).Text 'Vari1 soll quasi die Formel oben in _
variabler Form mit "Zeile" sein
For each rngZell in rngCal.Cells
Set rngZell = rngZell.Range("..").Offset(1, -1)
For iOffset = 0 to 4
If IsEmpty(rngZell.Offset(0, iOffset)) Then
rngZell.Offset(0, iOffset).Value = Vari1
End If
Next
Exit For
Next
End If
Next Zeile
End With
LG,
Chris