VBA - Nachkommastellen werden automatisch gerundet

[el_gor]

Hallo,

wohl für die Meisten ein kleines Problem ...
Ich habe folgende Schleife konstruiert:

Dim i As Variant
    With ActiveSheet
      For i = 217 To 2 Step -1
         If Val(.Cells(i, 22).Value) = "0." Then .Rows(i).Delete
      Next
   End With

Funktioniert soweit, nur werden Zelleinträge mit 0 und Nachkommastellen automatisch abgerundet und somit auch mit gelöscht.
Wie lautet bitte der genaue Befehl?

Danke und lieben Gruss … Elmar

[schauan]

Hallöchen,

Da Du mit Val eine Zahl wiedergibst, solltest Du auch mit einer Zahl vergleichen, also mit 0 und nicht mit "0.".

[el_gor]

Herzlichen Dank für deine Rückmeldung,

deine Überlegung ist sicher richtig und habe ich auch schon ausprobiert.
Trotzdem befinden sich in meiner Tabelle zwei Beträge < 1   (0,10 und 0,90) und die werden mit gelöscht.
Das sollte so nicht sein.

Trotzdem Danke … vielleicht hast noch eine andere Idee.

lg. Elmar

[RPP63]

Moin!
Warum filterst Du Spalte V nicht nach 0 und löscht die sichtbaren Zeilen?
Dürfte auch erheblich schneller als die Schleife sein.

Ansonsten zeige mal die Datei.

Gruß Ralf

[schauan]

Hallöchen,

mit
If Val(.Cells(i, 22).Value) = "0" Then .Rows(i).Delete
sollten nur 0-Werte gelöscht werden. Es gibt eventuell einen Stolperstein mit dem Dezimaltrennzeichen.
z.B.
0,11 liefert bei Val 0
0.11 liefert bei Val 0,11

ich würde da eventuell erst mal auf isnumber prüfen und wenn ja, direkt vergleichen.
Ist es Text, dann ggf. was in der Art val(replace(.cells(…),",","."))

if isnumber(.Cells(…)) then
if .cells(…)=0 then
else
if val(replace(.cells(…),",",".")) = 0 then ...
end if

[RPP63]

Hüstel!
IsNumeric()

[el_gor]

Hallo und danke ...

so habe ich's hinbekommen:

With ActiveSheet
      For i = 217 To 2 Step -1
      If Val(Replace(.Cells(i, 22), ",", ".")) = 0 Then
      If Val(.Cells(i, 22).Value) = 0 Then .Rows(i).Delete
      End If
      Next
   End With

Herzlichen Dank nochmals … hast mir sehr geholfen.

lg. Elmar