AW: Leerzeile autom. schnell einfügen
30.05.2011 23:54:51
Daniel
Hi
das einzelen Einfügen von Zeilen ist bei dieser Datenmenge viel zu langsam.
Schneller ist, die Leerzeilen einzusortieren.
Das macht dieses Makro:
Sub test()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count).Offset(0, 1)
.Cells(1, 1).Value = 0
.Offset(1, 0).Resize(.Rows.Count - 1, 1).FormulaR1C1 = "=R[-1]C+(RC6=""x"")"
.Formula = .Value
With .Cells(.Rows.Count, 1).Offset(1, 0).Resize(WorksheetFunction.Max(.Cells))
.FormulaR1C1 = "=R[-1]C-1"
.Cells(1, 1).FormulaR1C1 = "=R[-1]C-.5"
.Formula = .Value
End With
.CurrentRegion.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.EntireColumn.ClearContents
End With
End With
End Sub
Gruß, Daniel