sitze gerade an einem Problem.
Wie kann ich über die Datenüberprüfung verhindern das in Zelle C39 etwas eingegeben wird, wenn in Zelle H6 der Text "Morgen" steht ?
Gruß Ralf
If Target.Address = "$C$39" Then
If Range("H9").Value = "Morgen" Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
MsgBox "hier Eingabe nicht möglich, wenn in H9 = ''Morgen''"
End If
End If
Hilfts?
=H6"Morgen"
Gruß ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$39" Then
If Range("H6").Value = "Morgen" Then
Application.EnableEvents = False
ActiveCell.Offset(1, 0).Select
Application.EnableEvents = True
MsgBox "Eingabe nicht möglich, da in H9 = ''Morgen''", vbCritical, "!"
End If
End If
End Sub
Servus