Microsoft Excel

Herbers Excel/VBA-Archiv

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

Schaltflächen und VBA Codes nicht mit Kopieren

Betrifft: Schaltflächen und VBA Codes nicht mit Kopieren von: Alex
Geschrieben am: 06.09.2004 11:30:11

Hi Liebe Excelfans,

habe folgenden Code um die ein Blatt zu kopieren und in einem bestimmten verzeichnis mit meinen angaben zu speichern.

Sub speich_unter()
    Workbooks(1).Sheets(1).Copy
    ChDir "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik"
    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" _
    , "Name eingeben", "")
    ActiveWorkbook.SaveAs Filename:=a, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveSheet.Unprotect
                Cells.Copy
Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Das Problem ist das er mir die schaltflächen mit kopiert womit ich das speichen auslöse. Kann man den Code so ändern das er die schaltflächen nicht mit kpiert ???

Vielen Dank für Eure hilfe im vorraus

Gruß Alex
  


Betrifft: AW: Schaltflächen und VBA Codes nicht mit Kopieren von: Bert
Geschrieben am: 06.09.2004 11:43:00

Sub speich_unter()
    Workbooks(1).Sheets(1).Copy
    ChDir "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik"
    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" _
    , "Name eingeben", "")
    ActiveWorkbook.SaveAs Filename:=a, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
ActiveSheet.Unprotect
'-----------------------------------
ActiveSheet.DrawingObjects.delete
'-----------------------------------
Cells.Copy
Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Bert


  


Betrifft: Klappt Super. DANKE. o.T. von: Alex
Geschrieben am: 06.09.2004 12:09:26

Vielen Dank Bert klappt super.

Gruß Alex o.T


  


Betrifft: Sorry Bert noch eine frage ??? von: Alex
Geschrieben am: 06.09.2004 12:17:13

Hi Bert hatte noch was vergessen zu Fragen, kann man den Code auch für zwei blätter machen. Das heisst wenn zwei blätter kopiert werden. Mit deinem Code nimmt er das für eine weg. Habe aber noch eine andere Arbeitsmappe wo zwei Blätter kopiert werden. Ist das auch möglich.

Vielen Dank für Deine hilfe

Gruß Alex


  


Betrifft: AW: Sorry Bert noch eine frage ??? von: geri
Geschrieben am: 06.09.2004 12:24:49

Hallo Alex

Worksheets(Array("Lieferschein", "Angebot", "Rechnung")).Copy

ändere Zeile 2 passe deine Blattnamen an

gruss geri


  


Betrifft: Hi Geri nicht ganz korrekt von: alex
Geschrieben am: 06.09.2004 12:34:14

Hi Geri,
habe ein Code für zwei Arbeitsblätter. Mir geht es nur darum das er mir das bei den Kopierten blättern nur bei einer die Codes und Grafiken mit dem Code ent fernt dies soll aber bei beiden geschehen das löschen der Grafiken und VBA Codes beim Kopieren.

Sub Speichermakro1()
'
Dim Speicher
Dim DeinPfad
DeinPfad = "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\2005\T2S - "
    Sheets(Array("Auftrags Statistik", "HA. Statistik")).Copy
    Sheets("Auftrags Statistik").Unprotect
    Sheets("HA. Statistik").Unprotect
    Worksheets(Array("Lieferschein", "Angebot", "Rechnung")).Copy
    ------------------------------------
    ActiveSheet.DrawingObjects.Delete   'dieser Code ist für ein Blatt und nicht für 2
    ------------------------------------
 
    Sheets(Array("Auftrags Statistik", "HA. Statistik")).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    Sheets("Auftrags Statistik").Select
    Sheets("Auftrags Statistik").Protect
    Sheets("HA. Statistik").Protect
    Speicher = Format(Now, "dd.mm.yy") & " Statistik.xls"
    ActiveWorkbook.SaveAs Filename:=DeinPfad & Speicher
    ActiveWorkbook.Close SaveChanges:=False
End Sub



  


Betrifft: teste mal denke so gehts von: geri
Geschrieben am: 06.09.2004 17:32:50

Hallo Alex

Sub Speichermakro2()
'
Dim Speicher
Dim DeinPfad
DeinPfad = "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\2005\T2S - "
    Sheets(Array("Auftrags Statistik", "HA. Statistik")).Copy
    Sheets("Auftrags Statistik").Unprotect
    Sheets("HA. Statistik").Unprotect
    Sheets(Array("Auftrags Statistik", "HA. Statistik")).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    Sheets("Auftrags Statistik").Select
    ActiveSheet.DrawingObjects.Delete   
    Sheets("Auftrags Statistik").Protect
    Sheets("HA. Statistik").Select
    ActiveSheet.DrawingObjects.Delete   
    Sheets("HA. Statistik").Protect
    Speicher = Format(Now, "dd.mm.yy") & " Statistik.xls"
    ActiveWorkbook.SaveAs Filename:=DeinPfad & Speicher
    ActiveWorkbook.Close SaveChanges:=False
End Sub


gruss geri


  


Betrifft: Danke Geri klappt super !!! o.T von: Alex
Geschrieben am: 07.09.2004 12:26:36

Danke Geri klappt super. o.T.

Gruß Alex


 

Beiträge aus den Excel-Beispielen zum Thema "Schaltflächen und VBA Codes nicht mit Kopieren"