Häufigkeit von Worten in Zelle berechnen/anzeigen
21.11.2018 15:51:04
Worten
ich würde gerne den Inhalt einer einzelnen Zelle lesen & alle IDs die sich dort befinden & doppelt vorkommen in eine ID zusammenfassen und die Häufigkeit in Klammern dahinter schreiben.
Inhalt in Zelle L3: (später sollen noch mehr Zeilen folgen im Sheet, aber an unterschiedlichen Stellen)
SA-SW SA-SB SA-ST SABT-12 SA-DG EL-HI SA-SW EL-HI SABT-12
Dabei sind die einzelen IDs durch Leerzeichen getrennt
Soll dann wie folgt aussehen: (in Zelle K3)
SA-SW(2) SA-SB(1) SA-ST(1) SABT-12(2) SA-DG(1) EL-HI(2)
Das ganze habe ich schon mit CountIf (ZählenWenn) probiert, funktioniert aber nicht, da ich nicht weiß wie ich die Häufigkeit in der selben Zeile wie die IDs in Klammern anzeigen lassen kann.
Mein Ansatz bisher (in anderem Makro schoneinmal erfolgreich verwendet): (gibt jedoch einen Fehler aus, da das Array, die Leerzeichen nicht erkennt.:
Sub zaehlenHaeufigkeit()
Set Bereich = Sheets("Details").Range("L3")
arr = Bereich.Value
Set objDict = CreateObject("Scripting.Dictionary")
For Each f In arr
objDict(f) = objDict(f) + 1
Next
For lngI = 1 To UBound(arr)
ID = arr(lngI, 1)
arr(lngI, 1) = objDict(ID)
objDict(ID) = ""
Next
Bereich.Offset(0, 1).Value = arr
End Sub
Hat vielleicht jmd eine Idee?
Liebe Grüße