Zellen-Formel oder VBA-Programm möglich?

[Maximus]

Hallo Excel-Profis,

habe eine Tabelle mit 24 Zellen.
E13:E20
F13:F20
G13:G20

Alle 24 Zellen werden über ein VBA Programm (siehe unten) angesprochen, das sich in
Tabelle 1 befindet,  wodurch es möglich ist, durch Doppelklick ein X in jede Zelle zu setzen.
 
Kann man trotz VBA Programm eine Zellenformel in Zelle E23 schreiben, wodurch es möglich ist, dass wenn  X´s durch Doppelklick gesetzt werden, diese automatisch in E23 zusammengezählt werden?
 
Wenn eine Zellenformel nicht möglich ist, wäre es vielleicht möglich, das VBA-Programm irgendwie dahingehend zu erweitern, dass bei jedem Doppelklick automatisch diese X in der Zelle E23 miteinander addiert werden?

Ich würde es super finden, wenn in E23 alle gesetzten X in E13:E20,F13:F20,G13:G20 immer automatisch zusammengezählt werden.


 
Hier das VBA-Programm:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A3:I3,A13:G13,A14:G14,A15:G15,A16:G16,A17:G17,A18:G18,A19:G19,A20:G20,G30:H30"), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = IIf(Target.Value = "x", "", "x")
Application.EnableEvents = True
Cancel = True
End If
End Sub
 
 
Danke und Gruß Markus

[WillWissen]

Hi Markus,

Kann man trotz VBA Programm eine Zellenformel in Zelle E23 schreiben, wodurch es möglich ist, dass wenn  X´s durch Doppelklick gesetzt werden, diese automatisch in E23 zusammengezählt werden?

ja.

Code:

=ZÄHLENWENN(E13:G20;"x")

[Maximus]

VIELEN Danke Günter,klappt perfekt für die ReiheE13:E20

Habe versucht die Formel zu erweitern F13:F20 und G13:G20.


=ZÄHLENWENN(E13:E20;F13:F20;G13:G20;"x")


Dann funktionierts nicht.

Weißt du warum?

[WillWissen]

Hi Markus,

dann schau dir doch nochmals meine Formel genau (!) an. :32:

[RPP63]

Moin!
Günter hat Dir bereits die korrekte Formel für den Gesamtbereich gegeben.
Falls die Spalten NICHT nebeneinander liegen und somit nicht als Gesamtbereich angegeben werden können, musst Du so vorgehen:
=Zählenwenn(Bereich1;"x")+Zählenwenn(Bereich2;"x")+ …

Gruß Ralf

[Maximus]

Tausend Dank Günter,
deine Formel funktioniert auch auf die anderen Zellen.

Danke RPP63!


Das ist hier ist echt ein spitzen Forum!!!