Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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.

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
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
Anzeige

45 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige