Ein Bereich in einem Blatt nach Wert suchen

Computer: Software & Programmierung Office Software
1

Guten Abend,

ich möchte alle Zellen in einem Bereich (z.B. C4:Z9) eines Blattes mit Werten > 0 finden und Wert der gefundenen Zellen auf 0 setzen.

Wie kann ich es am besten mit einem Makro erledigen?

Viele Grüße
Peter

2

ich möchte alle Zellen in einem Bereich (z.B. C4:Z9) eines
Blattes mit Werten > 0 finden und Wert der gefundenen
Zellen auf 0 setzen.

Wie kann ich es am besten mit einem Makro erledigen?

Hi Peter,
vielleicht so:

Sub Nullen()
Dim Zelle As Range
For Each Zelle In Range("C4:Z9")
 If Zelle.Value \> 0 Then Zelle.Value = 0
Next Zelle
End Sub

Gruß
Reinhard

3

Hi!

Wenns einfacher fällt, unter Funktionen die Wenn-Funktion auswählen. Dann den bereich markieren, der nach >0 gesucht werden soll, dahinter >0 reintippen, bei „dann“ =0 eintippen
und dann sollte es klappen

ich möchte alle Zellen in einem Bereich (z.B. C4:Z9) eines
Blattes mit Werten > 0 finden und Wert der gefundenen

Zellen auf 0 setzen.

Wie kann ich es am besten mit einem Makro erledigen?

Hi Peter,
vielleicht so:

Sub Nullen()
Dim Zelle As Range
For Each Zelle In Range(„C4:Z9“)
If Zelle.Value > 0 Then Zelle.Value = 0
Next Zelle
End Sub

Gruß
Reinhard

4

Hallo Reinhard,

vielen Dank.

Ich habe es ausprobiert. Die Zellen > 0 wurden, wie gewollt, auf 0 gesetzt.

Aber, die Zellen mit Text wurden ebenso auf 0 gesetzt. Das wollte ich aber nicht.

Gruß
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

Hi Peter,
kleine Aenderung nötig:
If IsNumeric(Zelle.Value) And Zelle.Value > 0 Then Zelle.Value = 0
Gruss
Erich

6

Hi Erich,
danke nochmals.
Es funktioniert pefekt.
Gruß
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]