ich bräuchte ein Makro welches mir immer eine leere Zeile einfügt wenn sich eine sich immer wieder wiederholende Zahlenfolge ändert:
101
101
101
105
105
Nun soll zwischen 101 und 105 eine leere Spalte eingefügt werden.
Jemand eine Idee
Grüsse
Sub test()
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.Cells(1, 1).Value = 1
.Offset(1, 0).Resize(.Rows.Count - 1).FormulaR1C1 = "=R[-1]C+IF(RC1=R[-1]C1,0,1)"
.Formula = .Value
.Offset(.Rows.Count).Value = .Value
.Offset(.Rows.Count).RemoveDuplicates 1, xlNo
.CurrentRegion.EntireRow.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.EntireColumn.ClearContents
End With
End With
End Sub
Gruß DanielDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen