String mit Fließkomma wird in eine zahl umgewandel

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: String mit Fließkomma wird in eine zahl umgewandel von: Sergej
Geschrieben am: 21.03.2005 14:17:08

hallo Forum!!!!

Wie kann mann String(Zeichenkette aus Ziffern) im Form:

0001.1234 Nullen lassen sich mit Trim() rauslöschen
0012.1234
0123.1234
1234.1234
Komma ist fließend , denk man über ein Zähler
in einer Zahl umwandeln

Sub Umwandlung()
Dim S As String
Dim Zahl As Double
'lese S
Zahl=Format(S,"####,0000")
End 
Sub  
Wichtig ist vor dem Kommazeichen 4 Ziffern zu reservieren und nach der Komma 
müssen unbedingt 4 Ziffern folgen
hat jemand eine Idee???
Danke im Voraus
Gruß Sergej
Bild


Betrifft: AW: String mit Fließkomma wird in eine zahl umgewandel von: ANdreas
Geschrieben am: 21.03.2005 14:35:48

Hallo Sergej,

so könnte man es machen (ohne Fehlerprüfung ob korrekte Ziffern):

Sub BspUmwandlung()
Dim s$, i%, d#
s = "0021.1234"
i = InStr(s, ".")
If i > 0 Then
    d = Left(s, i - 1) + Right(s, Len(s) - i) / (10 ^ (Len(s) - i))
    MsgBox d
End If
End Sub


Gruß
Andreas


Bild


Betrifft: AW: String mit Fließkomma wird in eine zahl umgewandel von: Sergej
Geschrieben am: 21.03.2005 14:44:45

Danke Andreas !!!! das funzt !!!
Und mit Format gibt es keine Möglichkeit???

Gruss Sergej


Bild


Betrifft: AW: String mit Fließkomma wird in eine zahl umgewandel von: UweD
Geschrieben am: 21.03.2005 14:40:55

Hallo


ich würde es so machen


Sub ZahlAusString()
    Dim S, Zahl As Double
    'Bereich vorher markieren
    For Each S In Selection
        Zahl = Application.Substitute(S.Value, ".", "") / 10000
        S.NumberFormat = "General"
        S.Value = Zahl
    Next
End Sub

Gruß UweD


 Bild

Beiträge aus den Excel-Beispielen zum Thema "String mit Fließkomma wird in eine zahl umgewandel"