Clever-Excel-Forum

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

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

Hi,

(06.04.2017, 22:36)Bookshelf3011 schrieb: [ -> ]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

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

Das war genau was ich gesucht habe.

Mit freundlichem Gruß

Bookshelf3011

Bookshelf3011

atilla

Rabe

Bookshelf3011