Private Sub CbVerkauf_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim wsk As Worksheet
Dim i, newrow As Integer
Dim Rng_Such, Rng_Verkauf As String
Dim finden As Range
Set wsk = ActiveWorkbook.Worksheets("kombobox")
With wsk
i = .Cells(Rows.Count, 6).End(xlUp).Row
newrow = i + 1
Rng_Such = "F2:F" & i & ""
Rng_Verkauf = "F2:F" & newrow & ""
Verkauf = CbVerkauf.Text
Set finden = .Range(Rng_Such).Find(Verkauf)
If Not finden Is Nothing Then
Else
.Cells(newrow, 6).Value = Verkauf
MsgBox "Der Verkäufer " & Chr(34) & Verkauf & Chr(34) & " wird hinzugefügt!"
End If
End With
End Sub