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
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
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
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
Oder hast Du etwa gar keine Zahlen sondern Texte, die wie eine Zahl aussehen?
Matthias
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
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