VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle nichtnumerischen Werte auf Null setzen

Gruppe

Allgemein

Bereich

Bearbeiten

Thema

Alle nichtnumerischen Werte auf Null setzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten