Office: (Office 365) Message Box wenn Zelle leer geblieben ist .

Hallo Zusammen,

in der angehangenen Datei habe ich eine fortlaufende Liste in der Daten eingegeben werden.
In Spalte A wird ein Datum mit Doppelklick eingefügt. In Spalte D ist eine Datenüberprüfung so dass in Spalte D nur die Auftragsnummer eingetragen werden kann wenn in Spalte A das Datum steht.
Dies funktioniert auch ohne Probleme.
Nun habe ich in Spalte J eine Datenüberprüfung in der I.O ausgewählt werden kann.
Zeile 3 und Zeile 4 sind bereits ausgefüllt.
Gerne würde ich nun wenn in Zelle J4 nicht I.O ausgewählt wurde das in der nächsten Zeile garnichts eingetragen werden kann und eine Message Box den Hinweis bringt das die Prüfung nicht erledigt wurde.Und das dann fortlaufend .

Würde mich über Hilfe sehr freuen.

 

Hi,

versuche es mal so

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("A:O")) Is Nothing Then
        If Cells(Target.Row - 1, 10) <> "I.O" Then
            MsgBox "Prüfung nicht durchgeführt"
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
        End If
    End If
End Sub

---

 

Hallo Karin,

das hat so wunderbar funktioniert.