mit folgendem Script kopier und füge ich neue Zeilen ein.
Sub einfügen()
ActiveCell.Select
Selection.EntireRow.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Insert Shift:=xlDown
ActiveCell.EntireRow.PasteSpecial
Application.CutCopyMode = False
End Sub
Nun möchte ich entweder die Spalte S ausschließen, weil dort die Rechnungsnummer steht (um Dopplungen zu vermeiden) oder die Rechnungsnummer automatisch um 1 erhöhen (was noch eleganter wäre) Das Format der Rechnungsnummer ist: 2005-001.
..nur wie's geht, weiß ich nicht..
Danke für eure Hilfe
Sören