Excel braucht werkwürdig lange... *Bitte um Rat*
01.06.2004 11:43:12
SteeL
Excel braucht sehr lange für so wenig Zeilen,
vieleicht zeige ich euch mal meinen Code und erklär dann :) :
'Deklaration
Dim I As Long
Dim AZ As Integer
'Ermittlung der beschriebenen Zeilen
AZ = Range("A65536").End(xlUp).Row
'Rechnen
MsgBox "Spalten ABCD zusammenfassen ?"
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(I, 11) = "'" & Cells(I, 1) & Cells(I, 2) & Cells(I, 3) & Cells(I, 4)
Application.StatusBar = "Zeile " & I & " von " & AZ & " ist fertig berechnet !"
Next
Application.StatusBar = "Fertig"
MsgBox "Zu tlr-daten wechseln ?"
Sheets("tlr-daten").Select
MsgBox "Klicke auf diesen Button um Von/Nach & Datum zu berechnen"
So... und zwar habe ich ca. 3000 Zeilen, also bei mir ist dies realativ wenig, in einer anderen Tabelle habe ich 15000 und da dauert das nicht mal so lange... der braucht für 5 Zeilen mind. 2 Sekunden, ich habe echt keine Ahnung an was das liegt, ich hoffe ihr wisst vieleicht wie das zusammenhängen könnte..
Gruß
SteeL