"If Range" enthält nicht spezielle Werte

[Bookshelf3011]

Schönen Abend miteinander,

kann mir jemand eventuell beantworten, wie die Codezeile ...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("AM5").Value <> 144 Then _
       MsgBox ("Falscheingabe!")
   
End Sub

... lauten muss, wenn ich die MsgBox ausgeben möchte, sobald die Zelle "AM5" zwei exakte Werte (in diesem Fall 0 und 144) nicht anzeigt?

Vielen Dank und allen noch einen schönen Abend.

Gruß

Bookshelf3011

[atilla]

Hallo,

ich würde es so handhaben:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "AM5" Then
   If Target <> "" Then
    If Range("AM5").Value <> 144 And Range("AM5").Value <> 0 Then
        MsgBox ("Falscheingabe!")
    End If
   End If
 End If
End Sub

[Rabe]

Hi,

sobald die Zelle "AM5" zwei exakte Werte (in diesem Fall 0 und 144) nicht anzeigt?

so?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("AM5").Value <> 144 And Range("AM5").Value <> 0 Then _
      MsgBox ("Falscheingabe!")
End Sub

[Bookshelf3011]

Vielen Dank euch beiden für die tollen Antworten...

Das war genau was ich gesucht habe.

Mit freundlichem Gruß

Bookshelf3011