Markro erweitern
03.12.2014 15:24:30
Kurt
anbei habe ich das Makro übers Forum erhalten, funktioniert einwandfrei.
Es werden die Namen in Spalte H ab Zeile 4 geschrieben und die Werte werden in I ab4
geschrieben.
Wie kann man dies in einer UF darstellen ?
gruß kurt w
Dim dic As Object
Dim arrNamen
Dim z As Long
Set dic = CreateObject("scripting.dictionary")
arrNamen = Range("D4:D" & Cells(Rows.Count, 2).End(xlUp).Row).Value
For z = 1 To UBound(arrNamen, 1)
dic(arrNamen(z, 1)) = dic(arrNamen(z, 1)) + 1
Next
Range("H4").Resize(dic.Count, 1).Value = WorksheetFunction.Transpose(dic.keys)
Range("I4").Resize(dic.Count, 1).Value = WorksheetFunction.Transpose(dic.Items)