Ich möchte gerne folgendes realisieren.
Habe als Beispiel auf dem Laufwerk D:\Temp mehrere unterschiedliche Ordner mit unterschiedlicher Ordnerbenennung wie
0X001_Ordner1
0X002_OrdnerABC
0X003_Ordner XYZ
In diesen Ordnern gibt es jeweils immer den gleichen Unterordner.
Beispiel: 0X001_Ordner1\Unterordner
Jetzt möchte ich aus einem Excel sheet in einer Zelle z. B 0X001 eingeben und über ein Command Button folgende Befehle ausführen um den Pfad in einem Dialogfeld Speichern unter (Application.GetSaveAsFilename) einzutragen.
Suche im Laufwerk D:\Temp den Ordner aus der Zelle. In diesem Fall 0X001. Es sollte aber nur nach den ersten fünf Digits gesucht werden.
Wenn der Ordner vorhanden ist nutze den kompletten Pfad und trage noch das Unterverzeichnis mit dazu (D:\Temp\0X001_Ordner1\Unterordner).Öffne das Dialogfeld Speichern unter (Application.GetSaveAsFilename) mit dem Dateipfad. Vergebe den Vorschlagsnamen Testdatei.
Wenn der Ordner nicht vorhanden ist dann öffne eine Msgbox Der Ordner bzw. Laufwerk ist nicht vorhanden ->Abbruch
Konnte folgende Quellcode bis dato schreiben:
Sub Speichern_unter()
'Deklaration der Variablen
Dim Dateiname$
'Verzeichnis
ChDir ("D:\Temp))
'Laufwerkspfad
ChDrive "D"
'Dateinamen festlegen
Dateiname = ("Testdatei")
'Dialogfeld mit vorgegebenen Dateinamen und Pfad
AusgewählterName = Application.GetSaveAsFilename(Dateiname, "Excel-Arbeitsmappe (*.xlsm), *.xls" _
_
)
End Sub