Hallo Florian,
So könnte es gehen:
Die Checkboxen befinden sich in Spalte O und P
z.B. O4 = Checkbox 1
P4= Checkbox 2
O5 = Checkbox 3 usw....
Unter Eigenschaften der Checkboxen > LinkedCell für Checkbox1 O4 definieren usw.
Folgende Formel in Q4 und runterkopieren bis Q23:
=WENN((O4=WAHR)*(P4=WAHR);"L";"")
In Zeile 3 lege einen Autofilter von Spalte A bis Spalte Q.
Folgendes Makro sucht in Spalte Q das "L" und selektiert die Spalten in denen die Zellinhalte zu löschen sind ( wie in der Anfrage angegeben)
Außerdem werden auch Spalte O und P selektiert.
Nach betätigen des Button ist alles selektiert was zu löschen ist, es brauchen anschließend nur mit "Ent" die Inhalte gelöscht werden.
Die Checkboxen sind dann auch wieder deaktiviert
Anschließend im Autofilter in der Spalte Q auf Alle gehen, dann ist ersichtlich in welchen Zeilen die Zellen nicht gelöscht wurden.
Der Code lautet:
Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=17, Criteria1:="L"
Range("A4:B23,E4:F23,I4:N23,O4:O23,P4:P23").Select
Range("P4").Activate
End Sub
Schau es Dir einmal an
Gruß
Paul1
Excel 2003
P.S.
Ich wollte das Löschen der Zellen auch in das Makro einbauen, aber da schreibt er mir verrückterweise immer 'Laufzeitfehler 28' nicht genügend Stapelspeicher
, aber ich glaube das ist nicht so tragisch
