AW: Check-Box soll nicht gelöscht werden
12.02.2008 20:08:00
Rudi
Hallo,
also nur die Commandbutton und Code 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 Blatt As Worksheet
Dim WkSh_Z As Worksheet
Dim oOLE As OLEObject
SavePath = "F:\05 Lager\Leiterprüfung"
'Kopiert die aktuelle Tabelle
ActiveSheet.Copy
'Löscht die CommandButton
For Each oOLE In ActiveSheet.OLEObjects
If oOLE.progID = "Forms.CommandButton.1" Then oOLE.Delete
Next
'Löscht alle AutoForm
'For Each tb In ActiveSheet.Shapes
'tb.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("Leiter- _
Kontrollblatt LKB").Range("E16") & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & ".xls"
ActiveWorkbook.Close 'schließt kopierte Tabelle wieder
Set WkSh_Z = Worksheets("Leiter-Kontrollblatt LKB")
'Löschen der alten Daten
WkSh_Z.Range("E25:I25,E26:I35").ClearContents
End Sub
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.