Userform - ComboBox Einträge automatisch erweitern

Pixeldieb · 1970-01-01T00:00:00+00:00

Hallo Fachmänner, kann man eine ComboBox dazu bringen, dass ein Text der in das Feld eingegeben wird, automatisch in die Auswahliste eingetragen wird? Beispiel: Die ComboBox hat die Auswahlmöglichkeiten "Rot", "Blau", "Grün", ich schreibe aber in das Feld "Gelb" hinein und möchte, das dieser Eintrag automatisch beim nächsten Mal mit ausgewählt werden kann. Das Speichern in der Auswahlliste soll schon beim "Sub ComboBox_Exit" passieren. Dann könnte man nämlich auch so die Auswahlliste einfach und schnell füllen, ohne den Inhalt der kompletten UserForm zu speichern. Vorschläge sind Wilkommen ;-) Gruß Pixeldieb

Hallo Hajo,
das verstehe ich jetzt nicht.
Mein Makro lautet beispielhaft:

Private Sub UserForm_Initialize()
Dim rng As Range
With Sheets("Vorgaben")
For Each rng In .Range("e2:e20")
UserForm1.ComboBox2.AddItem rng
Next
For Each rng In .Range("f2:f20")
UserForm1.ComboBox3.AddItem rng
Next
End With
End Sub

In den Zellen e2:e4 steht "Rot", "Blau" und "Grün". Die restlichen Zellen sind erst einmal leer.
Gespeichert wird mit:

Private Sub Speichern_Click
If ComboBox.ListIndex = -1 Then
MsgBox "Bitte eine Farbe auswählen oder eintragen"
Me.ComboBox.SetFocus
Exit Sub
End If
With Sheets("Datenbank")
.Range("A65536").End(xlUp).Offset(1, 0) = ComboBox.Text
ComboBox.Text = ""
End With
End Sub

Jetzt hätte ich gerne einen Code, der die Auswahlmöglichkeiten in der ComboBox erweitert, wenn dort etwas eingetragen wird (z. B. "Gelb"), was bis dahin noch nicht zur Auswahl stand. Das Ganze in Form von:

Private Sub ComboBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' Wenn in ComboBox Text eingetragen wird, der noch nicht in
' der Auswahlliste steht, dann speichere den Text unter den
' letzten Eintrag in der Auswahl e2:e20
End Sub

Gruß Pixeldieb

Ich habe mir jetzt mal etwas mit Hilfe des Codes von Matthias gebastelt:

Private Sub UserForm_Initialize()
Dim rng As Range
With Sheets("Vorgaben")
For Each rng In .Range(Cells(1000, 5).End(xlUp).Offset(0, 0), Cells(2, 5))
UserForm1.ComboBox1.AddItem rng
Next
End With
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim X As Long
For X = 0 To ComboBox1.ListCount - 1
If ComboBox1.Value = ComboBox1.List(X) Then Exit Sub
Next
With Sheets("Vorgaben")
.Range("e1000").End(xlUp).Offset(1, 0) = ComboBox1.Text
End With
End Sub

Problem:
Der neue Eintrag wird zwar bei "Exit" in der Liste mit den Auswahlfeldern gespeichert, aber wenn man in der UserForm hin und her klickt leider auch mehrmals.
Wie schaffe ich es, dass die Auswahlliste um den Eintrag sofort ergänzt wird, damit der Eintrag nur einmal gespeichert wird?
Gruß Pixeldieb

Userform - ComboBox Einträge automatisch erweitern

Forumthread: Userform - ComboBox Einträge automatisch erweitern

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Userform - ComboBox Einträge automatisch erweitern

Forumthread: Userform - ComboBox Einträge automatisch erweitern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread