Blätter ohne Button kopieren
08.12.2003 12:24:14
Carsten
ich kopiere mit folgendem Makro fünf Blätter aus einer Mappe in eine neue Mappe.
Sub Angebot()
a = Sheets("Leistungsverzeichnis").Range("B4") & " - " & Sheets("Leistungsverzeichnis").Range("C4") & " - " & Sheets("Angebot LV").Range("E1") & ".xls"
Sheets(Array("Angebot LV", "Kalkulation", "Einzelpreis", "Pauschalpreis", "Vertrag")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Angebote\" & a
End Sub
Eins der Blätter enthält jedoch Buttons die ich nicht kopieren möchte. wie mache ich das am besten?
Gruß
Carsten
Anzeige