in der Kopie alle Schaltflächen löschen

Forumthread: in der Kopie alle Schaltflächen löschen

09.02.2005 13:05:27

Peter

Hallo Excels,
kann mir bitte jemand bei der erweiterung dieses Makros helfen.


Sub KopiereBlatt()
Dim lager
Dim Palette
lager = Range("m4").Text
Palette = Range("m6").Text
ThisWorkbook.Sheets("Packliste").Copy
ActiveWorkbook.SaveAs Filename:="D:\Versand" & " " & lager & " " & Palette & " " & Date & ".xls"
End Sub

In dem Kopierten Blatt sollen die Schaltflächen 5-7 nicht vorhanden sein.
Das Makro auf dem Tabellenblatt "Packliste" soll auch nicht übernommen werden.
Gruss Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: in der Kopie alle Schaltflächen löschen

UweD

Hallo
so dürfte es gehen:


Sub KopiereBlatt()
Dim lager
Dim Palette
lager = Range("m4").Text
Palette = Range("m6").Text
ThisWorkbook.Sheets("Packliste").Copy
'Löschen Makrocode
With ActiveSheet.Parent.VBProject.vbcomponents(ActiveSheet.CodeName).codemodule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo Fehlerbehandlung
'Löschen Buttons
For I = 5 To 7
ActiveSheet.Shapes("CommandButton" & I).Delete
Next
ActiveWorkbook.SaveAs Filename:="D:\Versand" & " " & lager & " " & Palette & " " & Date & ".xls"
Exit Sub
Fehlerbehandlung:
MsgBox "Die Datei konnte nicht gespeichert werden"
End Sub

Gruß UweD

AW: in der Kopie alle Schaltflächen löschen

09.02.2005 14:16:05

Peter

Hi UweD,
ich habe in der Zwischenzeit den Code noch so geändert das in der Kopie auch keine Formeln mehr vorhanden sind.
Gemischt mit deinem Code sieht das Ganze nun so aus.


Sub KopiereBlatt()
Application.ScreenUpdating = False
Dim lager
Dim Palette
lager = Range("j4").Text
Palette = Range("m6").Text
ActiveSheet.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
'Löschen Makrocode
With ActiveSheet.Parent.VBProject.vbcomponents(ActiveSheet.CodeName).codemodule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo Fehlerbehandlung
'Löschen Buttons
For i = 5 To 7
ActiveSheet.Shapes("CommandButton" & i).Delete
Next
ActiveWorkbook.SaveAs Filename:="D:\Lackmann_Lieferscheine\Versand" & " " & lager & " " & Palette & " " & Date & ".xls"  'For Output As #1
'Call moduleweg
ActiveWorkbook.Close
Application.ScreenUpdating = True
Fehlerbehandlung:
MsgBox "Die Datei konnte nicht gespeichert werden"
End Sub

Leider bleibt der Code an dieser Stelle hängen.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Kannst Du mir sagen warum ?
Gruss Peter

AW: in der Kopie alle Schaltflächen löschen

Udo

Zeichne dir nur mal den Kopiervorgang mit dem Rekorder auf für die korrekte Syntax.
Udo

AW: in der Kopie alle Schaltflächen löschen

09.02.2005 14:44:58

Peter

Hi UweD,
habe den Fehler gefunden.
Zum einen musste ich erst denn Blattschutz aufheben.
ActiveSheet.Unprotect Password:="©Rückenspringendergemeingeduckterfellschrosch©"
...
ActiveSheet.Unprotect Password:="©Rückenspringendergemeingeduckterfellschrosch©"
und diese Zeile (ich habe eben Schaltflächen). Noch das Leerzeichen zwischen Schaltfläche und Zahl und das wars.
ActiveSheet.Shapes("Schaltfläche" & " " & i).Delete
Danke ohne Dich wäre ich nicht drauf gekommen.
Gruss Peter

Beliebteste Forumthreads (12 Monate)

in der Kopie alle Schaltflächen löschen

Forumthread: in der Kopie alle Schaltflächen löschen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

in der Kopie alle Schaltflächen löschen

Forumthread: in der Kopie alle Schaltflächen löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread