Überschreibe Zelle A1, wenn in B1 "NEIN" steht
15.05.2007 13:30:41
MrJola
in einer Tabelle wird z.B. in Spalte B über eine Auswahlliste "NEIN" eingetragen.
Dann soll in der selben Zeile in Spalte A der eingetragene Zahlenwert mit 0 überschrieben werden.
Dies hier funktioniert leider nicht, Ursprung war ein ähnliches Problem aber mit Datumeingabe.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B6:B13")) Is Nothing Or Not IsDate(Target) Then Exit Sub
Cells(Target.Row, 1) = 0
End Sub
Anstatt dem IsDate(Target) müsste sowas stehen wie IsText(NEIN), aber da kenn ich mich eben nicht mit aus.
Vielen Dank für Eure Hilfe.
Jörg