AutoFill Methode bis letzte ausgefüllte Zeile
13.09.2017 18:04:09
Rene
bei meine Code kommt immer wieder ein Fehler.
Private Sub CommandButton2_Click()
Dim loLetzte As Long
Application.ScreenUpdating = False
loLetzte = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(ActiveCell.Row).Delete
Range("A13").Select
Selection.AutoFill Destination:=Range("A13:A" & loLetzte)
Application.ScreenUpdating = True
End Sub
Der Fehler erscheint immer bei der Autofill Methodik, egal ob ich eine Zeile einfüge oder viele einfüge oder lösche.
In Spalte A gibt es keine Zellen die verbunden sind, auch die Zeilen haben keine verbundene Zelle.
Ich hoffe ihr könnt mir helfen :(
lg René
Anzeige