Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

VBA Code erweitern

Betrifft: VBA Code erweitern von: Peter
Geschrieben am: 31.08.2004 13:15:29

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
  


Betrifft: AW: VBA Code erweitern von: nighty
Geschrieben am: 31.08.2004 13:31:50

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



  


Betrifft: Nighty klappt super so. o.T. von: Peter
Geschrieben am: 31.08.2004 13:47:27

Vielen, Vielen Dank so klappt es super.

Gruß Peter


  


Betrifft: AW: VBA Code erweitern von: Uduuh
Geschrieben am: 31.08.2004 13:34:10

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



  


Betrifft: falsch gelesen!!!! von: Uduuh
Geschrieben am: 31.08.2004 13:35:37




  


Betrifft: AW: falsch gelesen!!!! von: nighty
Geschrieben am: 31.08.2004 13:44:39

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



 

Beiträge aus den Excel-Beispielen zum Thema "VBA Code erweitern"