Anzahl Summanden in Spalte zählen
26.02.2015 02:47:49
Faruk
folgende Situation:
Ich trage im Rahmen eines Monitorings verschiedene Geldbeträge in verschiedene Zellen. Ich benötige in diesem Monitoring unter anderem die Anzahl der eingetragenen Summanden pro Spalte (in jeder Zelle als "= 50000 + 25000 + ... + usw.)
Das derzeitige Makro habe ich aus einem Forum (ich glaube sogar von hier), dieses funktioniert jedoch nur für eine einzige Zelle. Sobald ich in der ganzen Spalte zählen lassen will, funktioniert das nicht.
Hier das Makro:
Function Summanden (rngZelle As Range) As Long
Dim strFormel As String
strFormel = rngZelle.FormulaLocal
Summanden = UBound(Split(strFormel, "+")) +1
End Function
Über jede Hilfe dankbar!