Checkboxen nur in ausgewählten Zeilen löschen
03.01.2005 14:07:43
EL-JUNGO
Hallo erstmal!
Habe eine Tabelle mit mehreren Kontrollkästchen (Checkbox).
Wenn ich z.B eine Zeile makiere die gelöscht werden soll, überschreiben sich die Kontrollkästchen.
Habe nun ein Makro gefunden, dass per Buttonclick alle im Dokument befindlichen Kontrollkästchen löscht!
Möchte aber nur einen ausgewählten Bereich löschen! Wenn es geht auch noch die Inhalte. Also mit ClearContents oder wie die Funktion heißt!
Hier der Code, den ich bisher habe!!
Sub CommandButton1_Click()
Dim Sh As Object
With Sheets("Oktober")
For Each Sh In ActiveSheet.Shapes
If InStr(Sh.Name, "Check") > 0 Then Sh.Delete
Next
End With
End Sub
Hey im voraus schonmal tausendfacher dank für jede Antwort!
EL-JUNGO