Makrohilfe
mike
habe folgendes Makro unter "Diese Arbeitsmappe" stehen:
Private Sub SpeichernUnter()
Dim strFileName As String, strPath As String
strFileName = "" & Range("J4") & ".xls"
strPath = "C:\Dokumente und Einstellungen\Papa\Eigene Dateien\Muster\Wochenpläne\"
If Dir(strPath & strFileName) > "" Then
Application.Dialogs(xlDialogSaveAs).Show (strFileName)
Else
ThisWorkbook.SaveAs strPath & strFileName
End If
End Sub
Wenn ich nun zum Speichern F12 drücke, wird auch richtig gespeichert.
Leider muss ich zum Überprüfen immer erst den Ordner "Wochenpläne" aufrufen.
Kann man das Makro so ändern, dass nach Drücken von F12 das Fenster "Speichern unter" mit dem Inhalt des Ordners "Wochenpläne" angezeigt wird, und die Mappe unter dem bereits richtig eingetragenen Namen gespeichert werden kann?
Gruß
mike