Link

Forumthread: Link
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Link

Link

20.05.2017 17:50:26

Rosenfeld

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Link

20.05.2017 18:13:43

Nepumuk
AW: Link

20.05.2017 18:31:37

Rosenfeld

AW: Link

20.05.2017 18:13:43

Nepumuk

Hallo,
so ok?

Public Sub test()
    Dim Zähler As Long
    Dim Wks As Worksheet
    Zähler = 0
    For Each Wks In Worksheets
        Zähler = Zähler + 1
        With Wks
            If Right(.Name, 4) = "10er" Then
                .Range("I38") = .Name
                Tabelle2.Range("M1").Offset(Zähler, 0) = .Name
                Tabelle2.Range("M1").Offset(Zähler, 0).Hyperlinks.Add Anchor:= _
                    Tabelle2.Range("M1").Offset(Zähler, 0), Address:="", _
                    SubAddress:="'" & .Name & "'!A1", TextToDisplay:=.Name
            End If
        End With
    Next Wks
End Sub

Gruß
Nepumuk

AW: Link

20.05.2017 18:31:37

Rosenfeld

Danke Nepumuk,
so funktioniert es
Gruß
Siegfried

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!