VBA prüfen, ob Zahl eine Null hinterm Komma hat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aTest() Dim zahl As Double zahl = 33333 ' If zahl = Fix(zahl) Then 'oder If zahl = Int(zahl) Then MsgBox "glatt" Else MsgBox "nicht glatt" End If If zahl = CInt(zahl) Then ' Überlauf! MsgBox "glatt" End If End Sub

Sub test() a = 1 zahl = 0 With Worksheets("Tabelle1") For i = 1 To 20000 zahl = i - (i * 0.19) ' Version von Klaus If VBA.Right(Format(zahl, "0.00"), 1) = 0 Then a = a + 1 Cells(a, 2).Value = zahl Cells(a, 3).Value = i * 0.19 Cells(a, 4).Value = zahl + (i * 0.19) End If ' andere Formel von Erich If 10 * zahl = Fix(10 * zahl) Then Cells(a, 5).Value = zahl End If Next i End With End Sub

Hi,
auch wenn es deinem Cheffe nun schon gefallen hat - mein Fix-Vorschlag ist so oft falsch. :-(
Das liegt daran, dass z. B. für i=10
zahl = i - (i * 0.19)
aufgrund der notwendigerweise ungenauen Darstellung von Gleitkommazahlen nicht exakt
zahl = 10 - (10 * 0.19) = 8,1 ist, sondern vielleicht aucn mal
zahl = 8,0999999999999999995 oder
zahl = 8,1000000000000000003
Im Fall zahl = 8,0999999999999999995 schneidet Fix 10*zahl auf 80 ab - und die 8,1 fehlt in deiner Liste.
Um das zu verhindern, kann man 10*zahl auf viele Nachkommastellen runden. Dann ist die Prüfung:
If 10 * zahl = Fix(Application.Round(10 * zahl, 10)) Then
Da bei dir jetzt gerade keine Cent-Bruchteile vormkommen, stimmen Klaus' und meine neue Liste überein. :-)
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Hi,
irgendwie war ich in dieser Frage fixiert auf das Fix...
Nun mal völlig losgelöst (in meiner zweiten Version):


Option Explicit
Sub test()
Dim zahl As Double
Dim i As Long     ' nicht Double
Dim a As Long     ' nicht Double
a = 1
zahl = 0
With Worksheets("Tabelle1")
For i = 0 To 2000
zahl = i - (i * 0.19)
If VBA.Right(Format(zahl, "0.00"), 1) = 0 Or _
10 * zahl = Fix(10 * zahl) Or _
IstGlatt(zahl, 1) Then
a = a + 1
Cells(a, 1) = i
Cells(a, 2) = zahl
' Version von Klaus
If VBA.Right(Format(zahl, "0.00"), 1) = 0 Then Cells(a, 3) = "K"
' erste Version von Erich - da fehlen viele Werte
If 10 * zahl = Fix(10 * zahl) Then Cells(a, 4) = "E1"
' zweite Version von Erich - Ergebnis wie bei Klaus
If IstGlatt(zahl, 1) Then Cells(a, 5) = "E2"
End If
Next i
End With
End Sub
Function IstGleich(dZahl1 As Double, dZahl2 As Double) As Boolean
IstGleich = Abs(dZahl1 - dZahl2)

i und a sollte man nicht als Double, sondern als Long deklarieren.
Schleifenzähler und Zeilennummern sind nicht double.
Die Funktionen IstGleich() und IstGlatt() können auch in Formeln im Tabellenblatt verwendet werden.
IstGlatt() bekommt als Parameter die zu testende Zahl und die (evtl. auch negative) Anzahl Nachkommastellen,
z. B ist IstGlatt(123.45, 1) = False (123.45 ist keine glatte 0,10er Zahl)
IstGleich(x, y) ergibt, ob zwei Double-Zahlen als gleich angesehen werden können oder nicht.
Dass das keineswegs trivial ist, zeigt sich in dieser Mappe:
https://www.herber.de/bbs/user/85389.xls
Schöne Pfingsten allerseits!
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

VBA prüfen, ob Zahl eine Null hinterm Komma hat

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA prüfen, ob Zahl eine Null hinterm Komma hat

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread