Verwende diesen Code um einen automatischen Link zu erstellen. Habe diesen zusammengestoppelt. Der Code geht auf des Datum. die PDF Datei hat ebenfalls das gleich Datum. Nur: Wie kann ich damit eine .pdf Datei öffnen ?
Danke
chris
Sub hyper_hyper()
Dim Zelle As Range
Dim Loletzte As Long
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile Spalte 1
Set rngSpalte = Range("A2:A" & Loletzte) 'anpassen!
For Each Zelle In rngSpalte
If Zelle = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value
Next
End Sub