ich habe gerade versucht mit dem folgenden Code leere Zellen mit Punkten zu befüllen.
Public Sub LeereZellenmitNullenfüllen()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("A3:Z200")
For Each Zelle In Bereich
If Zelle.Value = "" Then
Zelle.Value = "."
End If
Next
End Sub
Das funktioniert auch eigentlich ganz gut. Wenn ich allerdings weitere Spalten (der Code müsste _ die Spalten A bis EP abdecken) einbauen möchte
Public Sub LeereZellenmitNullenfüllen()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("A3:EP200")
For Each Zelle In Bereich
If Zelle.Value = "" Then
Zelle.Value = "."
End If
Next
End Sub
kommt ein Runtime-Error (13). Habt ihr eine Idee, wie man den Code anpassen muss, damit es klappt?
Vielen Dank und viele Grüße
JS