vorhandene Listbox um eine Spalte erweitern.
01.12.2014 09:02:53
Timo
beim Aufruf einer Userform wird Spalte 7 durchsucht und ohne doppelte Werte die Listbox gefüllt. Jetzt würde ich gerne über einen Button die Summe aus Spalte 8 zu jedem Eintrag aus Spalte 7 als zweite Spalte in der Listbox abbilden.
Wie kann ich das lösen?
Ich komme nicht weiter
Private Sub UserForm_Activate()
Dim hsh As Object
Dim i As Long
Set hsh = CreateObject("Scripting.Dictionary")
With Sheets("Daten_Satz")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
hsh(.Cells(i, 7).Text) = 0
Next
End With
With Me
.ListBox1.List = Application.Transpose(hsh.Keys)
End With
End Sub
Timo
Anzeige