Office: VBA: Werte mit Komma in Punkt umwandeln

Hallo,

ich habe folgendes Problem in VBA:

Ich habe einen Wert in der Zelle A1 = 1,5
Mit diesen Wert möchte ich jetzt in VBA rechnen.

Jetzt sehe ich aber das VBA damit nicht rechnen kann, sondern nur mit Zahlen mit einem Punkt (1.5)

Hängt wohl mit dem Ländercode zusammen (Deutsch - Englisch).

Jetzt muß also diese Eingabe 1,5 in 1.5 umgewandelt werden.

Habe es hiermit probiert:

Sub Zahl_mit_Komma_umwandeln()

Dim Zinsen As Double
Dim Zinsen2 As Double
Dim Zinsen2A As String
Dim Zinsen3 As Double
Dim Zinsen4 As Double
Dim Zinsen5 As Double


Zinsen = Cells(1, 1) '=A1 = 1,5

Zinsen2 = Application.Substitute(Zinsen, ",", ".") ' Ergebnis 15
Zinsen2A = Application.Substitute(Zinsen, ",", ".") ' Ergebnis "1.5"
Zinsen3 = Application.Evaluate(Zinsen) ' Ergebnis 1,5
Zinsen4 = Replace(Zinsen, ",", ".") ' Ergebnis 15
Zinsen5 = CDbl(Replace(Zinsen, ",", ".")) ' Ergebnis 15

Cells(3, 2).Value = Zinsen2
Cells(4, 2).Value = Zinsen2A
Cells(5, 2).Value = Zinsen3
Cells(6, 2).Value = Zinsen4
Cells(7, 2).Value = Zinsen5

End Sub

Wenn der variablen Typ String ist (Zinsen2A) dann macht er eine "1.5" draus (als mit Anführungszeichen)
Bei den anderen eine 15

Gibt es dort eine Einfache Lösung für diese Umwandlung oder wie löst ihr das Komma Punkt Problem in VBA ?

Exceldatei habe ich rangehängt.

Gruß Speedy

:)

 

Hi,
wenn in A1 wirklich 1,5 steht und nicht als Text formatiert, dann kann man in VBA sehr wohl damit rechnen. Nur wenn man in VBA mit absoluten Werten arbeitet, müssen die Dezimalstellen mit einem . abgetrennt sein. Ich vermute eher, dass der Wert in A1 schon in Excel keine "saubere" Zahl ist.

Hab jetzt erst die Mappe gesehen...

Ich sehe das problem nicht, Deine erste Codezeile schreibt in die Variable Zinsen 1,5 und damit kannst Du dann doch rechnen.

 

Hallo,

also ehrlich gesagt verstehe ich das Problem nicht.

Wenn du Ländereinstellung auf Deutsch hast, dann steht in der Zelle A1 1,5

Warum sollte Excel per VBA damit nicht rechnen können?

Schreib mal in Zelle B1 5,3

PHP:

         Sub Zahl_mit_Komma_umwandeln()
Dim Zinsen   As Double
Dim Multiplikator As Double

Zinsen = Cells(1, 1)
Multiplikator = Cells(1, 2)

Cells(1, 3) = Zinsen * Multiplikator

Cells(1, 4) = Zinsen * 5.3

End Sub


 

Hi,

ich bin jetzt etwas baff.

Hatte das Problem in der Firma mit einer anderen Excel Datei.
Englisches Office - Englisches Betriebssystem.

Hatte diese Beispieldatei jetzt aber auch zu Hause erstellt in einer deutschen Umgebung.
Stimmt da gibt es absolut kein Problem mit "Komma Zahlen". *Smilie
Der rechnet wunderbar

Jetzt würde ich das gerne natürlich mit einem englischen Office testen, bin aber gerade im Urlaub und habe erst in 2 Wochen wieder die Möglichkeit von der Arbeit aus.

Hier hatte wohl einer ein ähnliches Problem

https://www.ms-office-forum.net/foru...hlen+mit+komma

Vielen dank erst einmal

Gruß Speedy

 

Hallo Zusammen,

ich hänge mich jetzt einfach mal hier an das Thema dran. Ich habe nämlich ein ähnlich Problem mit der Replace()-Funktion in VBA.

Zur Situation: Ich habe eine Excel-Tabelle mit 9 Spalten und knapp 50 Zeilen, alles nix wildes also. In den ersten beiden Spalten steht jeweils Text in den anderen 7 Spalten stehen Dezimalzahlen mit mal mehr Dezimalstellen und mal weinger. Diese Tabelle möchte ich jetzt 1:1 in eine SQL-Datenbank schreiben. Da SQL keine Komma in einer float Zahl versteht, wandel ich also die 7 Spalten mit den Dezimalzahlen mit der Replace()-Funktion von "," in "." um z.B. so: Code:

Damit kann ich wunderbar alle Spalten, bis auf eine, in meine Datenbank schreiben. Bei der letzten Spalte scheint die Replace()-Funktion nämlich nicht zu funktionieren. Hier macht mir Replace() aus einer z.B. 4,6 eine 46.

Es ist auch irrelevant wie ich die einzelnen Zellen im Vorfeld mit Code:

, Code:

oder Code:

. Das Ergebnis ist immer das gleiche. Auch kann ich mir die einzelnen Werte über eine MsgBox ausgeben lassen Code:

. Die Ausgabe sähe so aus: 4,6 0.15 46. Code:

bringt natürlich auch nicht das gewünshte Ergebnis.

Ich habe auch schon folgendes, ohne Erfolg, versucht: Code:

Habt ihr eventuell noch eine Idee?

Gruß,
Dome