Office: (Office 2007) Code für Ermittlung der Anzahl der Dezimalstellen?

Ich möchte innerhalb von VBA den Maximalwert der Anzahl der Dezimalstellen > 0 von verschiedenen Zahlen in Zellen ermitteln.

Beispiel:
Zelle 1: 100,35 -(Ergebnis 2)
Zelle 2: 3,01 - (Ergebnis 2)
Zelle 3: 4,00 - (Ergebnis 0)
Zelle 4: 27,10 - (Ergebnis 1)

Ergebnisvariable = 2 (Maximalwert)

Alle Zellen sind dabei als Zahlen mit 2 Dezimalstellen formatiert. Das Ergebnis soll nur in einer Variablen gespeichert werden und nicht die Ursprungszellen verändern.

Für einfache Ideen wäre ich dankbar.
Gruß Tuan

:)

 

Hi
was kürzeres fällt mir momentan nicht ein
=((REST(A1;1)>0,001)*1+(REST(A1*10;1)>0,001)*1)

 

Danke für die Antwort, ich möchte das Ganze aber in VBA machen und da gibt es die REST-Funktion doch nicht, oder?

Ich durchlaufe also mit einer For-Next-Schleife alle zu überprüfenden Werte und möchte dann den Maximalwert der Dezimalstellen, so wie oben beschrieben einer Variablen zuweisen.

Tuan

 

hiho

Code:

 

Hallo Tuan,

meine Lösung sieht so aus:

Code eingefügt mit

 

Vielen Dank euch Beiden,

ich habe mich für die Len-Funktion entschieden, da sie einfacher ist und mit der CInt-Funktion ich auf Integer-Werte begrenzt bin. Ansonsten gehen beide Varianten.

Chris, warum hast du die Round-Funktion noch eingefügt, müsste doch auch so gehen, da die Zellen doch schon alle auf 2 Dezimalstellen formatiert sind, oder? Ach ja, und wie fügt man bei einer Antwort hier im Forum so ein Code-Fenster ein?

Gruß Tuan.

 

hiho

beim Formatieren wird nur optisch die Zahl verändert und nicht der Inhalt!
deshalb noch mal das Round!!
und round ist identisch mit der Formatierung die ja auch auf 2 Stellen rundet.
nur mit dem Unterschied das jetzt wirklich nur die 2 Stellen betrachtet werden.

und die Codedarstellung

(code)
'.....Makro
(/code)

Statt den runden Klammern [ ] verwenden