Einfügen Leerzeile mit VBA
22.08.2007 09:52:58
Reptil
wieder einmal habe ich ein problem
ich habe eine tabelle, die bei zeile A11 (spaltenbezeichnung) bzw A12 (erster datensatz) anfängt. die länge der tabelle ist unterschiedlich. in spalte B stehen produktnummern. die produktnummern können unterschiedlich oft vorkommen, zb so:
0001
0001
0001
0005
0015
0015
0015
0015
0015
0030
....
wie im beispiel sind auch bei mir die produktnummern sortiert. ich möchte nun nach jedem block von zahlen eine leerzeile einfügen, also quasi so:
0001
0001
0001
0005
0015
0015
....
ich habe hier im archiv dazu folgenden code gefunden:
Option Explicit
Sub Macro1()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1) Cells(i - 1, 1) Then
Rows(i).EntireRow.Insert
Range(Cells(i, 1), Cells(i, 8)).Interior.ColorIndex = 3
End If
Next i
End Sub
doch leider bereitet er mir einige probleme. selbst wenn ich bei range "B65536" angebe, orientiert sich excel an dem, was in der spalte A steht. auch schaffe ich es nciht, das ganze bei B12 stoppen zu lassen.
ich hoffe, ich habe es genau genug geschildert.
fällt euch etwas dazu ein?
danke im voraus,
grüße
das Reptil