Prüfung mit MsgBox auf einzelne Zeilen/Zellen

[Bookshelf3011]

Schönen Abend miteinander,

ich habe erneut eine Frage zu einem Thema an dem ich momentan scheitere:

Ich habe eine Kundenliste die wie folgt aufgebaut ist:

• in ("A2:A20") steht eine Kundenliste
  
• in ("B2:B20") steht der Status (aktiv/inaktiv) zu jedem Kunden (1 = aktiv / leer = inaktiv)
  
• in ("C2:C20") steht die jeweilige Kundeninformation
  

Nun möchte ich - sofern der Kundenstatus inaktiv ist - eine MsgBox aufrufen, sollte jemand versuchen eine Kundeninformation einzutragen.
Natürlich könnte ich bei einer solch kleinen Auflistung auch jede Zelle einzeln ansprechen, jedoch denke ich, dass dies nicht der effektivste Weg ist.

Ist es möglich dies großflächig zu überprüfen, so dass man im Bedarfsfall die Range auch beliebig erweitern kann?

Gruß

Bookshelf3011

[Crazy Tom]

Hallo

meinst du so?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Columns(3)) Is Nothing Then
       If Target.Offset(0, -1).Value = "" Then
           MsgBox "bääähm"
       End If
   End If
End Sub

MfG Tom

[Bookshelf3011]

Hallo Crazy Tom,

genau das meinte ich. Vielen Dank.

Gruß Bookshelf3011