Tausendertrennung

Hallo zusammen,
bin hier langsam am Verzweifeln, möglicherweise steckt mit derWM Schock noch zu sehr in den Knochen.
In meiner Variable vValue (als String dimensioniert) steht bspw. der Wert "1,092.00", den ich mir zuvor aus SAP ausgelesen habe. Die User verwenden verschiedene Dezimalsettings, die ich vorher durch
Range("A1").value=Application.DecimalSeparator
und
Range("A2").value= Application.ThousandsSeparator
ermittelt habe.
Die Zahl 1,092.00 würde also nach üblicher Schreibweise 1092,00 entsprechen. Da ich im Macro mit dieser Zahl rechnen muss, muss ich also irgendwie das Komma wegbekomen. Ich habe das schon mit Substitute probiert:
Vvalue = Application.WorksheetFunction.Substitute(Vvalue, Range("A2").Value, "")
Das Komma ist erwartungsgemäss weg, blöderweise aber auch die Dezimaltrennung, so dass die neue Zahl plötzlich 109200 heisst.
Hat jemand eine Idee, wie man das gelöst bekommt?
Danke und Gruss
Fettertiger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub aaTest() Dim vValue As String, vNumber As Double 'Aktuelle Trenzeichen in Excel - ggf. gemäß Einstellungen unter Optionen Range("A1").Value = Application.International(xlDecimalSeparator) Range("A2").Value = Application.International(xlThousandsSeparator) vValue = Range("A3").Text 'SAP-Zahlenwert als text vNumber = SAP_Zahl_To_Number(sZahl:=vValue) Range("A4") = vNumber vNumber = vNumber * 10 Range("A5") = vNumber End Sub Function SAP_Zahl_To_Number(sZahl As String, _ Optional SAP1000er As String = ",", _ Optional SAPdezi As String = ".") As Double Dim sValue As String, sDezi As String sValue = Application.WorksheetFunction.Substitute(sZahl, SAP1000er, "") Select Case Application.International(xlCountrySetting) Case 33, 34, 43, 49 'Deu-DE,span-E, Deu-AT, franz.-F sDezi = "," Case 1, 41, 44 'US, Deu-CH, UK sDezi = "." Case Else sDezi = "," End Select sValue = Application.WorksheetFunction.Substitute(sValue, SAPdezi, sDezi) If IsNumeric(sValue) Then SAP_Zahl_To_Number = CDbl(sValue) Else SAP_Zahl_To_Number = 0 End If End Function

Sub aaTest() Dim vValue As String, vNumber As Double 'Aktuelle Trenzeichen in Excel - ggf. gemäß Einstellungen unter Optionen Range("A1").Value = Application.International(xlDecimalSeparator) Range("A2").Value = Application.International(xlThousandsSeparator) vValue = Range("A3").Text 'SAP-Zahlenwert als text vNumber = SAP_Zahl_To_Number(sZahl:=vValue) Range("A4") = vNumber vNumber = vNumber * 10 Range("A5") = vNumber End Sub

Function SAP_Zahl_To_Number(sZahl As String, _ Optional SAP1000er As String = Range("A2").Value, _ Optional SAPdezi As String =Range("A1").Value) As Double Dim sValue As String, sDezi As String sValue = Application.WorksheetFunction.Substitute(sZahl, SAP1000er, "") Select Case Application.International(xlCountrySetting) Case 33, 34, 43, 49 'Deu-DE,span-E, Deu-AT, franz.-F sDezi = "," Case 1, 41, 44 'US, Deu-CH, UK sDezi = "." Case Else sDezi = "," End Select sValue = Application.WorksheetFunction.Substitute(sValue, SAPdezi, sDezi) If IsNumeric(sValue) Then SAP_Zahl_To_Number = CDbl(sValue) Else SAP_Zahl_To_Number = 0 End If End Function

