Sortierung
06.08.2002 18:17:57
Kurt
das Programm sollte nur die Berechnungsergebisse anzeigen
die 6 bis 12 stellen haben.
Bsp. 123456 =6, Bsp. 1234516=7, usw.
Wer kann mir dabei helfen?
Sub Zahlen()
ActiveSheet.Cells.NumberFormat = Chr(64)
xFactor = CDec("41216263440")
For xi = 1000639999 To 1000654998
xFactor = CDec("41216263440")
xZiffern = CStr(CDec(xi) * xFactor)
xRow = xRow + 1
ActiveSheet.Cells(xRow, 5).Value = xZiffern
xZiffern = CStr((CDec(xi) / xFactor) * CDec("100000000000000"))
ActiveSheet.Cells(xRow, 7).Value = xZiffern
Next
End Sub
Anzeige