Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte Einträge in Combobox

Doppelte Einträge in Combobox
03.09.2007 09:39:40
José
Hallo
Ich habe eine USERFORM. Die Combobox fülle ich mit folgenden Code. Nun kommen aber in der Spalte die Ich aus der Excel Datei auslese, viele Einträge doppelt. ALso wenn in der Spalte 30 x "Super" drin steht dann zeigt die Combobox auch 30 mal "Super" an. Ich möchte aber das die Combobox jeden eintrag nur einmal aufzeigt. Danke
Dim z As Range
Dim sp As Range
Dim ersteAdresse As String
Dim AnzLeerZeilen As Long
ComboxProdArt.ListIndex = 0
LiBoxProdukt.Clear
With KompatibelHersteller
Set z = .Find(CB_Hersteller.Value, LookIn:=xlValues)
If Not z Is Nothing Then
ersteAdresse = z.Address
Do
LiBoxProdukt.AddItem (Worksheets("KompatibelListe").Cells(z.Row, 3).Value)
Set z = .FindNext(z)
Loop While Not z Is Nothing And z.Address ersteAdresse
End If
End With
With LiBoxProdukt
.ListIndex = 0 ' = ersten Eintrag auswählen.
End With

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Einträge in Combobox
03.09.2007 09:51:00
José
Hier noch der Rest
Danke

Private Sub ComBoxMitbewerber_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim AnzLeerZeilen As Long
ComBoxMitbewerber.Clear
Worksheets("Kompatibelliste").Activate
i = 3
Do While i  "" Then
ComBoxMitbewerber.AddItem (KompatibelListe.Cells(i).Value)
Else
AnzLeerZeilen = AnzLeerZeilen + 1
End If
If AnzLeerZeilen > 10 Then
Exit Do
End If
i = i + 1
Loop
With ComBoxMitbewerber
.ListIndex = 0 ' = ersten Eintrag auswählen.
End With
End Sub


AW: Doppelte Einträge in Combobox
03.09.2007 09:53:00
Peter
Hallo José,
hier ein Beispiel

Private Sub UserForm_Activate()
Dim col   As New Collection
Dim lRow  As Long
lRow = 1
On Error Resume Next
Do Until IsEmpty(Cells(lRow, 1))
col.Add CStr(Cells(lRow, 1).Value), CStr(Cells(lRow, 1).Value)
lRow = lRow + 1
Loop
On Error GoTo 0
For lRow = 1 To col.Count
ComboBox1.AddItem col(lRow)
Next lRow
End Sub


Gruß Peter

Anzeige
AW: Doppelte Einträge in Combobox
05.09.2007 14:17:38
José
Code habe ich ausprobiert .
Fehler kommt keiner aber leider zeigt er immer noch alle Einträge an.
Gruß
José

AW: Doppelte Einträge in Combobox
03.09.2007 09:59:00
Gerd
Hallo José,
ich hätte jetzt eher vermutet, dass mit diesem Teil-Code eine Listbox "LiBoxProdukt" gefüllt wird ?
Gruß Gerd

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige