Ich möchte alle leeren Zellen eines Tabellenblattes mit der Zahl 1 befüllen!
Weiß jemand von euch, wie da vorzugehen ist (gibt es auch einen Lösungsansatz ohne VBA?)
Danke im Voraus!
Tom
Sub fuellen()
For Each Zelle In Selection
If Zelle.Value = "" Then Zelle.Value = "1"
Next Zelle
End Sub