VBA Code erweitern
13.01.2023 18:27:01
Kalle
Ich würde mich freuen, wenn einer aus diesem Team mir mit einer Erweiterung helfen würde.
Ich möchte in dem VBA Code die Range in den Bereich auf A1-D1 erweitern, sodas jede Zelle in diesem Bereich einzel ausgewertet werden kann, daß bedeutet, wenn in einer in diesen Zellen ein Zahlenwert von 3 oder 4 vorkommt, sollte der Zähler in E1 +1 bekommen, mit dem jetzigen Code funktioniert es leider nicht.
Vielen Dank. Gruß Kalle
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Application.CountA(Range("A1")) = 1 Then
Range("E1") = Range("E1") + 1
Range("A1").ClearContents
Range("A1").Select
End If
End If
End Sub