Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anzahl Nachkommastellen / Diagrammformatierung

Anzahl Nachkommastellen / Diagrammformatierung
10.02.2017 19:19:16
Martin
Liebes Forum,
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 

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Nachkommastellen / Diagrammformatierung
12.02.2017 00:13:36
onur
Hi,
Geht auch kürzer:
Sub test()
'nur zum Aufrufen der function
Dim Dezimalzahl As String
Dezimalzahl = ActiveSheet.Cells(1, 1)
ActiveSheet.Cells(2, 1) = NachK(Dezimalzahl)
End Sub
Public Function NachK(Dezimalzahl) As Variant
If Not IsNumeric(Dezimalzahl) Then Exit Function
NachK = Len(Trim(Str(Dezimalzahl))) - InStr(Trim(Str(Dezimalzahl)), ".")
End Function

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige