Hallo zusammen,

die letzten 4h habe ich - leider erfolglos - versucht, eine Lösung für mein Problem zu finden (Google hasst mich jetzt ;-) ): ich möchte am Ende einer Tabelle eine neue Zeile einfügen, inkl. der in den vorherigen Zeilen enthaltenen Formatierungen und Formeln.

Der präferierte Weg ist über einen Button, den ich in meinen Versuchen via ActiveX-CommandButton eingefügt hatte. Als Code war hinterlegt:

Private Sub CommandButton1_Click()
Dim LRow As Long
With ActiveSheet
  LRow = .Cells(Rows.Count, 1).End(xlUp).Row
  With .Rows(LRow - 1)
     .Copy
     .Insert xlShiftDown, _
        CopyOrigin:=xlFormatFromLeftOrAbove
  End With
End With
End Sub

Grds. hat das schon funktioniert, allerdings hat die Funktion leider immer die Zeile 1 repliziert, es soll aber unterhalb der Zeile 12 die neue (Eingabe)Zeile eingefügt werden.

Ich wäre begeistert, wenn mir einer von euch helfen kann.

Im Voraus lieben Dank,
Christian