Clever-Excel-Forum

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

Hallo,

ersetze .Range durch .Cells wie beim ersten TextToDisplay! Wink

Gruß Uwe

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

Vielen, vielen Dank dafür!

Grüße!

Und verwende bitte Code tags !

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

Spike87

Kuwer

Spike87

snb

snb