Textprüfung
23.07.2013 07:27:50
Patrick
ich habe gerade folgenden Code geschrieben:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B5").Value = "X" And Range("C5").Value = "X" And Range("D5").Value = "X" And Range(" _
_
E5").Value = "X" Then
MsgBox "Text"
End If
End Sub
Aber irgendwie funktioniert das nicht.
Es soll einfach geprüft werden, ob in den genannten Zellen (B5,C5,D5,E5) gleichzeitig der Buchstabe "X" eingetragen ist. Wenn das der Fall ist soll eine MsgBox erscheinen.
Das Ganze soll ohne Button erfolgen, d.h. sobald der letzte Wert eingetragen wurde soll die Box erscheinen.
Gruß
Patrick