in der Kopie alle Schaltflächen löschen
09.02.2005 13:05:27
Peter
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