☰

Neue Zeilen einfügen und automatisch mit Formel ausfüllen

tag-icon • tag-icon microsoft-excel vba
Neue Zeilen einfügen und automatisch mit Formel ausfüllen

Ich versuche, neue Zeilen einzufügen, wenn eine bestimmte Bedingung erfüllt ist. Ich möchte die Formel von der letzten Zeile in die eingefügte Zeile ziehen, erhalte dabei jedoch eine Fehlermeldung. Unten ist mein Code:

  For i = 1 To diff
    MsgBox ("Difference is " & diff)

    With Sheet5.Rows(ModelLastRow.Row + 1)
       .Insert Shift:=xlDown
    End With

    insertRowRange = "C" & CStr((ModelLastRow.Row))

    pasteRowRange = "C" & CStr((ModelLastRow.Row + 1))
    Range("insertRowRange").AutoFill Destination:=Range("pasteRowRange")
  Next

Antwort1

Es sieht so aus, als würden Sie nur versuchen, eine einzelne Zelle um eine Zeile nach unten zu kopieren. Ich gehe davon aus, dass „ModelLastRow“ die einzelne Zelle ist, die Sie nach unten kopieren möchten. Bei jedem Schritt der Schleife verschiebe ich ModelLastRow um eine Zeile nach unten, um eine weitere Zeile zu kopieren.

 Dim ModelNextRow As Range
 MsgBox ("Difference is " & diff)
 For i = 1 To diff

     Set ModelNextRow = Union(ModelLastRow, ModelLastRow.Offset(1, 0))
     ModelLastRow.AutoFill Destination:=ModelNextRow, Type:=xlFillDefault

     Set ModelLastRow = ModelLastRow.Offset(1, 0)
   Next

 End Sub

Hoffentlich funktioniert das für Sie, viel Glück!

verwandte Informationen