Speichern unter

Computer: Software & Programmierung Office Software
1

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

2

Moin, Heimat,

Kann mir jemand den Code so umstellen, das ich zBsp. Blatt 1
oder 2 einzeln speichern kann?

innerhalb einer Arbeitsmappe können einzelne Blätter nicht gespeichert werden, sondern nur verschoben oder kopiert.

Einzelne Blätter können in andere / neue Arbeitsmappen verschoben oder kopiert werden, diese wiederum können dann gespeichert werden - zB mit Deinem vorhandenen Code.

Gruß Ralf

3

Kann mir jemand den Code so umstellen, das ich zBsp. Blatt 1
oder 2 einzeln speichern kann?

Hallo Heimat,

Option Explicit
'
Sub dateiname()
Dim PfadName, Blatt
PfadName = Sheets("MAGvorInb").Range("A110") ' z.B.: "c:\test\neuName.xlsm"
If Len(PfadName) = 0 Then
 MsgBox ("Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!")
Else
 Blatt = InputBox("Blattnummer?", "Blattauswahl", 1)
 Worksheets(CInt(Blatt)).Copy
 Application.Dialogs(xlDialogSaveAs).Show (PfadName)
End If
End Sub

Gruß
Reinhard