27.10.2014, 11:28
Guten Tag,
programmiere zum ersten mal ein Makro, und komme nicht mehr weiter.
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
Das Problem: Ich möchte nicht dass er alle Werte vergleicht,sondern nur die Werte bis zur ersten leeren Zelle.
Einfach aufzeichnen geht nicht,da die Tabellenlänge variiert.
Wäre für Antworten sehr dankbar :)
Viele Grüße
Karin
programmiere zum ersten mal ein Makro, und komme nicht mehr weiter.
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
Das Problem: Ich möchte nicht dass er alle Werte vergleicht,sondern nur die Werte bis zur ersten leeren Zelle.
Einfach aufzeichnen geht nicht,da die Tabellenlänge variiert.
Wäre für Antworten sehr dankbar :)
Viele Grüße
Karin