Makro Zeile einfügen Wenn 2.
30.10.2015 14:45:46
Peter
alles so weit, so gut. leider kann ich meinen alten Beitrag nicht mehr editieren. Daher noch die Frage zum alten Thema:
Mit dem Code kann ich eine Leere Spalte einfügen wenn sich die Zahl in Spalte A ändert:
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
Was muss ich Ändern damit die Suche in E2 anfängt?
LG
Anzeige