Office: (Office 365) wert aus ComboBox prüfen dann hinzufügen

Gutn Morgen zusammen,

mit folgendem Code fülle ich meine ComboBox


Private Sub UserForm_initialize()
With ComboBox1
For Repeatings = 2 To Worksheets("Einstellung").Range("EZ65536").End(xlUp).Row
.AddItem Worksheets("Einstellung").Cells(Repeatings, 156).Value
Next
End With
End Sub

Das funktioniert auch super. Nun möchte ich gerne folgendes machen.

Wenn ich nun einen Wert per Hand eingebe dieser aber nicht in der Liste ist soll dieser der Liste hinzugefügt werden.

Wie kann ich dies machen?


Gruß Michael

wünsche euch einen guten Wochenstart

 

Ich habe mir eine Lösung zusammen gebastellt. Sie Funktioniert. Gibt bestimmt bessere und schönere Lösungen.
Hier mal mein Code

Code:

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set WkSh = ThisWorkbook.Worksheets("Einstellung")
With WkSh.Columns(156)
    Set rZelle = .Find(ComboBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
End With

    If Not rZelle Is Nothing Then
        MsgBox "Wert gefunden"
    Else
        MsgBox "Wert nicht gefunden und wird eingetragen"
 
        Dim lLetzte  As Long
        With Worksheets("Einstellung")
            lLetzte = IIf(.Range("EZ65536") <> "", 65536, .Range("EZ65536").End(xlUp).Row) + 1
            If lLetzte < 2 Then lLetzte = 2
                .Cells(lLetzte, 156).Value = ComboBox1.Value 'Alarm-ID
        End With
    End If
End Sub

Gruß Michael