VBA: genutze Zeilen neu einlesen
20.02.2004 21:57:53
Christoph
Ich knabber mal wieder an den Grundlagen...
Über "LRow = Cells(Rows.Count, 1).End(xlUP).Row" lese ich bei Beginn eines Makros die letzte genutzte Zeile aus.
Im Gegensatz zu schon oft praktizierten Anwendungen möchte ich diesmal bei einem bestimmten Ereignis (wenn sich der Wert in Spalte C ändert) eine Zeile einfügen.
Logischerweise werden, wenn z.B. schon 500 Zeilen eingefügt wurden, die letzten
500 Zeilen nicht mehr durchlaufen, da "LRow" ja nicht weiter wächst.
Genau das soll es aber tun...
Ich fürchte, ich seh' den Wald vor lauter Bäumen nicht mehr...ich komm nicht drauf.
schon vorab vielen Dank für eure Hilfe
viele Grüße
Christoph
Sub ZeilenEinfuegen ()
Dim LRow as Long
Dim i as Long
LRow = Cells(Rows.Count, 1).End(xlUP).Row
For i = 3 To LRow
If Cells(i, 3).Value <> Cells(i - 1, 3).Value Then
Rows(i).Insert Shift:=xlDown
With Range(Cells(i, 1), Cells(i, 5))
.Interior.ColorIndex = 15
End With
i = i + 1
End If
Next i
End Sub