Hyperlink
Thomas
ich möchte per VBA Hyperlinks in Spalte A des ersten Tabellenblatts setzen.
Dazu nehme ich den den Eintrag aus Spalte B und vergleiche ihn mit den Einträgen aus Tabellenblatt2 (Spalte B). Wird der identische Eintrag gefunden, soll der Wert aus Spalte A (Tabellenblatt2) in Spalte A Tabellblatt1 übernommen werden und hier der Hyperlink gesetzt werden. Soweit klappt es.
Ich habe das Problem, dass ich die Sprungadresse nicht variabel gestalten kann. Es funktioniert nur, wenn ich einen festen Zellbezug unter "SubAddress:=" eingebe.
Sub Hyperl()
Dim T1 As String
Dim i As Integer
Dim ii As Integer
Sheets(1).Activate
For i = 1 To 2
If Cells(i, 2) = "" Then GoTo weiter
T1 = Cells(i, 2)
For ii = 1 To 10
If Sheets(2).Cells(ii, 2) = T1 Then
T1 = Sheets(2).Cells(ii, 1)
Cells(i, 1) = Sheets(2).Cells(ii, 1)
With ActiveSheet
.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
"Tabelle2!A3", TextToDisplay:=T1
End With
End If
Next ii
weiter:
Next i
End Sub
Gruß
Thomas
Anzeige