Private Sub suchBoxBttn_Click()
Dim c As Range
With ActiveSheet.UsedRange.Columns(1)
.Interior.Color = xlColorIndexNone
Set c = .Find(Me.TextBox1.Text, , xlValues, xlWhole)
If Not c Is Nothing Then
c.Interior.ColorIndex = 6
Call MsgBox("vorhanden", vbExclamation)
Else
With .Cells(.Cells.Count).Offset(1)
.Value = Me.TextBox1.Text
.Offset(, 1).Value = Me.TextBox2.Text
End With
End If
End With
Unload Me
End Sub