Office: (Office 2010) Wie Nachkommastellen einer Kommazahl auslesen und separat als Zahlenwert abspeichern?

Kossy · 4. Mai 2011

Hallo !

Ich habe mal eine Frage an euch:

Wie genau kann aus einer Kommazahl die Gesamtanzahl der Nachkommastellen bestimmen und diese Gesamtanzahl in einer separaten Integer Variable abspeichern?

Code:

Dim intAnzahl as Integer

value = 0.001 'Hier müsste die Zahl 3 auslesen werden und in value abgelegt werden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke schön für die Hilfe !

Grüße
Kossy

:)

EarlFred · 5. Mai 2011

Hallo Kossy,

http://lmgtfy.com/?q=excel+anzahl+na...llen+ermitteln

Code:

Function nachkommastellen(zahl) As Integer
nachkommastellen = WorksheetFunction.Max(0, Len(zahl - Int(zahl)) - 2)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Kossy · 6. Mai 2011

Hallo !

Danke für den Code.

Ich habe das jetzt mal in meinem Kontext umgesetzt, bekomme aber einen Fehler, dass ein Ausdruck oder eine Variable erforderlich sei. Der VBA Kompiler bleibt beim - Zeichen innerhlab der WorksheetFunction Max() stehen.

Hier der VBA Code:

Code:

dblYaxisTempValue = 423.67
intPercentValueYaxisExtention = 5

dblTempValueExtractionBehindComma = ((dblYaxisTempValue / 100) * intPercentValueYaxisExtention)
intValueBehindComma = WorksheetFunction.Max(0, Len((dblTempValueExtractionBehindComma) - Int(dblTempValueExtractionBehindComma)) - 2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann mir vielleicht jemand sagen, wo hier der Fehler ist?

Danke und Grüße
Kossy

EarlFred · 6. Mai 2011

Hallo Kossy,

weil in meiner Function "Zahl" als Variant (nicht angegeben) deklariert ist. Verwendest Du das anders, muss Du die Zahl in einen Textausdruck wandeln.
Code:

WorksheetFunction.Max(0, Len(CStr(zahl - Int(zahl))) - 2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Diskussionen hast Du gelesen? Auch den Hinweis verstanden, dass die augenscheinliche Genauigkeit ggf. nicht gegeben ist?

Code:

Sub test()
Dim zahl As Double
zahl = 10.1125
MsgBox WorksheetFunction.Max(0, Len(CStr(zahl - Int(zahl))) - 2)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

EarlFred · 6. Mai 2011

...vielleicht als Alternative:

Code:

Dim fTemp As Variant

fTemp = Split(dblTemp, ",")
If UBound(fTemp) Then
intValueBehindComma = Len(fTemp(1))
Else
intValueBehindComma = 0
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Kossy · 6. Mai 2011

Hallo !

Danke für den Code, die erste Variate hat bereits excellent funktioniert !

Die Diskussionen hast Du gelesen? Auch den Hinweis verstanden, dass die augenscheinliche Genauigkeit ggf. nicht gegeben ist?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welche Diskussion meinst Du genau? Habe ich etwas nicht mitbekommen?

Grüße
Kossy

EarlFred · 6. Mai 2011

Hallo Kossy,

hast Du mal auf den geposteten Link geklickt?
Hast Du mal meinen Code "Test" probiert?

Grüße
EarlFred

Kossy · 6. Mai 2011

Hallo !

Hast Du mal auf den geposteten Link geklickt?
Hast Du mal meinen Code "Test" probiert?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja das hatte ich, das Ergebis, welches der Code zurückliefert, ist auch für mein Vorhaben vollkommen ausreichend !

Danke für die Hilfe !

Grüße
Kossy

EarlFred · 6. Mai 2011

Hallo Kossy,

also ist es OK, wenn anstelle 4 Nachkommastellen 15 angegeben werden?
Naja, mir soll's recht sein.

Grüße
EarlFred

Office: (Office 2010) Wie Nachkommastellen einer Kommazahl auslesen und separat als Zahlenwert abspeichern?

Wie Nachkommastellen einer Kommazahl auslesen und separat als Zahlenwert abspeichern?

Wie Nachkommastellen einer Kommazahl auslesen und separat als Zahlenwert abspeichern?

Wie Nachkommastellen einer Kommazahl auslesen und separat als Zahlenwert abspeichern?

Wie Nachkommastellen einer Kommazahl auslesen und separat als Zahlenwert abspeichern?

Wie Nachkommastellen einer Kommazahl auslesen und separat als Zahlenwert abspeichern? - Similar Threads - Nachkommastellen Kommazahl auslesen

nach speichern als XML-Kalkulationstabelle zu viele Nachkommastellen

Datenüberprüfung_keine drei Nachkommastellen zulassen

Zufallszahl mit bis zu 10 Nachkommastellen

Nachkommastellen in Steuerelement Liste

Zwei Nachkommastellen bei EUR, acht Nachkommastellen bei anderen Währungen

Serienbrief - Zahlen mit Nachkommastellen vs. Zahlen ohne Nachkommastellen

Seriendruck (Office 2016), Nachkommastellen runden