Zählenwenn / Countif in VBA
31.07.2017 16:07:13
FauBeA
folgende Anforderung: alle Werte die in den Spalten CB:CG eingetragen sind, sollen durch die Anzahl der gleichen Zeilen dividiert werden. Dies wird ermittelt anhand des Zellenwertes U
Ein Beispiel:
CB3= 15
U3= "Beispiel1"
und "Beispiel1" kommt noch zusätzlich in den Zellen U10 und U15 vor.
Ergebnis:
CB3= 5
Müsste ungefähr so heißen die Formel:
Sheets("Tabelle1").Range("CB3") = Range("CB3") / WorksheetFunction.CountIf(Range("U:U"),Range("U:U"))
Das funktioniert so leider nicht. Und wie gesagt, mein Beispiel mach die Berechnung ja nur für CB3, ich brauche es für alle vorhandenen Zeilen von CB:CG.
Könnt ihr mir weiterhelfen? :)
Dankeee