VBA für autom. Verlinkung zu pdf
28.02.2023 12:17:08
Dirk
benötige mal hilfe für ein entsprechendes VBA mit der der folgendes nachträglich ausführen kann.
Hab eine Liste mit ca. 2000 Zellen in Spalte B durchnummeriert und in den Spalten dahinter Infos.
Zu diesen 2000 Infos liegen entsprechende Dokumente mit der dazugehörigen Zahl + Bestellnummer in einem Ordner als pdf ab.
Würde jetzt gerne die Zahlen mit einem Makro versehen damit jede Zahl automatisch zu dem pdf mit einem Link verknüpft wird.
Heißt auf den Ordner zugreifen die gleiche Zahl von der Zelle in Spalte B am Anfang der pdf finden und verknüpfen.
Hab da mal was gefunden was evtl. hilft ? Aber da hört es bei mir auch schon auf.
Wäre super jemand hat eine Idee
Option Explicit
Sub Makro1()
Dim Zei As Long, Von As Long
Const Pfad As String = "Windows Pfad"
With ActiveSheet
Von = Application.Match("URL", .Columns(2), 0) + 1
For Zei = Von To .Cells(Rows.Count, 2).End(xlUp).Row
.Hyperlinks.Add Anchor:=.Cells(Zei, 2), Address:= _
Pfad & .Cells(Zei, 2).Value, TextToDisplay:=.Cells(Zei, 2).Value
Next Zei
End With
End Sub