Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle nichtnumerischen Werte auf Null setzen

Gruppe

Bearbeiten

Problem

Wie kann ich in einem ausgewählten Bereich für alle nichtnumerischen Werte eine Null eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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