ich moechte mein Excelsheet noch ein bisschen einfacher gestalten. Ich habe einen Button, mit dem ich einfach eine neue Reihe an meine Tabelle anfuegen kann. In einigen Situation reicht mir aber nicht eine Zeile, ich brauche mehr Zeilen. Gibt es eine Moeglichkeit in einem Feld zu definieren wie viele Zeilen man anfuegen moechte?
Das ist der Code den ich nutze:
Sub NewRow()
Dim Zeile As Long
With ActiveSheet
'Zeilennummer:
Zeile = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
'Kopieren:
Intersect(.Rows(Zeile - 2), .UsedRange).Copy
.Cells(Zeile, 1).PasteSpecial Paste:=xlPasteAll
Intersect(.Rows(Zeile - 1), .UsedRange).Copy
.Cells(Zeile + 1, 1).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End With
End Sub
Vielen Dank schonmal!Liebe Gruesse Lisa