Guten Tag, bräuchte mal wieder eure Hilfe und zwar möchte ich meine Hyperlink Adresse kürzen zB. von "C:\Users\blabla\Documents\blabla2019\erhalten 2019\Arme\RG Arme Nr AR_2019_732 14_05_19.pdf" zu "Arme\RG Arme Nr AR_2019_732 14_05_19.pdf" kürzen, habe ein makro gefunden
Sub Makro2()
Dim TB As Worksheet, HL
Set TB = Sheets("Tabelle1")
For Each HL In TB.Hyperlinks
If Dir(HL.TextToDisplay) <> "" Then 'Datei existiert
HL.TextToDisplay = Dir(HL.TextToDisplay) 'Namen extrahieren
End If
Next
End Sub
zeigt mir aber nur "RG Arme Nr AR_2019_732 14_05_19.pdf" möchte aber noch den Namen vor "RG" und zwar "Arme\RG Arme Nr AR_2019_732 14_05_19.pdf" der name vor "RG" ändert sich dauernd. Besten Dank.