Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Eingabe auf bereits vorhanden prüfen und, wenn nein, einfügen
Gruppe
Change
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