Hyperlink zu anderer Datei
24.06.2019 12:09:30
chris58
Ich habe diesen Code, der mir einen Hyperlink zu einer PDF Datei generiert. Wie kann ich den Ordnerpfad ändern.....z.B. auf;
C:\Users\chgl\Rechnungen
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:=Ordnerpfad & Zelle.Text & ".pdf"
Next
End Sub
chris
Anzeige