Change Ereignis
18.12.2003 13:13:40
Melanie
Ich möchte gerne, wenn in einer Zelle ein bestimmter Wert ausgewählt wird, eine andere Zelle ausnullen. Ich habe mir folgendes gedacht:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Select = "$E$30" Then
If Range("E30").Value = "keine" Then
Range("E31") = 0
'MsgBox "Sie haben gerade Zelle E30 geändert!"
End If
End If
End Sub
Leider funktioniert das Ausnullen so nicht... Die If-Abfrage habe ich mit Hilfe der Message-Box getestet. Wer kann mir helfen?
Als Hinweis: Die Zelle E30 besteht aus einem Listenfeld (über Daten->Gültigkeit festgelegt) und beinhaltet neben "keine" diverse Jahreszahlen. Die Zelle E31 ist ein Betrag.