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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen