![]() |
||
![]() |
Mit Währungsformaten richtig rechnenIch möchte bei der Programmierung mit Visual Basic Zahlen im DM-Format addieren. Die Zahlen für die Nachbearbeitung stammen aus einer Excel-Datei. Bisher gelingt mir die Typumwandlung der String-Variablen in numerische Variablen nicht richtig. Zahlen im Währungsformat sind keine echten String-Variablen, sondern bereits numerische Variablen. Die Währungsdarstellung resultiert aus der Formatdefinition für die Excel-Zellen. In der Zelle selbst steht eine Zahl. Daher können Sie die Zellinhalte direkt in eine numerische Variable einlesen und damit sofort rechnen. Sub Addi1() Dim X, Y X=ActiveWorkbook.Worksheets („Tabelle1“).Cells(2, 1) Y=ActiveWorkbook.Worksheets („Tabelle1“).Cells(3, 1) ActiveWorkbook.Worksheets („Tabelle1“).Cells(6, 1) = X + Y End Sub Sub Addi2() Dim X, Y Dim St As String, St2 As String St=ActiveWorkbook.Worksheets („Tabelle1“).Cells(2, 1) St2=ActiveWorkbook.Worksheets („Tabelle1“).Cells(3, 1) X = CCur(St) Y = CCur(St2) ActiveWorkbook.Worksheets („Tabelle1“).Cells(8, 1) = X + Y End Sub Sub Addi3() Dim X, Y Dim St As String, St2 As String St=ActiveWorkbook.Worksheets („Tabelle1“).Cells(2, 1) St2=ActiveWorkbook.Worksheets („Tabelle1“).Cells(3, 1) X = Val(St) Y = Val(St2) ActiveWorkbook.Worksheets („Tabelle1“).Cells(10, 1) = X + Y End Sub |
![]() |