Herbers Excel/VBA-Archiv

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

Schaltflächen und VBA Codes nicht mit Kopieren

• Schaltflächen und VBA Codes nicht mit Kopieren von Alex vom 06.09.2004 11:30:11
• AW: Schaltflächen und VBA Codes nicht mit Kopieren - von Bert am 06.09.2004 11:43:00
  • Klappt Super. DANKE. o.T. - von Alex am 06.09.2004 12:09:26
  • Sorry Bert noch eine frage ??? - von Alex am 06.09.2004 12:17:13
    • AW: Sorry Bert noch eine frage ??? - von geri am 06.09.2004 12:24:49
      • Hi Geri nicht ganz korrekt - von alex am 06.09.2004 12:34:14
        • teste mal denke so gehts - von geri am 06.09.2004 17:32:50
          • Danke Geri klappt super !!! o.T - von Alex am 07.09.2004 12:26:36

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"