Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
232to236
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Korrektur von negativen Zahlenwerten auf Null

Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:36:32
Mirko
Hallo Leute,

ich habe ein Problem. Ich möchte, wenn es dann geht, mit Hilfe eines Makros ein paar Werte korrigieren. Ich hätte gerne, das jedesmal, wenn ein negativer Wert erscheint, dieser auf Null korrigiert wird. Wie stelle ich das an?

Danke füre die Hilfe

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:41:38
MRR

Aus dem Bauch:
Zellen markieren, dann folgendes Makro

Geht das?
Matthias

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:46:43
Mirko

Geht leider nicht!

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:47:44
Mirko

Funktioniert leider nicht!

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:48:24
Andi_H

Hallo mirko,

wäre nett wenn du sagst in welchen Zeilen/Spalten deine Werte stehen. Code würde folgendermaßen aussehen:
korrigiert alle werte in Spalte 1
sub korregieren()
dim i as integer
for i = 1 to cells(65000,1).end(xlup).row
if cells(i,1).value < 0 then cells(i,1)=0
next i
end sub

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:48:28
Andi_H

Hallo mirko,

wäre nett wenn du sagst in welchen Zeilen/Spalten deine Werte stehen. Code würde folgendermaßen aussehen:
korrigiert alle werte in Spalte 1
sub korregieren()
dim i as integer
for i = 1 to cells(65000,1).end(xlup).row
if cells(i,1).value < 0 then cells(i,1)=0
next i
end sub

Anzeige
Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:48:41
Mirko

Geht leider nicht!

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:48:50
MRR

Mein bauch war OK: und sie bewegt sich doch!
Bei mir kein Problem.
Makro in Modul setzen.
Zellen markieren.
Makro starten.
Geht!

Oder hast Du etwa gar keine Zahlen sondern Texte, die wie eine Zahl aussehen?
Matthias

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:54:23
Mirko

Steht in Spalte "K".

Sieht der Code jetzt so aus:

Sub korregieren()
Dim i As Integer
For i = k To Cells(65000, k).End(xlUp).Row
If Cells(i, k).Value < 0 Then Cells(i, k) = 0
Next i
End Sub

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 16:58:44
Andi_H

Excel zählt die Spalten, A = 1, B = 2, ...
wenn du deine k`s durch 11 ersetzt läuft es
Sub korregieren()
Dim i As Integer
' diese 1 nicht ändern, da das i sich auf die Zeile bezieht
For i = 1 To Cells(65000, 11).End(xlUp).Row
If Cells(i, 11).Value < 0 Then Cells(i, 11) = 0
Next i
End Sub

Anzeige
Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 17:05:07
Mirko

Merci vielmals Andi! Es klappt!

Re: Korrektur von negativen Zahlenwerten auf Null
19.03.2003 17:10:41
Manfred

Hallo Mirko,

versuchs's mal so:

Sub negativ()
For Each x In ActiveSheet.Range("Bereichanfang:Bereichende")
If x.Value <> "" And x.Value < 0 Then x.Value = 0
Next x
End Sub

Für Bereichanfang und Bereichende den Zellbereich eintragen
in dem die Zahlen stehen.

z.B A1:A10 für Spalte A Zeilen 1 bis 10

mfg

Manfred

304 Forumthreads zu ähnlichen Themen

Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Anzeige
Verweis auf MS Forms 2.0 setzen per Vba
Reinhard

Hallo Wissende,
ich will eine xla erstellen, die den Verweis auf Microsoft Forms 2.0 Object Libraray benötigt. Der Verweis zielt in XL97 auf eine andere Datei als in XL2000, deshalb sind auch die Guid-Nummern verschieden.
Option Explicit #If VBA6 = 0 Then Const FM20_GUID = "{C43ABEE0-...
06.11.2008 16:57:01
Thread-ID: 1022358
6 Beiträge
Zellen über Button auf 0 setzen
m-andi

Guten morgen,
Ich habe folgendes Problem:
Ich möchte auf der Ersten Seite meiner Excel-Mappe einen Butten haben mit dem ich einzelne Felder in der Gesamten Arbeitsmappe Löschen kann.
Also z.B. auf dem Blatt 2 die Felder A12:A18; B23; dann auf Blatt 2 C60; D34; auf Blatt 3 C2:F12; us...
08.12.2008 08:45:18
Thread-ID: 1030970
2 Beiträge
Anzeige
Wenn kein Eintrag dann 0
Alex

Hi @ all!
Habe ein kleines Problem:
Habe folgende Formel, aber es wird immer Divison durch Null angezeigt...
=WENN(H3=" ";"0";H3/F3)
Ich quasi nur Teilen, wenn in H3 ein Eintrag vorhanden ist, oder eben wenn kein Eintrag vorhanden ist soll 0 da stehen...
Vielen Dank schon ma...
14.07.2009 12:41:15
Thread-ID: 1088433
5 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Tool/Tabelle wieder auf 0 setzen
Christopher

Hi Leute,
ich hätte da eine Frage und zwar habe ich ein Makro angelegt mit dem ich eine Wertekopie erstellen kann. Im nächsten Schritt wäre es super wenn die Tabelle oder das Tool Kontierung wieder auf 0 gesetzt werden würde? Wie mache ich das am besten?
Hier mein Makro:
Sub Werteko...
22.09.2009 10:33:57
Thread-ID: 1104587
13 Beiträge
#NV in 0 umwandeln
rainer
Hallo! Die NV# entstehen duech Formeln, für die kein Wert berechnet werden konnte. Modifiziere deine Formel analog zu:
vorher: Zelle A1:(Formelxy)
nachher: wenn (istfehler(formelxy);0;formel(xy))
15.04.2002 11:51:26
Thread-ID: 113365
4 Beiträge
Zelleneintrag "1200" in Uhrzeit 12:00 umwandeln
',," (2x Komma) Durch:':' (Doppelpunkt).Nun kannst Du 'komfortabel' auf dem Ziffernblock 2 Kommas eingeben; der Doppelpunkt eird generiert.Ansonsten als Ansatz fogende VBA-Makros von Michael Schwimmer:
16.04.2002 10:15:59
Thread-ID: 113633
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
6
5
1
7
4
2
12
3
1
8
7
4
6
4
6
6
11
3
4
3
4
9
4
3