Listbox mit eindeutigen Werten aus 3.Tab
31.10.2022 14:05:56
Thomas
ich möchte eine Listbox aus 3 Tabellen füllen, wobei nur eindeutige Werte in die Listbox aufgenommen werden sollen, also das es keine Doppelungen gibt.
Die Listbox aus einer Tabelle zu füllen, geschieht aktuell so:
Sub ListFuellen()
Dim lngRow As Long
Dim lngLastRow As Long
Dim Nummer As String
Dim BereichWiehl As String
If for.opt1 = True Then Nummer = "1"
If for.opt2 = True Then Nummer = "2"
If for.opt3 = True Then Nummer = "3"
for.lib.Clear
for.lib.ColumnCount = 3
for.lib.ColumnWidths = "3,1cm;3cm;1,5cm"
for.lib.BackColor = RGB(188, 210, 238)
With tblEins
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For lngRow = 2 To lngLastRow
If .Cells(lngRow, 6) = for.cob.Value And .Cells(lngRow, 7) = Bereich Then
for.lib.AddItem .Cells(lngRow, 34).Value
for.lib.List(for.lib.ListCount - 1, 1) = .Cells(lngRow, 4).Value & "," & .Cells(lngRow, 3).Value
for.lib.List(for.lib.ListCount - 1, 2) = "|" & .Cells(lngRow, 2).Value
End If
Next lngRow
End With
End Sub
Wie kann ich die beiden weiteren Tabellen (tblZwei und tblDrei)mit den gleichen IF prüfungen in die Listbox einlesen, wo nur zusätzlich noch geprüft wird ob es diesen eintrag nicht schon gibt?
Danke