Hyperlink erstellen

[luna101]

Halloihr fleissigen Helfer
Ich möchte ein Hyperlink In Zelle "A7"  erstellen
 '=HYPERLINK(WENN(Tabelle1!B1="";"";Tabelle1!$AH$1&Tabelle1!B1), "Porträt anzeigen")

In Zelle "AH1" steht die Internetadresse: 'https://www.portraitarchiv.ch/portrait/show/
In Zelle "B7" die Portraitnummer: 25213
Ich schaffe es aber nicht bitte um Hilfe.

in der Beilage ist ein anderer Versuch. der zeigt mir leider das falsche Portrait an.
Mit dankbaren Grüssen
Martin
  Link zu Portraitarchiv Test 111111111.xlsm (Größe: 1,94 MB / Downloads: 2)

[Egon12]

Hallo Martin,

entsprechend deiner Beispieldatei so:

Code:

Sub PortraitsLinksSetzen()
    Dim i&
    With Tabelle1
        For i = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 1) <> "" And .Cells(i, 2) <> "" Then
                Tabelle1.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:=.Cells(i, 1) & .Cells(i, 2), TextToDisplay:=.Cells(i, 1) & .Cells(i, 2)
            End If
        Next i
    End With
End Sub

Gruß Uwe

[luna101]

Danke Uwe
Wie immer
Herzlichen Dank
Guss Martin

[Egon12]

Gerne!

Gruß Uwe