Herbers Excel-Forum - das Archiv
Anzahl ermitteln
Betrifft: Anzahl ermitteln
von: Jürgen
Geschrieben am: 11.12.2003 16:28:59
Hallo,
ich habe folgendes Problem: in Zelle A1 steht 5
in Zelle A2 steht 3
in Zelle A3 steht 5 usw.
wir kann ich z.B. in Zelle A4 ermitteln, wieviele (also die Anzahl) 5 insgesamt vorkommen?
Danke
Betrifft: ZÄHLENWENN (oT)
von: xXx
Geschrieben am: 11.12.2003 16:31:05
Betrifft: ZÄHLENWENN
von: ChrisL
Geschrieben am: 11.12.2003 16:32:23
Hi Jürgen
Schau dir mal die Funktion ZÄHLENWENN an. Allenfalls könnte auch eine Pivot-Tabelle helfen, sofern du die Anzahl für alle Einträge bestimmen musst.
http://www.hrz.uni-dortmund.de/S1/download/skripte/s3/excel/Pivottabellen_in_Excel.pdf
Gruss
Chris
Betrifft: AW: Anzahl ermitteln
von: Harry
Geschrieben am: 11.12.2003 16:38:39
Hallo Jürgen,
Vielleicht hilft Dir das:
Sub test()
Dim intRow As Integer
Dim intCounter As Integer
For intRow = 1 To 50
If Cells(intRow, 1).Value = "5" Then
intCounter = intCounter + 1
End If
Next intRow
MsgBox intCounter
End Sub
Dabei werden die ersten 50 Zellen in Spalte A durchsucht.
Gruß Harry
Betrifft: AW: Anzahl ermitteln
von: Jürgen
Geschrieben am: 11.12.2003 18:10:26
Hallo,
hat funktioniert, vielen Dank.
Jürgen