|
Genau. Sozusagen bevor das Blatt wieder gelöscht wird, soll ein Übertrag der gesammelten Daten auf ein seperates Blatt erfolgen wie ein BackUp.
Das Blatt löscht sich bei mir durch das anwählen eines Button mit folgenden Code:
Worksheets("Ausgabe").Select
Range("B2:B100,C2:C100,D2:D100,E2:E100,F2:F100,G2:G100").Clear
ActiveCell.Offset(5, -3).Range("A1").Select
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveCell.Offset(-3, 2).Range("A1").Select
Sheets("PartNumber").Select
|