VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nummerngruppe prüfen und melden

Gruppe

Ereignis

Bereich

Change

Thema

Nummerngruppe prüfen und melden

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.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


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