Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range, AV, R&, C&, LR&, S$
Dim bereitsVorhanden As Boolean
Dim tSh As Worksheet
S = TextBox1.Text
Set tSh = ActiveSheet
With tSh
LR = .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = .Range(.Cells(1, 1), .Cells(LR, 2))
End With
AV = rng.Value
For R = 1 To UBound(AV)
For C = 1 To UBound(AV, 2)
If AV(R, C) = S Then
tSh.Cells(R, 2) = AV(R, 2) + 1
bereitsVorhanden = True
End If
Next
Next
If Not bereitsVorhanden Then
If Not AV(1, 2) = "" Or Not LR = 1 Then LR = LR + 1
With tSh
.Cells(LR, 1) = TextBox1.Value
.Cells(LR, 2) = 1
End With
End If
End Sub