Ich habe zum Speichern mit Pfadvorgabe vom lieben Nebumuk folgenden Code verwendet:
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 2
.InitialFileName = "G:\Pfad\Datei.xlsm"
If .Show Then .Execute
End With
Dieser funktioniert soweit sehr gut. Nur leider öffnet er die gespeicherte Datei danach.
Ich möchte die originale Datei aber weiter bearbeiten bzw. soll ein Bereich in mehreren Arbeitsblättern gelöscht werden. Das habe ich bislang mit folgendem Makro einzeln gemacht:
Range("A4:T99").Select
Selection.ClearContents
Das soll natürlich mit nur einem Knopfdruck geschehen.
LG
Max