je 8 neue Zeilen pro bisherige Zeile
04.07.2005 21:39:47
Gregor
Folgendes Makro führt folgenden Auftrag wunschgemäss aus:
- pro bisherige zeile werden acht neue leere Zeilen eingeschoben.
Problem: bei 2000 bisherigen zeilen dauert das ... ca. 5 Minuten (bei mir).
Kennt jemand einen schnelleren Weg?
Merci für deine Bemühungen!
Gregor
Sub Leere_Zeilen_einfügen()
Anzahl = ActiveCell.Row ' = Zeilen-Nr.
Dim intRows As Integer
Dim i As Integer
Dim j As Integer
Const cintRowsToInsert = 8 'wieviel: 8 leere Zeilen
Dim rngUsed As Range
Dim rngActualRow As Range
Set rngUsed = _
ActiveSheet.UsedRange
intRows = rngUsed.Rows.Count
For i = Anzahl To 2 Step -1 'bis zeile 2
Set rngActualRow = rngUsed.Rows(i)
For j = 1 To cintRowsToInsert
rngActualRow.Insert xlShiftDown
Next
Next
End Sub