VBA Code erweitern
31.08.2004 13:15:29
Peter
habe folgenden Code in meiner Arbeitsmappe wodurch ich ein Bestimmtes Registerblatt in einem Bestimmten verzeichnis Speichern kann. Jetzt möcht ich gerne diesen Code erweitern auf 2 Registerkarten die beide in dem gleich verzeichniss gespeichert werden. Hoffe ihr versteht mein Problem.
Sub speich_unter()
Sheets("Auftrags Statistik").Select
Sheets("Auftrags Statistik").Copy
ChDir "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\Statistik 2005"
a = InputBox("Speichernamen" & Chr$(13) & Chr$(10) & Chr$(10) & _
"04 (JAHR) 10 (Monat)" & Chr$(13) & Chr$(10) & Chr$(10) & "Jahr und Monat in Ziffern" _
& Chr$(13) & Chr$(10) & Chr$(10) & "Speicherort R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\Statistik 2005" _
, "Name eingeben", "")
ActiveWorkbook.SaveAs Filename:=a, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Der erste sheet heisst "Auftrags Statistik" wie in der Formel zu sehen ist, der zweite sheet heisst "Ha. Statistik". Und soll eben auch gespeichert in der gleichen arbeitsmappe.
Vielen Dank im Vorraus
Gruß Peter