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
ServusProblemstellung
Wie kann ich Eingabelücken mit Werten auffüllen?
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen