Hallo zusammen,
ich möchte einen Link in Abhängigkeit von einem Zelleintrag setzen.
Mit dem nachfolgenden Code erhalte ich allerdings die Fehlermeldung, dass der Bezug ungültig ist. Wie muss ich es bei SubAddress richtig anstellen?
Zähler = 0
For Each Wks In Worksheets
Zähler = Zähler + 1
Wks.Activate
If Right(Wks.Name, 4) = "10er" Then
TxtBlatt = Wks.Name
Range("I38") = Wks.Name
Tabelle2.Range("M1").Offset(Zähler, 0) = Wks.Name
Tabelle2.Range("M1").Offset(Zähler, 0).Hyperlinks.Add Anchor:=Tabelle2.Range("M1").Offset(Zähler, 0), Address:="", _
SubAddress:="'TxtBlatt'!A1", TextToDisplay:=Wks.Name
End If
Next Wks
Gruß
Siegfried