range außer kontrolle
28.07.2004 14:46:11
porbsi
Private Sub Workbook_Open()
Cells.Select
Selection.ClearContents
Worksheets("Tabelle1").Range("A1").Select
ActiveSheet.Paste
Modul2.zeile
End Sub
Sub zeile()
'
' zeile Makro
' Makro am 28.07.2004 von QT30756 aufgezeichnet
'
Dim i As Integer
i = 2
Do
Rows(i).Select
Selection.Insert Shift:=xlDown
i = i + 2
Loop Until i > ActiveSheet.UsedRange.Rows.Count
End Sub
der usedRange wird immer größer weiß jemand wieso?
Anzeige