Gruppe
Allgemein
Problem
Wie kann ich in einem ausgewählten Bereich für alle nichtnumerischen Werte eine Null eintragen lassen?
StandardModule: basMain
Sub Pruefen()
Dim rng As Range
For Each rng In Range("A1").CurrentRegion.Cells
If Not IsNumeric(rng.Value) Then
rng.Value = 0
End If
Next rng
End Sub