AW: verstehe da was nicht ...
19.10.2011 10:12:21
KLE
Hi Rudi,
danke für Deine Antwort, habe versucht es bei mir zu platzieren. Leider ohne Erfolg, es werden keine Doppelten angezeigt.
Hier meine Code: - Worin liegt der Fehler?
' Prozedur zum Laden der 3 Listboxen im Frame doppelte
Private Sub DPLaden()
ReDim arrDP(wksDB.Cells(Rows.Count, 1).End(xlUp).Row, 2)
' Array erstellen
With wksDB
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
arrDP(i - 2, 0) = .Cells(i, 2).Value ' PLZ
arrDP(i - 2, 1) = .Cells(i, 8).Value & ", " & .Cells(i, 7).Value ' Ort + Land
Next i
End With
' mein Versuch - Deines Codes... (objDic ist als Dim objDic unter Option Explicit deklariert)
a = 0
Set objDic = CreateObject("Scripting.Dictionary")
For a = 1 To UBound(arrDP) - 1
For j = i + 1 To UBound(arrDP)
If arrDP(a, 1) = arrDP(j, 1) Then objDic(arrDP(a, 1)) = 0
Next
Next
objLBDPame.List = objDic.keys ' Listbox mit Doppelten Einträgen füllen
Set objDic = Nothing
' WICHTIG: Es müssen alle Doppelten angezeigt werden, d.h. z.Bsp: Berlin - Deutschland mit den _
_
' PLZs 13156, 13158 etc. müssen aufgeführt werden...wenn Berlin-Deutschland eben mehrfach _
' vorkommt (aufgrund der verschiedenen PLZs in Berlin)...
'''' ### >>> Frage: das macht objDic ... = 0 nicht, oder ? Oder wofür steht hier die = 0 ?!?
End Sub
Frage:
Ich hätte gern in der Liste auch wieder 2 Spalten der doppelten, d.h. die PLZ & Ort+Land...
Wie kann ich das machen ?
Gruß und Danke!
Kay