habe folgendes Problem.
Ich möchte mit Gültigkeit (oder evtl. einen anderen Befehl) erzwingen, dass in A1 immer ein Wert stehen
muss. Dieser Wert kann auch 0 (null, zero :o)) sein.
Hat jemand eine Idee wie ich das löse ?
LG Stefanwien
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Dim RaZelle As Range
'Bereich der Wirksamkeit festlegen
Set RaBereich = Range("A1")
For Each RaZelle In Range(Target.Address)
'Wenn die veränderte Zelle im Bereich der Wirksamkeit liegt dann...
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If RaZelle.Value = "" Then RaZelle.Value = 0
End If
Next RaZelle
End Sub