Hallo,
zum Speichern (3 Blätter) nutze ich folgenden Code:
Sub dateiname()
Ort = Sheets(„Auswahliste“).Range(„A35“)
If Len(Ort) = 0 Then
MsgBox („Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!“)
Else
Application.Dialogs(xlDialogSaveAs).Show (Ort & „.xlsm“)
End If
End Sub
Kann mir jemand den Code so umstellen, das ich zBsp. Blatt 1 (Range a40) oder 2 (Range a45) einzeln speichern kann, sowie Blatt 1+2 gemeinsam?
Gruß