ich habe folgendes Problem und keine VBA bzw. Makro-Erfahrung, daher bin ich sehr dankbar, wenn ihr helfen könnt.
Ich habe eine Tabelle (Profil), in der Spalte A mit mehreren und doppelten Werten hinterlegt ist. Bspw.:
4100
4300
4200
4250
etc.
mittels VBA oder Makro möchte ich ermitteln, wie oft ein Wert insgesamt vorkommt, ohne Werte explizit zu nennen.
Und im zweiten Schritt diese in einem Diagramm sortieren.
D.h. Y-Achse sind die werte (4100, 4300, 4200) aufgeführt und an der X-Achse die Häufigkeiten.
Ich habe dies schon mittels Pivot-Tabelle ausprobiert.
Da werden mir allerdings auf der y-Achse die Häufigkeiten der auf der x-Achse genannten Werte (4100, 4300, 4250,...) genannt.
Was ich allerdings brauche ist eine umgekehrte Zuordnung.
Hat da jemand einen Rat?
In einem anderen Beitrag habe ich dies hier als mögliche Lösung meines Problems gefunden, verstehe es allerdings nicht;
Kann mir das jemand "übersetzen"?
Sub test()
Dim Zeile As Long, objCounter As Object
Set objCounter = CreateObject("Scripting.Dictionary")
objCounter("Zahl") = "Anzahl"
With Worksheets("Januar 2012")
For Zeile = 6 To .Cells(Rows.Count, 23).End(xlDown).Row
If .Cells(Zeile, 23) > 0 Then
objCounter(.Cells(Zeile, 23).Value) = _
objCounter(.Cells(Zeile, 23).Value) + 1
End If
Next Zeile
End With
Cells(1, 1).Resize(objCounter.Count) = _
WorksheetFunction.Transpose(objCounter.keys)
Cells(1, 2).Resize(objCounter.Count) = _
WorksheetFunction.Transpose(objCounter.items)
End Sub
Quelle hierzu:
https://www.herber.de/forum/archiv/1252to1256/1255726_Haeufigkeit_von_Werten_ermitteln. _
html