Einfügen von Leerzeilen, wenn Wert in Spalte C weh
10.08.2004 13:24:36
Leerzeilen,
kann mir jemand helfen?
Ich habe eine Datei mit ca. 300 DS, wobei die ersten 5 Zeilen leer sind. Ich möchte, wenn c.B.: in Sp C der Wert von 1 auf 2 wechselt oder 3 auf 4 u.s.w ( geht bis 9) mindestens 1. Leerzeile einfügen.
Dazu verwende ich folgendes Makro:
Sub Leerzeilen()
Dim ws As Worksheet
Dim zeile As Long
Set ws = Worksheets(Sheets.Count)
zeile = 6
Do Until IsEmpty(ws.Cells(zeile, 3))
If ws.Cells(zeile, 3) <> ws.Cells(zeile + 1, 3) Then
ws.Rows(zeile + 1).Insert _
zeile = zeile + 1
End If
zeile = zeile + 1
Loop
End Sub
Das Makro funktioniert leider nur zwischen 1 und 2, dort wird wie beabsichtigt eine Leerzeile eingefügt.
Nicht aber bei den anderen Wechseln.
Meine bisherigen Versuche das zu ändern, führten leider nicht zum Erfolg.
Noch eine Anmerkung: die jeweiligen Bereiche sind unterschielich groß
Für Eure Hilfe bedanke ich mich im voraus.
Bernd