Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl Stellen nach dem Komma

Anzahl Stellen nach dem Komma
04.02.2009 13:13:31
braleta
Hallo Excelianer,
wie kann ich am Einfachsten in VB herausfinden, wie viele Dezimalstellen, also gültige Werte nach dem Komma, eine ermittelte Zahl hat?
Herzlichen Dank für Eure Hilfe
...bruno

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Stellen nach dem Komma
04.02.2009 13:19:00
Hajo_Zi
Hallo Bruno,
ermittle doch die Länge, dann mit Instr das Komma und Du hast Deine Stellen.

AW: Anzahl Stellen nach dem Komma
04.02.2009 13:39:19
braleta
Hallo Hajo, hallo Thorsten,
danke für die Schnelle Antwort, aber ich kann sie nicht nutzen, weil ich einen "irren" Fehler bekomme:
Instr habe ich verwendet, Len auch, aber:
Die Zahl wird in einer Variablen "Dim Zahl as Double" ermittelt, und egal, welcher Wert in dieser Variablen steht, erhalte ich als "Len(Zahl)" immer 8!!!!!!!!!!!!!!!!
Deshalb dachte ich, dass ich einen anderenWeg brauche, um weiter zu kommen.
:-(
...bruno
Anzeige
AW: Anzahl Stellen nach dem Komma
04.02.2009 13:20:38
Oberschlumpf
Hi Bruno
Versuch mal

MsgBox Len(Range("A1").Value) - InStr(Range("A1").Value, ",")


Für Range("A1")... kannst du natürlich auch eine Variable einsetzen.
Hilfts?
Und mich würd mal interessieren, wieso du bei VBA = gut nich selbst drauf kommst? :)
Ciao
Thorsten

AW: Anzahl Stellen nach dem Komma
04.02.2009 13:42:00
braleta
Thorsten,
ich habe meine Antwort auf den falschen Level gepostet.
Ich kann wirklich VBA, aber in meiner ersten Antwort habe ich ja beschrieben, was bei mir passiert: egal, welcher Wert in der Variablen steht, gibt mir "Len" immer 8 zurück, egal, ob die Zahl 12,3456 lautet oder 12345678,12345...
...bruno
Anzeige
AW: Anzahl Stellen nach dem Komma
04.02.2009 13:53:00
Nepumuk
Hallo Bruno,
weil die Len-Funktion bei numerischen Werten immer die Anzahl der Bytes zurückgibt, welche die Variable im Stackframe belegt.
Aus der Hilfe:
Gibt einen Wert vom Typ Long zurück, der die Anzahl der Zeichen in einer Zeichenfolge oder die zum Speichern einer Variablen erforderlichen Bytes enthält.
Wenn du die tatsächliche Länge haben willst, musst du die Zahl erst mit CStr in einen String konvertieren.
Gruß
Nepumuk
AW: Anzahl Stellen nach dem Komma
05.02.2009 09:58:46
braleta
Hi Nepumuk,
danke, ich habe einige Anregungen bekommen, die es mir leicht gemacht haben, eine Lösung meines Problems zu finden.
Es war - wie so oft - einfacher als ich mir vorgestellt habe.
Jedenfalls: vielen Dank!
...bruno
Anzeige
AW: Anzahl Stellen nach dem Komma
04.02.2009 13:56:59
Oberschlumpf
Hi Bruno
Versuch mal

Sub test()
Dim ldbZahl As Double
ldbZahl = 12.123456789
MsgBox Len(Str(ldbZahl)) - InStr(Str(ldbZahl), ".")
End Sub


MsgBox liefert 9
Hilfts nun mit der Str-Funktion?
Ciao
Thorsten

AW: Anzahl Stellen nach dem Komma
04.02.2009 14:07:39
Nepumuk
Hallo Thorsten,
die Str-Funktion würde ich nicht benutzen. Schau dir mal die folgenden Ergebnisse an:
Public Sub Beispiel()
    Dim dblZahl1 As Double, dblZahl2 As Double
    dblZahl1 = 123.456
    dblZahl2 = -123.456
    Debug.Print Len(CStr(dblZahl1)), Len(Str(dblZahl1))
    Debug.Print Len(CStr(dblZahl2)), Len(Str(dblZahl2))
End Sub

Alles klar? ;-)
Gruß
Nepumuk
Anzeige
deutsches System
04.02.2009 14:36:02
Tino
Hallo,
man sollte noch darauf achten welcher Dezimalseparator verwendet wird.
(deutsches System verwendet das Komma)
Sub test()
Dim ldbZahl As Double, DezSep As String

DezSep = IIf("0.5" * 2 = 1, ".", ",")
    
ldbZahl = 12.123456789
  
MsgBox Len(Str(ldbZahl)) - InStrRev(CStr(ldbZahl), DezSep) - 1
    
End Sub


Gruß Tino

Anzeige
deutsches System, Korrektur
04.02.2009 14:38:00
Tino 
Sub test()
Dim ldbZahl As Double, DezSep As String

DezSep = IIf("0.5" * 2 = 1, ".", ",")
    
ldbZahl = 12.123456789
  
MsgBox Len(CStr(ldbZahl)) - InStrRev(CStr(ldbZahl), DezSep)
    
End Sub


Anzeige
AW: deutsches System, Korrektur
05.02.2009 10:02:08
braleta
Tino,
vielen Dank für den Tipp mit dem Dezimalenseparator, ich werde diesen garantiert brauchen, weil die Anwendung international eingesetzt werden wird.
Danke für Deine Hilfe, und danke an Alle, die Beiträge geleistet haben; es ist wunderschön zu sehen, wie viel Wissen "da draußen" vorhanden ist.
...bruno
danke für die Rückmeldung oT.
05.02.2009 14:39:00
Tino
Nepu...ich könnt mich ja jetzt rausreden mit...
04.02.2009 15:57:07
Oberschlumpf
...mir war nicht bekannt, dass auch negative Werte berücksichtigt werden sollen :-)
Aber davon abgesehen hast du natürlich Recht, dass meine Idee nur die halbe Miete ist.
Ciao
Thorsten
AW: Nepu...ich könnt mich ja jetzt rausreden mit...
04.02.2009 16:24:00
Frager
Doch eher Unterschlumpf?
AW: Nepu...ich könnt mich ja jetzt rausreden mit...
04.02.2009 17:38:00
Oberschlumpf
wenn du schon Kritik übst, dann versuch es doch bitte KONSTRUKTIV
will sagen....
...was genau meinst du mit deinem Beitrag?
los...gib dir mal Mühe...du schaffst das!! (bin ich mir zwar nich sicher, aber die Hoffnung stirbt....du weißt schon)
Anzeige
AW: Anzahl Stellen nach dem Komma
04.02.2009 14:09:00
Jogy
Hallo.
Probier mal folgendes:

Function gNS(ByVal Zahl As Double) As Double
Dim exP As Byte
Dim strZahl As String
' Umwandlung in String, sonst geht es nicht
strZahl = CStr(Zahl)
' Exponent vorhanden?
exP = InStr(Zahl, "E")
' normale Zahl
If exP = 0 Then
gNS = Len(strZahl) - InStr(strZahl, ",")
' Wissenschaftliche Darstellung
Else
' Nachkommestellen der Mantisse
gNS = exP - 1 - InStr(strZahl, ",")
' Korrektur mit Exponenten
gNS = Application.Max(0, gNS - Mid(strZahl, exP + 1, Len(strZahl) - exP))
End If
End Function


Das gibt jetzt die Nachkommastellen der Zahl, abschliessende Nullen werden nicht mitgezählt.
Gruss, Jogy

Anzeige
AW: Anzahl Stellen nach dem Komma
04.02.2009 15:02:49
ingoG
Hallo bruno,
per Formel gehts so:
=MIN(WENN(RUNDEN(A3;ZEILE($1:$15))=A3;ZEILE($1:$15)))-(A3=GANZZAHL(A3))
(Matrixcformel, abschließen mit Strg-shift-Enter)
per VBA:

Function nachkomma(xx As Double) As Integer
Dim ii As Integer
Application.Volatile
For ii = 0 To 15
If Round(xx, ii) = xx Then Exit For
Next
nachkomma = ii
End Function


eine Rückmeldung wäre nett...
Gruß Ingo

Nachtrag
04.02.2009 15:42:00
ingoG
Hallo nochmal,
um bei langen Nachkommazahlen die ergebnisse nicht unnötig abzuschneiden, sollte in beiden Lösungen alle 15 durch 22 ersetzt werden...
Gruß Ingo
Anzeige
AW: Anzahl Stellen nach dem Komma
05.02.2009 10:04:00
braleta
Liebe Excelianer,
ich bedanke mich herzlich für all die Anregungen und Tipps zum Lösen meines Problems.
Ich bin über dieses Forum sehr froh, weil ich immer wirklich kompetente Hilfe erhalte, und ich bin sehr erstaunt, wie viel Wissen und - vor Allem - wie viel kompetentes Wissen "da draußen" vorhanden ist.
Jedenfalls: danke
...bruno :-)
Herzlichen Dank für alle Beiträge und die geleiste
05.02.2009 10:21:57
braleta
Hallo Excelianer,
ich habe aus den vielen Beiträgen wieder ein Mal sehr viel gelernt.
Ich habe mich für diese folgende Lösung entschieden, weil sie mir alle Vorteile bringt, die ich mir so vorstellen kann.

Sub ErmittleAnzahlVonDezimalStellen()
Dim dblZahl As Double, DezSep As String
DezSep = IIf("0.5" * 2 = 1, ".", ",")
dblZahl = -12.123456789
Debug.Print Len(Str(Abs(dblZahl))) - InStrRev(CStr(Abs(dblZahl)), DezSep) - 1
End Sub


Herzlichen Dank an Tino, an Nepumuk und alle, die ihr Wissen mit mir geteilt haben!
Um einem eventuellen Problem mit negativen Zahlen zu begegnen, habe ich die Zahl auch noch zusätzlich in ABS geklammert.
Herzlichen Dank.
...bruno

AW: Herzlichen Dank für alle Beiträge und die geleiste
05.02.2009 12:01:30
Jogy
Dann solltest Du aber darauf achten, dass Du keine Zahlen >= 1E+15 oder Gruss, Jogy

180 Forumthreads zu ähnlichen Themen

Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Anzeige
Nachkomma Stellen
Petra

Schönen Tag allerseits
mein Problem: eine lange Liste (ca. 20.000 Zeilen) mit €-Beträgen, formatiert 2 Kommastellen.
Ich habe jetzt festgestellt, das bei einigen Beträgen mehr Nachkommastellen sind (nur nicht angezeigt). Runden hilft nichts, da ich ja feststellen muß, in welchen Zellen...
14.11.2008 13:21:00
Thread-ID: 1024551
5 Beiträge
Probleme mit den Nachkommastellen...
Guenneisen

Hallo liebe Forumler und nachträglich noch ein frohes Neues!
ich hoffe, Ihr könnt mir helfen..
es geht um die Nachkommastellen...solz und kist sollen nach der 2ten nk-stelle abgeschlagen werden,
kapst jedoch nach der 2ten nk-stelle aufgerundet werden...klappt auch alles ganz gut...n...
04.01.2009 16:33:44
Thread-ID: 1036757
14 Beiträge
Anzeige
Nachkommastellen Combobox
Stefan

Hallo Excel-Profis,
ich möchte mit folgendem Code abprüfen, ob der Eintrag in der Combobox verändert wurde:
Private Sub cboHubraum_Change() Dim strHubraumAlt As String With Sheets("Motoren") strHubraumAlt = .Range("Q" & .Range("Target").Row).Value If cboHubraum.Value strHubraumAl...
09.02.2009 13:10:00
Thread-ID: 1048632
9 Beiträge
Nachkommastellen wo gar keine sind
Daniel

Hallo zusammen,
heute bin ich in Excel 2003 über ein Kuriosum gestolpert, das ich mir weder erklären kann noch beheben. In eine größere Steuerungstabelle wurden per Marko Zahlen aus SAP importiert. In Summe ergeben diese eigentlich 0. Excel beharrt allerdings darauf, dass das Ergebnis 1,421...
24.03.2009 10:57:37
Thread-ID: 1063218
4 Beiträge
Nachkommastellen (Problem)
Thomas

Hallo Experten!
Ich glaube, dass ich mich in Excel gut auskenne. Seit ein paar Minuten bin ich mir aber nicht mehr sicher....
Ich habe folgendes Problem bin bitte euch um euren Input.
A1 = 6,5
B1 = 6,4
C1 = A1 - B1 (als Ergebnis wir 0,1 angezeigt)
Wenn ich allerdings die...
18.05.2009 11:55:21
Thread-ID: 1075843
4 Beiträge
Nachkommastellen entfernen
TommiH

Hallöchen,
ich habe ein Problem und zwar ein Excelsheet wo alles mögliche drin steht (leere Zellen, Zahlen, Texte) und ich möchte nun per VBA nur in den Zellen wo Dezimalzahlen drin stehen diese generell runden so das aus 3,4 - 3 wird oder aus 5,5 - 6 wird usw.
For y = 3 To 8000
For...
26.06.2009 16:48:49
Thread-ID: 1084658
3 Beiträge
2 Nachkommastellen über Userform
Peter

Hallo,
bin heute wahrscheinlich etwas daneben aber habe folgendes Problem:
Übergebe über Userform einen Währungsbetrag (als Beispiel 43,30) in ein Tabellenfeld das als
Währung (2 Stellen nach dem Komma) formatiert ist, wird mir in der Tabelle auch als 43,30 angezeigt
nur wenn ic...
03.09.2009 08:49:09
Thread-ID: 1100239
7 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
3
4
13
4
8
3
3
2
6
14
1
3
4
3
2
5
5
4
8
1
2
6
5
5