Makrotempo zu Langsam
15.08.2002 21:41:23
Kurt
wie kann man dieses Makro dazu bringen das es schneller arbeitet?
Momentan dauert es über eine Stunde.
Im voraus schon mal vielen Dank für die Hilfe.
Gruß Kurt
Sub Zahlen()
Dim xCol&
xCol = 1
Dim xZiffern$
Dim xi&
Dim xRow&, xMax&
Dim xCell As Range
Dim xFactor As Variant
ActiveSheet.Cells.NumberFormat = Chr(64)
xFactor = CDec("3141592654")
For xi = 1788529152 To 1792723456
xZiffern = CStr(CDec(xi) * xFactor)
xRow = xRow + 1
If xRow > Rows.Count Then
xRow = 1
xCol = xCol + 1
End If
ActiveSheet.Cells(xRow, xCol).Value = xZiffern
Next
End Sub
Anzeige