Hi,
wollte fragen wie ich mit einem makro komma werte einlsen kann.
Das problem dabei ist, dass im deutschen ein komma benutzt wird, im englischen aber ein punkt.
wenn ich jetzt von einer zelle einen wert einlese, steht da immer ein komma und das makro kann damit nicht rechnen und bricht ab.
danke
Das problem dabei ist, dass im deutschen ein komma benutzt
wird, im englischen aber ein punkt.
wenn ich jetzt von einer zelle einen wert einlese, steht da
immer ein komma und das makro kann damit nicht rechnen und
bricht ab.
Das verstehe ich nicht ganz. Wenn Du einen Zahlenwert einliest, dann machst Du das doch normalerweise mit Range(„XY“).Value, und wenn da eine gültige Zahl drin steht, sollte das auch klappen.
Solltest Du allerdings - warum auch immer - in der Zelle die Zahl im Textformat stehen haben, mußt Du eben den Punkt durch das Komma ersetzen (oder umgekehrt):
Function ConvertDot(strZahl As String) As Double
Dim p as Integer
p = InStr(1, strZahl, ",")
ConvertDot = CDbl(Mid(strZahl, 1, p-1) & "." & Mid(strZahl, p+1))
End Function 'ConvertDot
Rufe diese Funktion einfach aus einer Zelle heraus auf oder verwende sie sonstwie im Makro.
Kristian
ich lese den wert mit cells().value ein, sollte aber wohl das selbe sein, was?
warum das nicht geht weiss ich auch nicht, ist aber so…
Die Idee mit dem umwandeln ist mir schon gekommen, ich hab auch nach einer ersetzen function gesucht…
naja, dann mal danke!
david