An alle Offset-Verliebten
Christian
irgendwie kann ich mich dem Eindruck nicht erwehren, dass hier im Forum die Offset-Methode an Beliebtheit gewinnt. Wenn man schon Werte aus einzelnen Zellen einlesen muss, warum tritt man dann erst mal gezielt daneben um anschließend mit "Offset" das eigentliche Ziel zu treffen...?
hier zwei Beispiele, die bei mir auf allen Rechnern ca. 10% Differenz ausmachen...
Sub TestOffset()
Dim i&, t!
Cells.Clear
t = Timer
For i = 1 To 30000
Cells(i, 1).Offset(, 4) = i
Next
MsgBox Timer - t
End Sub
Sub TestNoOffset()
Dim i&, t!
Cells.Clear
t = Timer
For i = 1 To 30000
Cells(i, 5) = i
Next
MsgBox Timer - t
End Sub
Feed back ist willkommen - Gruß Christian