Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Negative Werte eliminieren

Negative Werte eliminieren
29.11.2016 11:07:30
Hans
Hallo Leute,
es geht um folgendes Problem:
Ich habe eine Tabelle und würde gerne alle negativen Werte in dieser Tabelle auf 0 setzen lassen.
Da ich leider im 1. Semester das letzte Mal mit VBA gearbeitet habe, wäre es super, wenn mir jemand helfen könnte.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Negative Werte eliminieren
29.11.2016 11:17:14
Michael
Hallo!
Eine Möglichkeit:
Sub a()
Dim c As Range
With ActiveSheet
For Each c In .UsedRange.SpecialCells(xlCellTypeConstants)
With c
If .Value 
LG
Michael
AW: Negative Werte eliminieren
29.11.2016 12:14:40
Hans
Danke, funktioniert wunderbar!
Gern, lg und owT
29.11.2016 12:23:21
Michael
Anzeige
AW: Auf einen Schlag negative Werte eliminieren
29.11.2016 19:33:05
Gerd
Hallo
Sub test()
ActiveSheet.UsedRange.Replace "-*", 0, xlWhole
End Sub
Gruß Gerd

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige