Hallo,
zum Speichern nutze ich folgenden Code:
Sub dateiname()
Ort = Sheets(„MAGvorInb“).Range(„A110“)
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 oder 2 einzeln speichern kann?
Gruß heimat