AW: Userform - ComboBox Einträge automatisch erweitern
27.04.2010 11:27:59
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