Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Code erweitern

VBA Code erweitern
31.08.2004 13:15:29
Peter
Hi Excel Gurus,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code erweitern
nighty
hi peter :)
wie gewuenscht :)
gruss nighty

Sub speich_unter()
rem gegebenenfalls hier den index anpassen ,bei sheets(1) usw.
Workbooks(1).Sheets(1).Copy
Workbooks(1).Sheets(2).Copy Workbooks(2).Sheets(1)
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

Anzeige
Nighty klappt super so. o.T.
Peter
Vielen, Vielen Dank so klappt es super.
Gruß Peter
AW: VBA Code erweitern
Uduuh
ungetestet:

Sub speich_unter()
ChDir "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\Statistik 2005"
Sheets("Auftrags Statistik").Copy
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.Close
Sheets("Ha. Statistik").Copy
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.Close
ActiveWorkbook.Save
End Sub

Anzeige
falsch gelesen!!!!
Uduuh
AW: falsch gelesen!!!!
nighty
hi Uduuh :)
grins
gruss nighty
p.s.
optimiert :))

Sub speich_unter()
Dim EinGabe As String
Workbooks(1).Sheets(1).Copy
Workbooks(1).Sheets(2).Copy Workbooks(2).Sheets(1)
ChDir "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\Statistik 2005"
EinGabe = 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", "")
Workbooks(2).SaveAs Filename:=EinGabe, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Workbooks(2).Save
Workbooks(2).Close
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige