Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zählenwenn / Countif in VBA

Zählenwenn / Countif in VBA
31.07.2017 16:07:13
FauBeA
Hallo liebes Forum,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählenwenn / Countif in VBA
31.07.2017 16:21:38
Daniel
HI
dürfte am einfachsten so gehen.
1. Ermittle die Anzahl für die jeweiligen Werte in U in einer Hilfsspalte mit der Formel (Formel für Zeile 3):
=ZählenWenn(U:U;U3)
die formel muss von der ersten bis zur letzen Datenzeile eingetragen werden.
2. kopiere diese Hilfsspalte
3. markiere die Spalten CB:CG und füge die kopierten Zellen mit den Optionen : "Werte" und "Vorgang: Dividieren" dort ein
4. lösche die Hilfsspalte wieder
sieht als Makro dann so aus:
Sub test()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=CountIf(C21,RC21)"
.Formula = .Value
.EntireColumn.Copy
Range("CB:CG").PasteSpecial xlPasteValues, xlPasteSpecialOperationDivide
.ClearContents
End With
End With
End Sub
Gruß Daniel
Anzeige

7 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige