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