Aus getsavefile nur Pfad auslesen
Karl
Ich habe ein Makro der das Fenster zum Öffnen (GetOpenFilename)öffnet und den Pfad in die Zelle("A1") schreibt. Nur hab ich ein Problem denn wenn in dem Ordner keine Datei vorhanden ist kann ich den Pfad von dem Ordner nicht angeben. Könnte man nicht auch mit dem Fenster Speichern als (GetSaveAsFilename) den Pfad auslesen.
--- alter Makro ---
Sub Pfad_auslesen()
Dim Pfad As String
Pfad = Application.GetOpenFilename("Exceldateien (*.),*.")
If Pfad <> "" Then
Range("A1").Value = Left(Pfad, Len(Pfad) - Len(Dir(Pfad)))
End If
End Sub
-----------------------
Danke
Karl
Anzeige