Hyperlink Text aus anderer Worksheet

[Spike87]

Hallo!

Dieser Code erstellt mir automatisch Hyperlinks, ich habe aber ein Problem mit der Synatx bei dem zweitem "TextToDisplay".

TextToDisplay:=Worksheets("Tabelle1").Range(2 + count, 16).Value

Hier soll er, statt wie bei dem TextToDisplay dadrüber vom selben Worksheet, den freundlichen Namen aus dem ersten Worksheet entnehmen. Leider akzeptiert er die Zuweisung auf das erste Worksheet so nicht und ich bin mir unsicher, wo genau der Fehler liegt. Ich würde mich sehr über Hilfe freuen.

Code:

'Aus den gefundenen Dokumenten Hyperlinks machen
For count = 0 To LaengeGes
  With Worksheets("WrongVersion")
     If .Cells(8 + count, 4).Value <> 0 Then
        'Hyperlink Dokument
        .Hyperlinks.Add Anchor:=.Cells(8 + count, 5), _
           Address:="www.testurl.de/" & Worksheets("Tabelle1").Cells(2 + count, 19), _
           TextToDisplay:=.Cells(8 + count, 4).Value
        'Hyperlink Ordner
        .Hyperlinks.Add Anchor:=.Cells(8 + count, 6), _
           Address:="www.testurl.de/" & Worksheets("Tabelle1").Cells(2 + count, 15), _
           TextToDisplay:=Worksheets("Tabelle1").Range(2 + count, 16).Value
           
     End If
  End With
Next count

Liebe Grüße

[Kuwer]

Hallo,

ersetze .Range durch .Cells wie beim ersten TextToDisplay!

Gruß Uwe

[Spike87]

Argh, ich hab soviele Sachen durchprobiert und dann das =)

Vielen, vielen Dank dafür!

Grüße!

[snb]

Und verwende bitte Code tags !

[snb]

Code:

Sub M_snb()
  for each it in sheets("WrongVersion").columns(4).specialcells(2)
     If it.row>8 then
        .parent.Hyperlinks.Add it.offset(,1),"www.testurl.de/" & sheets("Tabelle1").Cells(2 + it.row, 19), Target.value
        .parent.Hyperlinks.Add it.offset(,2),"www.testurl.de/" & sheets("Tabelle1").Cells(2 + it.row, 15),sheets("Tabelle1").cells(2 + it.row, 16)

     end if
  Next
End Sub