AW: Makro Zeile einfügen Wenn
16.10.2015 17:58:54
Daniel
Hi
zeilen Löschen wenn leer geht einfach:
Columns(1).specialcells(xlcelltypeblanks).entirerow.delete
Zeilen einfügen, vorallem wenn auch bei grössern Mengen zügig gehen soll ist etwas aufwendiger:
Sub ZeileEinfügenBeiZahlÄnderung()
'--- geprüft wird spalte A
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.Cells(1, 1).Value = 1
.Offset(1, 0).Resize(.Rows.Count - 1, 1).FormulaR1C1 = "=R[-1]C+(RC1R[-1]C1)"
.Formula = .Value
.Copy
.Offset(.Rows.Count).PasteSpecial xlPasteValues
Selection.RemoveDuplicates 1, xlNo
.CurrentRegion.EntireRow.Sort Key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.EntireColumn.ClearContents
End With
End With
End Sub
Gruß Daniel