Verschiedene Werte aus Tabelle auslesen
Hallo miteinander,
zu genanntem Thema habe ich ein wunderbares Makro gefunden. Allerding gibt es mir nicht die Werte aus Spalte D aus, sondern nur aus Spalte A obwohl ich Arr = Sheets("tabelle1").Range("D1")angepasst habe. Wo ist der Fehler:
Dim mydic
Dim Arr
Dim L As Long
Set mydic = CreateObject("Scripting.Dictionary")
Arr = Sheets("tabelle1").Range("D1").CurrentRegion
For L = 1 To UBound(Arr)
mydic(Arr(L, 1)) = mydic(Arr(L, 1)) + 1
Next
'Ausgeben
Sheets("tabelle2").Range("A1").Resize(mydic.Count) = WorksheetFunction.Transpose(mydic.keys)
Sheets("tabelle2").Range("B1").Resize(mydic.Count) = WorksheetFunction.Transpose(mydic.items)
Grüße, Andreas |