Klaas91

Hallo,

ich will via Makro das unten in der Tabelle eine neue Zeileeingefügt wird. Die Formel aus der Zelle darüber soll übernommen werden.

so sieht die Tabelle normal aus... unter A14(Samstag) soll eine neue Zeile rein.

Ich habe das Problem das er die Zeile immer unter A13 einfügt

Hier der Code

Sub Zelle()

   Rows("14:14").Select
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Range("A13").Select

   Selection.AutoFill Destination:=Range("A13:A14"), Type:=xlFillDefault
   Range("A13:A14").Select
   Range("B14").Select
End Sub

wäre froh wenn mir jemand helfen könnte oder einen denk anstoß geben könnte.

mfg

Klaas91