AW: Formel: Zahlen in Text zählen
05.12.2023 15:10:02
Fred
Hallo Daniel,
nun habe ich 2 Versionen (vba + Formel) und meine Anfangsversion in vba,- als ich die Zahlen per Makro auf angrenzende Zellen verteilt habe (um dann "einfachst" an das Ergebnis zu gelangen)
For i = 1 To 10
Cells(i, 1).TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True
Next i
Ich will den Zellinhalt von 10 Zeilen entsprechend "bearbeiten". Die Lösung von Fennek geht zwar in "Lichtgeschwindigkeit",- da habe ich allerdings Probleme dies in einer Schleife auf den Bereich zu bringen.
Deine Formel-Lösung liest sich wie "alte Schule" aber da tue ich mich bei dieser Aufgabe anscheinend viel leichter.
Für die Zellen in den Bereichen: AG11:AH20 und AK11:AL20 möchte ich nun die entsprechende Anzahl jeweils als Ergebnis. Es kann auch vorkommen, dass Zellen in den Bereichen leer sind. Aber wenn ich deiner Formel "Wennfehler(.... ;0)" voran setze, kommt das gewünschte Ergebnis,- ist halt ne relativ "lange Formel".
zB: =WENNFEHLER(SUMMENPRODUKT(1*(XMLFILTERN(""&WECHSELN(AG11;" ";"")&"";"//x/y")>50));0)+WENNFEHLER(SUMMENPRODUKT(1*(XMLFILTERN(""&WECHSELN(AH11;" ";"")&"";"//x/y")>50));0)+WENNFEHLER(SUMMENPRODUKT(1*(XMLFILTERN(""&WECHSELN(AK11;" ";"")&"";"//x/y")>50));0)+WENNFEHLER(SUMMENPRODUKT(1*(XMLFILTERN(""&WECHSELN(AL11;" ";"")&"";"//x/y")>50));0)
Aber ich denke mal, das dies der "schlank gehaltenen Arbeitsmappe" nicht schadet ....
Nochmals vielen Dank für die Unterstützung an Fennek und Daniel !!
Gruss
Fred