Gruppe
Ereignis
Bereich
Change
Thema
Eingabe auf bereits vorhanden prüfen und, wenn nein, einfügen
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?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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