Speichern eines einzelnen Arbeitsblattes als Datei
19.01.2004 15:00:46
Jan P
ich habe eine ExcelArbeitsmappe erstellt, die mehrere Arbeitsblätter beinhaltet. Ich kann die gesamte Tabelle als neue Datei speichern. Eigentlich möchte ich aber nur das 1. und 3. Blatt jeweils separat speichern oder das 2. und das 4. In Blatt 5 und 6 sind jedoch Daten gespeichert, auf die durch die ersten vier Blätter zugegriffen wird. Macht es vielleicht Sinn, die Blätter aufzuteilen und separat in neuen Mappen zu speichern?
Mein VBA-Code für das Speichern (der speichert jedoch nur die komplette Mappe):
Dim RECHNUNGDOK, RECHNUNGALT As String
RECHNUNGALT = ThisWorkbook.Name
If IsNumeric(Mid(RECHNUNGALT, 100000, 5)) Then
RECHNUNGALT = (Mid(RECHNUNGALT, 100000, 5))
Else
RECHNUNGALT = 0
End If
RECHNUNGALT = Format(CInt(RECHNUNGALT) + 1, "000000")
RECHNUNGDOK = Format(CInt(RECHNUNGALT) + 1, "000000")
Cells(13, 14).Value = RECHNUNGALT
Cells(30, 14).Value = "RG" & RECHNUNGALT & ".xls"
' Speichern der Arbeitsmappe
Dim SFILE As String
SFILE = Range("N30").Value
ActiveWorkbook.SaveAs SFILE
Vielen Dank und Gruß Jan