Combobox soll nur bestimmte Zeilen zeigen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi
es gibt 2 Methode, eine List- oder Combobox zu befüllen:
1. über einen Zellbezug in der Listfillrange bzw Rowsource-Eigenschaft
2. über die Funktion combobox1.Add bzw Combobox1.clear im Vorfeld
beide Methoden kann man nicht mischen, aber genau das versuchst du und daher kommt der Fehler, weil
Combobox1.Clear nicht ausführbar ist, wenn in der Eigenschaft Listfillrange ein Zellbezug drinsteht.
als lösungsmöglichkeit gibts 2 varianten:
1. du baust einen Dynamischen Namen, der sich automatisch dem gewünschten Zellbezug anpasst:
der Definitionsstring von "Datenbank" wäre dann:
=BEREICH.VERSCHIEBEN(Datenbank!$A$1;VERGLEICH("Ptn";Datenbank!$C:$C;0)-1;0;ZÄHLENWENN(Datenbank!$C:$C;"Ptn");2)
allerdings muss dann die Liste nach Spalte C sortiert sein, sonst gibts unsinnige Ergebnisse.
2. du löscht den Zellbezug in der Eigenschaft Listfillrange und befüllst die combobox per Makro, das geeignete Event hierfür ist allerdings nicht CHANGE sondern GOTFOCUS bzw ENTER (für Userform) oder auch DROPBUTTONCLICK
Gruß, Daniel

Private Sub ComboBox1_DropButtonClick() Dim wks As Worksheet, Zeile As Long Set wks = Worksheets("Datenbank") With wks For Zeile = 2 To .Cells(1, 1).End(xlDown).Row If Cells(Zeile, 3).Value = "Ptn" Then Me.ComboBox1.AddItem Zeile End If Next End With End Sub

Hi
das befüllen einer Combo- oder Listbox geht so:

Private Sub ComboBox1_GotFocus()
Dim wks As Worksheet, Zeile As Long
Set wks = Worksheets("Datenbank")
With ComboBox1
.Clear
For Zeile = 2 To wks.Cells(1, 1).End(xlDown).Row
If wks.Cells(Zeile, 3).Value = "Ptn" Then
.AddItem wks.Cells(Zeile, 1)
.List(.ListCount - 1, 1) = wks.Cells(Zeile, 2)
End If
Next
End With
End Sub



Private Sub ComboBox1_GotFocus()

Dim wks As Worksheet, Zeile As Long

Set wks = Worksheets("Datenbank")

With ComboBox1

.Clear

For Zeile = 2 To wks.Cells(1, 1).End(xlDown).Row

If wks.Cells(Zeile, 3).Value = "Ptn" Then

.AddItem wks.Cells(Zeile, 1)

.List(.ListCount - 1, 1) = wks.Cells(Zeile, 2)

End If

Next

End With

End Sub

die Anzahl der Spalten muss in den Eigenschaften unter "ColumnCount" eingetragen werden
beachte: die Indexzählung beginnt bei 0, daher ist der Index der grössten Zeile/Spalte immer um 1 kleiner als die Anzahl der Zeilen/Spalten.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Combobox soll nur bestimmte Zeilen zeigen

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox soll nur bestimmte Zeilen zeigen

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread