Hallo zusammen,

ich habe mir mit Hilfe des Makrorekorders ein Makro gebastelt welches mir aus einem Vorlagenblatt (Example) eine Zeile kopiert und im Arbeitsblatt oberhalb einer markierten Zeile einfügt.

Jetzt muss ich feststellen, dass leider die Formeln nicht mit eingefügt / kopiert werden, die in Spalte und E und F stehen.

Ich markiere die ganze Zeile und starte das Makro. Was mache ich da falsch? Grüße Günther

 

Public Const Ex As String = "Example"
Sub LineIn()
Application.ScreenUpdating = False
TabellenschutzAus
Sheets(Ex).Visible = True
    Sheets(Ex).Select
     Range("1:1").Select
        Selection.Copy
       Back
      Selection.Insert Shift:=xlDown
      Sheets(Ex).Visible = False
 TabellenschutzEin
Application.ScreenUpdating = True
End Sub