VBA Excel LZ in Spalte einf,wenn Werte ungleich
24.10.2014 12:58:41
braun
Ich möchte in Spalte C die Werte vergleichen, und sobald der Wert ungleich ist,soll eine Leerzeile eingefügt werden.
Mit diesem Code klappt das super:
Sub Makro12()
'fügt Leerzeilen zwischen verschiedenen Lagerorten ein (Spalte C)
Dim r As Long, mcol As String, i As Long
r = Cells(Rows.Count, "C").End(xlUp).Row
mcol = Cells(r, 3).Value
For i = r To 2 Step -1
If Cells(i, 3).Value mcol Then
mcol = Cells(i, 3).Value
Rows(i + 1).Insert
End If
Next i
End Sub
Einfach aufzeichnen geht nicht,da die Tabellenlänge variiert.
Wäre für Antworten sehr dankbar
Viele Grüße
Anzeige