Hallo,
ich habe eine Vorlage, die nach Eingabe des Kundennamen automatisch in den Kundenordner gespeichert werden soll. Es soll sich ein Dialog zum "speichern unter" öffnen, der Pfad ausgewählt und der Dateiname vorgegeben werden. Ich habe hierzu auch schon einen Code, der bei einer anderen Datei auch funktioniert. Allerdings öffnet er hier nur den Dialog und gibt den Dateinamen vor, er wählt aber immer den aktuellen Ordner aus und nicht den angegebenen Pfad. Lasse ich mir die Variablen "Pfad" und "strDateiname" in einer Zelle ausgeben, sind diese auch korrekt. Auch die If-Schleife, in der er prüft, ob der Server erreichbar ist, funktioniert. Ich hoffe ihr könnt mir weiterhelfen :)
Vielen Dank vorab und liebe Grüße
Lukas
Dim Kunde As String
Dim Datum As String
Dim Pfad As String
Dim strDateiname As String
Datum = Sheets("Steuerung").Range("A10").Value
Kunde = Sheets("Tool").Range("G1").Value
Pfad = "Y:\Kunden\" & Kunde
strDateiname = (Datum & " " & Kunde & " Teilnehmerliste.xlsm")
' Check, ob Server erreichbar
Dim isDir As Boolean
isDir = CreateObject("Scripting.FileSystemObject").FolderExists(Pfad)
If isDir = False Then
ChDir "C:\"
MsgBox "Der Kundenordner konnte nicht ausgewählt werden!" & _
vbCrLf & "Eventuell besteht keine Verbindung zum Server." & _
vbCrLf & _
vbCrLf & "Speicherort bitte manuell auswählen!"
Application.Dialogs(xlDialogSaveAs).Show "C:\" & strDateiname
Else:
ChDir "Y:\Kunden\" & Kunde & "\"
Dim Info As Integer
Info = MsgBox( _
Prompt:="Die Datei wird jetzt automatisch benannt und der Kundenordner ausgewählt." & _
vbCrLf & "Bitte exakten Speicherort auswählen und Datei speichern.", Buttons:=vbOKOnly)
Application.Dialogs(xlDialogSaveAs).Show Pfad & "\" & strDateiname
End If