ich möchte gerne ein Makro zum einfügen eines Dateipfades (in Form eines Hyperlinks) schreiben. Mein aktuelles Problem ist das schneiden des Strings.
Wie kann ich den hinteren Teil eines Strings bis zu einem gewissen Zeichen ( / ) wegschneiden lassen?
Bsp.:
Ist C:\Test\Test.xls
Soll C:\Test\
Oder gibt es eine Möglichkeit nur den Pfad auswählen zu lassen, ohne Datei? Dann würde das bearbeiten des Strings wegfallen.
Aktuell sieht das ganze so aus:
Sub HyperHyper()
ChDir "\"
ChDrive "c:\"
DATEINAME = Application.GetOpenFilename
If DATEINAME = False Then Exit Sub
MsgBox "Dateiname:" & vbNewLine & DATEINAME
geschnitten = VBA.Left(Text, VBA.InStr(1, DATEINAME, "*") - 1)
MsgBox "Dateiname:" & vbNewLine & geschnitten
End Sub
Ich hoffe ihr könnt mir helfen..Danke im Voraus!
Gruß,
Flo