Nach Gruppen zwei Leerzeilen einfügen
20.02.2007 10:55:26
Tanja
Ich möchte gerne mit einem Makro auf einem Arbeitsblatt mit ca. 3000 Zeilen ab der 2. Zeile nach jeder Gruppe, die sich aus der Einmaligkeit von A + B (A sind Orte und B Kantone) zusammensetzt, zwei Leerzeichen einfügen.
Im Archiv habe ich ein Makro gefunden, dass nach jeder Zeile zwei Leerzeilen einfügt. Was muss ich daran ändern, dass nach jeder Gruppe A+B zwei Leerzeichen eingefügt werden?
Kann jemand helfen?
Sub leerzeilen()
Dim lRow As Long, lastRow As Long
On Error GoTo errorhandler
Application.ScreenUpdating = False
lastRow = IIf(Range("A65536") <> "", 65536, _
Range("A65536").End(xlUp).Row)
For lRow = lastRow To 3 Step -1
If Cells(lRow, 1) <> "" Then Rows(lRow).Insert
Next
errorhandler:
Application.ScreenUpdating = True
End Sub
Anzeige