Abfrage, ob Nachkommastellen vorhanden

[Michael Ahrens]

Gibt es einen Befehl, mit dem ich eine Zahl (z.B. 3,456)

- Ganze Zahl (3)
- Nachkomma-Zahl (,456 oder 456)

zerlegen kann ?

Danke! Michael.

[Alexander Wolff]

Post by Michael Ahrens
Gibt es einen Befehl, mit dem ich eine Zahl (z.B. 3,456)
- Ganze Zahl (3)
- Nachkomma-Zahl (,456 oder 456)
zerlegen kann ?

=GANZZAHL(A1) 3,
=REST(A1;1) ,456 (oder natürlich auch A1-GANZZAHL(A1))

[Michael Ahrens]

Post by Alexander Wolff

Post by Michael Ahrens
Gibt es einen Befehl, mit dem ich eine Zahl (z.B. 3,456)
- Ganze Zahl (3)
- Nachkomma-Zahl (,456 oder 456)
zerlegen kann ?

=GANZZAHL(A1) 3,
=REST(A1;1) ,456 (oder natürlich auch A1-GANZZAHL(A1))

Okay. Aber wenn ich nun in VBA prüfen möchte, ob Nachkommazahlen
vorhanden sind ?

[Michael Ahrens]

Post by Alexander Wolff

Post by Michael Ahrens
Gibt es einen Befehl, mit dem ich eine Zahl (z.B. 3,456)
- Ganze Zahl (3)
- Nachkomma-Zahl (,456 oder 456)
zerlegen kann ?

=GANZZAHL(A1) 3,
=REST(A1;1) ,456 (oder natürlich auch A1-GANZZAHL(A1))

Bisher mache ich das mit

IF Cells(1,1) <> Round(Cells(1,1;0) THEN ...

[Alexander Wolff]

Es gibt normalerweise 3 Möglichkeiten, eine Funktion zu erhalten:

a) Zuweisung der Tabellenfunktion direkt als .Value oder .Formula
b) Verwendung der als WorksheetFunction vorliegenden Tabellenfunktion
c) Verwendung der nativen VBA-Funktion

Meistens sind nicht alle verfügbar; oft sind sie außerdem unterschiedlich.

Konkretes Beispiel Funktion =REST()
-----------------------------------
a) klappt: If Evaluate("=MOD(A1,1)") Then ...
b) ist nicht vorhanden (da in VBA keine Fkt., sondern Operator MOD)
c) Operator MOD , rechnet vorher beide Argumente in Ganzzahlen um (!)

[b***@gmail.com]

Hallo Michael,

zum Beispiel:
Sub test()
Dim ganz As Long
Dim nachkomma As Double
ganz = Application.WorksheetFunction.Floor(Range("A1"),
Sgn(Range("A1")))
nachkomma = Range("A1") - ganz
Debug.Print "Ganzzahlanteil: " & ganz & ", Nachkommaanteil: " &
nachkomma
End Sub

HTH,
Bernd

PS: INT() nicht ok fuer negative Zahlen...

[Klaus "Perry" Pago]

Post by Alexander Wolff

Post by Michael Ahrens
Gibt es einen Befehl, mit dem ich eine Zahl (z.B. 3,456)
- Ganze Zahl (3)
- Nachkomma-Zahl (,456 oder 456)
zerlegen kann ?

=GANZZAHL(A1) 3,
=REST(A1;1) ,456 (oder natürlich auch A1-GANZZAHL(A1))

Hallo Alexander und Michael,

Ganzzahl und Rest funktionieren im Sinne der Aufgabenstellung nur bei
positiven Zahlen. Besser sind folgende Formeln:

=KÜRZEN(A1;0) und =A1-KÜRZEN(A1;0)
oder
=ABRUNDEN(A1;0) und A1-ABRUNDEN(A1;0)

wenn die negativen Vorzeichen der Ergebnisse stören, packt man alles in die
ABS-Funktion

=ABS(KÜRZEN(A1;0)) und =ABS(A1-KÜRZEN(A1;0))
oder
=ABS(ABRUNDEN(A1;0)) und =ABS(A1-ABRUNDEN(A1;0))

dann klappt es auch mit Alexanders Formeln

=GANZZAHL(ABS(A1))
=REST(ABS(A1);1)
=ABS(A1)-GANZZAHL(ABS(A1))

Gruß
Klaus