habe ohne Erfolg zum Thema: "Anzahl der Nachkommastellen mit VBA" recherchiert (mache gerade "Diagrammformatierungen mit VBA"). Daher habe ich mir den Code selbst gestrickt. Weil mir hier oft geholfen wurde, möchte ich diesen Code zur Verfügung stellen.
Sollten die Profis (z.B. Beverly oder Nepumuk - vielen Dank nochmal an euch) Optimierungsvorschläge haben: Dann bitte !
Viele Grüße,
Martin
Sub test()
'nur zum Aufrufen der function
Dim Dezimalzahl As String
Dezimalzahl = ActiveSheet.Range("A1")
ActiveSheet.Range("A2") = fcNachkommaAnzahl(Dezimalzahl)
End Sub
Function fcNachkommaAnzahl(Dezimalzahl) As Integer
'funktioniert nur bei Zahl mit max 15 genauen Ziffern
'Martin Wilhelm, 10.02.2017
Dim intLaenge As Integer
If IsNumeric(Dezimalzahl) = False Then Exit Function
intLaenge = (Len(Dezimalzahl) - 1) - Len(Int(Dezimalzahl))
If intLaenge