Ich würde gern in unten genannter Datei in den jeweiligen Zellen der Spalte C die Kommazahl 1,042 erhalten.
https://www.herber.de/bbs/user/130818.xlsm
Allerdings macht er eine 1042 daraus. Habt ihr eine Lösung parat?
Danke.
.Cells(i, 3).Value = Left(ActiveSheet.Cells(i, 4), 1) & "." & Mid(ActiveSheet.Cells(i, 4), 2, 3)
oder VBA mitteilen dass der folgenden Wert im landestypischen Format übergeben wird:
.Cells(i, 3).FormulaLocal = Left(ActiveSheet.Cells(i, 4), 1) & "," & Mid(ActiveSheet.Cells(i, 4) _
, 2, 3)
.Cells(i, 3).Value = CDbl(Left(ActiveSheet.Cells(i, 4), 1) & "," & Mid(ActiveSheet.Cells(i, 4), 2, 3))
Gruß Daniel