Gruppe
Ereignis
Problem
Wie kann ich Zelleingaben darauf überprüfen, ob der Wert in einer Liste bereits vorhanden ist und diesen, wenn nicht, an das Ende der Liste anfügen lassen?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
If Target.Address <> "$A$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Columns(1), Target.Value) > 1 Then
MsgBox "Wert ist schon vorhanden!"
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(iRow, 1).Value = Target.Value
End If
End Sub