Hallo,
ich habe in einer Arbeitsmappe in Tabelle 1 Spalte drei in ca 50 Zeilen Begriffe stehen. Jeder der Begriffe kommt mehrmal vor.
Ich lese die Begriffe nun aus und lege sie in Tabelle 2 ab. Jeden Begriff nur einmal. So sehen ich, welche Begriffe es überhaupt gibt. Das hab ich wie folgt realisiert mit Hilfe aus dem Forum:
Sheets("Tabelle1").Select
iRow = 1
On Error Resume Next
For iRow = 2 To Range("C65536").End(xlUp).Row
cObj.Add Cells(iRow, 3).Value, Cells(iRow, 3).Value
iRow = iRow + 1
Next iRow
On Error GoTo 0
For iRow = 1 To cObj.Count
Worksheets("Tabelle2").Range("C49").Offset(iRow, 0).Value = cObj(iRow)
Next iRow
anzahl_der_gruppen = iRow - 1
Worksheets("Tabelle2").Range("C49").Value = anzahl_der_gruppen
Nun wollte ich die Begriffe in der Tabelle 2 nach und nach lesen und in Tabelle 1 zählen, wie oft jder Begriff vor kommt und die Zahl in Tabelle 2 ablegen. Das mit dem auslesen und ablegen ist kein problem, ich weiß nur nicht, wie ich das realisieren soll, dass gezählt wird, wie oft der Begriff in der Spalte vorkommt. Vielleicht kann man das ja schon gleichzeitig mit der aflistung welche verschiednen Begriffe es überhaupt gibt, wie ich es mit dem obenstehen Code mache erledigen.
Würde mich freuen, wenn mir da jemand weiter helfen könnte.
mfg
Sven