Zählbuttons funktionieren nicht mehr
28.03.2022 16:00:04
Columbus8
Ich hatte vor langer Zeit eine Statistik erstellt mit vielen Buttons zu diversen Ereignissen. So habe ich z. B. in der Zeile 36 12 Zeilen mit den Monatsnamen Jan Feb Mar usw. Wenn man den Button anklickt, wird in der Zelle unter dem entsprechenden Monat in der Zeile 38 +1 addiert. Das hatte bis vor 4 Monate immer funktioniert und plötzlich reagieren die Botton beim Anklicken nicht mehr, es wird nicht mehr addiert. Kann mir jemand weiter Helfen? Vielen Dank.
Der Code lautet:
Private Sub CBCount54_Click()
Dim inCell As Range
Set inCell = Rows(36).Find(MonthName(Month(Date), 1))
If Not inCell Is Nothing Then inCell(3) = inCell(3) + 1
End Sub