Leere Zellen mit Wert befüllen
19.07.2021 14:10:10
Tim
wie pass ich den Code an, sodass er in Spalte E ab Zeile 2 mir alle leeren Zellen dynamisch, bis zu meiner letzten befüllten Zeil, mit dem Wert pro befüllt ?
Danke für die Hilfe :)
Public Sub LeereZellenmitWertbefüllen()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("E2")
For Each Zelle In Bereich
If Zelle.Value = "" Then
Zelle.Value = "pro"
End If
Next
End Sub