Schleife funzt nicht
07.11.2006 10:18:58
Jogi
diese Schleife soll Werte aus Spalte G (1:1000) abarbeiten, indem alle Werte nacheinander in Zelle H1 eingefügt werden.
So funktioniert's schon mal nicht:
Sub OptimizedBatch()
Dim i As Integer
ZeileMax = Range("G65536").End(xlUp).Row
For i = 1 To ZeileMax
Cells(1, 1).Value = i
Next i
End Sub
...hoffe auf Rettung.
Danke!
Jogi