VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eingabe auf bereits vorhanden prüfen und, wenn nein, einfügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change