Hallo liebe Excel-Gemeinde,

ich möchte per Mausklick auf eine Zelle klicken können und in der Zelle werden die Klicks gezählt. Dies habe ich per VBA- Code auch bereits hinbekommen.

Auszug:
Private Sub Worksheet_Activate()
Range("A1").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Address

Case Is = "$E$5"
Range("E5") = Range("E5") + 1
Range("A1").Select

End Select
End Sub

Mein eigentliches Ziel ist es aber, dieses Verfahren auf die Zellen E5 bis E36 gleichermaßen anzuwenden. Muss ich dazu den obigen Code noch weitere 35mal schreiben, oder geht es einfacher und eleganter?

Für eure Hilfe wäre ich sehr dankbar.
Gruß Micha