Microsoft Excel

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