ich benötige eure Unterstützung bei folgendem Problem:
Für eine Überprüfung der Eingabe möchte ich zwei Spalte in Abhängigkeit zueinander überprüfen.
Wenn in Spalte A (A8:A108) das Wort "Active" eingegeben wurde darf in Spalte B (B8:B108) bei der Eingabe kein Leerzeichen vorhanden sein. Das gleiche umgekehrt.
Folgenden Code habe ich hierzu gebastelt. Es funktioniert nur die Erste Überprüfung und auch nur mit dem ErrorHandler.
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo GetOut
If Intersect(Range("B8:B108"), Target) Like "* *" Then 'Eingegebene Wert
If Cells(Target.Row, 1) Like "*Active*" Then 'Vorhandene Wert
MsgBox "In Active Gruppen dürfen keine Leerzeichen stehen. Bitte entfernen Sie diese _
und tätigen Ihre Eingabe erneut. Vielen Dank"
Application.Undo
End If
ElseIf Intersect(Range("A8:A108"), Target) Like "*Active*" Then 'Eingegebene Wert
If Cells(Target.Row, 2) Like "* *" Then 'Vorhandene Wert
MsgBox "In Active Gruppen dürfen keine Leerzeichen stehen. Bitte entfernen Sie _
diese und tätigen Ihre Eingabe erneut. Vielen Dank"
Application.Undo
End If
End If
'GetOut:
End Sub
Für Tipps wäre ich sehr dankbar!Viele Grüße Chris