Sub aaTest() Dim vValue As String, vNumber As Double 'Aktuelle Trenzeichen in Excel - ggf. gemäß Einstellungen unter Optionen Range("A1").Value = Application.International(xlDecimalSeparator) Range("A2").Value = Application.International(xlThousandsSeparator) vValue = Range("A3").Text 'SAP-Zahlenwert als text vNumber = SAP_Zahl_To_Number(sZahl:=vValue,SAP1000er:=Range("A2).value, _ SAPdezi:=Range("A1").Value ) Range("A4") = vNumber vNumber = vNumber * 10 Range("A5") = vNumber End Sub

Hallo FetterTiger,
Ein kleines Problem hast du ggf. noch, wenn der Anwender in Excel unter Optionen benutzerdefinierte Trennzeichen aktiviert hat. Ggf. muss vor der SAP-Datenkonvertierung auf die Einstellungen der Systemsteuerung umgeschaltet werden. Hier gilt Probieren geht über Studieren.
In der Function-Deklaration solltest du für die optionalen Parameter dann auch die Standardwerte fest vorgeben. Da du den internationalen Einsatz der Makros planst solltest du diese Parameter nicht als optionale sondern als Pflichtparameter vorgeben.
Gruß
Franz

Sub aaTest()
Dim vValue As String, vNumber As Double, bolStatus As Boolean
bolStatus = Application.UseSystemSeparators
If bolStatus = False Then Application.UseSystemSeparators = True
'Aktuelle Trenzeichen in Excel - ggf. gemäß Einstellungen unter Optionen
Range("A1").Value = Application.International(xlDecimalSeparator)
Range("A2").Value = Application.International(xlThousandsSeparator)
vValue = Range("A3").Text 'SAP-Zahlenwert als text
vNumber = SAP_Zahl_To_Number(sZahl:=vValue, SAP1000er:=Range("A2"), _
SAPdezi:=Range("A1"))
Range("A4") = vNumber
vNumber = vNumber * 10
Range("A5") = vNumber
If bolStatus = True Then Application.UseSystemSeparators = False
End Sub
Function SAP_Zahl_To_Number(sZahl As String, _
Optional SAP1000er As String = ",", _
Optional SAPdezi As String = ".") As Double
Dim sValue As String, sDezi As String
sValue = Application.WorksheetFunction.Substitute(sZahl, SAP1000er, "")
Select Case Application.International(xlCountrySetting)
Case 33, 34, 43, 49 'Deu-DE,span-E, Deu-AT, franz.-F
sDezi = ","
Case 1, 41, 44 'US, Deu-CH, UK
sDezi = "."
Case Else
sDezi = ","
End Select
sValue = Application.WorksheetFunction.Substitute(sValue, SAPdezi, sDezi)
If IsNumeric(sValue) Then
SAP_Zahl_To_Number = CDbl(sValue)
Else
SAP_Zahl_To_Number = 0
End If
End Function

Sub aaTest() Dim vValue As String, vNumber As Double 'Aktuelle Trenzeichen in Excel - ggf. gemäß Einstellungen unter Optionen Range("A1").Value = Application.International(xlDecimalSeparator) Range("A2").Value = Application.International(xlThousandsSeparator) vValue = Range("A3").Text 'SAP-Zahlenwert als text vNumber = SAP_Zahl_To_Number(sZahl:=vValue, SAP1000er:=Range("A2").Value, SAPdezi:=Range("A1") _ .Value) Range("A4") = vNumber vNumber = vNumber * 10 Range("A5") = vNumber End Sub

Function SAP_Zahl_To_Number(sZahl As String, SAP1000er As String, SAPdezi As String) As Double Dim sValue As String, sDezi As String sValue = Application.WorksheetFunction.Substitute(sZahl, SAP1000er, "") Select Case Application.International(xlCountrySetting) Case 33, 34, 43, 49 'Deu-DE,span-E, Deu-AT, franz.-F sDezi = "," Case 1, 41, 44 'US, Deu-CH, UK sDezi = "." Case Else sDezi = "," End Select sValue = Application.WorksheetFunction.Substitute(sValue, SAPdezi, sDezi) If IsNumeric(sValue) Then SAP_Zahl_To_Number = CDbl(sValue) Else SAP_Zahl_To_Number = 0 End If End Function

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread