Gruppe
Ereignis
Problem
Bei Eingaben in Spalte A soll abgeprüft werden, ob die Nummerngruppe der ersten 3 Zeichen in Spalte A im Blatt "Daten" existiert. Ergebnisausgabe als Meldung.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim sNo As String
If Target.Column <> 1 Then Exit Sub
sNo = Left(Target.Value, 3)
Set rng = Worksheets("Daten").Columns(1).Find(sNo, _
lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
MsgBox "Nummerngruppe " & sNo & " existiert"
Else
MsgBox "Nummerngruppe " & sNo & " existiert nicht"
End If
End Sub