Hallo zusammen,

ich hoffe ihr könnt mir helfen ein Problem mit einer Excel Tabelle zu lösen.

Ich habe eine Tabelle mit vielen Links die zu einer Datei auf unserem Server zeigen.

Der Anzuzeigende Text ist aktuelle ebenfalls der Hyperlink selbst (also \\Server\unterordner\Rechnung.pdf).

Dieser Text soll aber idealerweise der Firmenname sein. Diesen Namen habe ich in einer weiteren Spalte bereits stehen.

Wie bekomme ich nun nur den anzuzeigenden Text in den Link?

Ich habe mir aus der Suche nach Lösungen zu dem Problem schon ein wenig "erbastelt" was aber leider noch einem Punkt hängt.

Sub ConvertHyperlinks()
  Dim Link As Hyperlink
  For Each Link In Selection.Hyperlinks
     Link.TextToDisplay = Cells(1427, 3)
  Next
End Sub

Hier sieht man dass das Austauschen Prinzipiel funktioniert leider aber eben nur mit einer vorgegeben Zelle.

Da ich aber ca. 1500 Zellen habe müsste ich das in eine Schleife packen, weiß aber nicht wie.

Habt Ihr einen Tipp?

LG

Sven