wie muss man folgendes Makro verändern, dass Tabellen immer im Ordner "C:\Eigene Dateien\Kraichgau-Klinik\Wochenpläne" gespeichert werden?Gruß
Mike
Vielleicht so?
funktioniert leider nicht.
Mike
bist du sicher das die funktion nicht funktioniert?
schau am besten nach ob diese Datei(die du speichern willst) in dem Ordner "C:\Eigene Dateien\Kraichgau-Klinik\Wochenpläne\" gespeichert wurde.
Du willst ja kein "Speichern unter.."-Dialog oder?
wenn du eine datei immer im gleichen ordner speichern willst, dann brauchst du kein "Speichern unter..."-Dialog.
Steffen D
Gruß
Mike
ich habe gerade erst bemerkt dass du geantwortet hast.
Probier es mal hiermit:
Private Sub SpeichernUnter()
Dim strFileName As String
'Speichernamen generieren
strFileName = "Woche " & Range("J4") & ".xls"
ChDir ("C:\Eigene Dateien\Kraichgau-Klinik\Wochenpläne")
strFileName = Application.GetSaveAsFilename(InitialFilename:=strFileName, FileFilter:="Excel Files (*.xls), *.xls")
ThisWorkbook.SaveAs strFileName
End Sub
Gruss
Steffen D
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen