Kopieren und löschen
12.02.2008 09:17:41
BuStü
ich habe folgenden Code in einem Formular, Das Formular soll mit den eingegebenen Daten gespeichert werden, nach dem speichern soll das originalformular die eingegebenen Daten löschen.
Private Sub BlSpeichern_Click()
Dim SavePath As String
Dim tb As Object
Dim Shp As Object
Dim vbc As Object
Dim wks As Worksheet
Dim WkSh_Z As Worksheet
Dim Blatt As Worksheet
Application.ScreenUpdating = False
'Blattschutz_machen
Set WkSh_Z = Worksheets("Bestandsübersicht")
'Löschen der alten Daten
WkSh_Z.Range("C7:I7,C8:I27").ClearContents
SavePath = "F:\ Lager\Bestand"
'Kopiert die aktuelle Tabelle
ActiveSheet.Copy
'Löscht die CommandButton
For Each Shp In ActiveSheet.Shapes
If Shp.Type = 12 Then Shp.Delete
Next
For Each Shp In ActiveSheet.Shapes
If Shp.Type 13 Then Shp.Delete
Next
'Löscht die Prozeduren
For Each wks In ActiveWorkbook.Worksheets
With ActiveWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
'Speichert die Datei unter dem Tabellennamen
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets(" _
Bestandsübersicht").Range("D4").Value & ".xls"
Application.ScreenUpdating = True
End Sub
Mein Problem ist, die Daten werden in dem zu speicherenden Tabellenblatt gelöscht und nicht im bestehenden auch werden meine Kontrollkästchen mit gelöscht.
Kann mir jemand behilflich sein.
MfG
Bustue
Anzeige