Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Eingaben prüfen, ober der Wert schon in anderer Tabelle

Gruppe

Change

Problem

Bei Eingaben in den Tabellen 1 bis 5 wird überprüft, ob der eingegebene Wert bereits an gleicher Stelle in einem anderen Tabellenblatt enthalten ist. Wenn ja, wird die Eingabe nicht akzeptiert.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Dim iWks As Integer
   Dim bln As Boolean
   If Left(Sh.Name, 7) <> "Tabelle" Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   For iWks = 1 To 5
      If Worksheets(iWks).Name <> Target.Parent.Name Then
         If Worksheets(iWks).Range(Target.Address).Value = Target.Value Then
            bln = True
            Exit For
         End If
      End If
   Next iWks
   If bln Then
      Beep
      MsgBox "Sorry, dieser Wert ist schon in Tabelle" & iWks & " enthalten!"
      Application.EnableEvents = False
      Target.ClearContents
      Application.EnableEvents = True
   End If
End Sub