Office: GESUCHT!! Bedingte Formatierung+Zählfunktion

Hallo liebe Excel-Freunde,

brauche mal wieder dringend Hilfe bei einer Vorlage. Anbei die Vorlage in der ihr auch gleich die Wünsche/Änderungen vornehmen könnt.

Also ich möchte, dass die "Klicks" des roten und scharzen Buttons gezählt werden in der vorformatierten Spalte I und J. Derzeit ist das nur stumpf, es soll aber bis 30 nacheinander gezählt werden bspw. wenn ich am Anfang 3x rot klicke soll in der Spalte I1,I2 und I3 eine 1 erscheinen und wenn ich danach 2x schwarz anklicke sollen Zelle J4 und J5 eine 1 bekommen, also egal was ich klicke soll bis 30 runtergezählt werden.

Genauso soll es in den Spalten L und M aussehen....anhand meines Beispiels müsste dann L1,L2 und L3 eine rote Zelle sein und M4 und M5 schwarz.

Wäre für jede Hilfe dankbar!!!!!

 

Hallo!

Lösche erstmal die Formeln aus I und J, denn du willst ja eine VBA-Lösung!
Die bedingten Formatierungen in L und M können bleiben.

Code:

Private Sub CommandButton1_Click()
Dim Letzte As Range
Set Letzte = Range("I2:J31").Find("*", , , , xlByRows, xlPrevious)
If Letzte Is Nothing Then
Range("I2") = 1
Else
Cells(Letzte.Row + 1, 9) = 1
End If
Range("B8") = Range("B8") + 1
End Sub

Private Sub CommandButton2_Click()
Dim Letzte As Range
Set Letzte = Range("I2:J31").Find("*", , , , xlByRows, xlPrevious)
If Letzte Is Nothing Then
Range("J2") = 1
Else
Cells(Letzte.Row + 1, 10) = 1
End If
Range("E8") = Range("E8") + 1
End Sub

Private Sub CommandButton3_Click()
Range("B8,E8,I2:J31").Select
Selection.ClearContents
End Sub

 

Super:)

Danke für die rasche Antwort, noch bißchen modifiziert und jetzt ist es top!!!!

Vielen lieben Dank und schönen Abend!!!

Micha