Hallo,
ich habe mir in Excel folgendes Makro mit Hilfe von einem Buch zusammengebastelt, doch leider geht es irgendwie nicht. Komme aber nicht drauf wo der Fehler liegt. Excel bringt immer den Fehler 1004. Beim debuggen springt der immer hier hin: ActiveSheet.Paste
Vielleicht liegt es an der Formatierung der Zellen, aber die sind leer und wurde nicht geändert.
Kann jemand von euch Profis mal schauen und mir sagen wo das Problem ist
Vielen Dank
Sub CommandButton3_Click() Const Blatt1 = "until" Const Blatt2 = "ziel" Dim i As Integer Dim iAnz As Integer Application.ScreenUpdating = False Sheets(Blatt1).Activate Range("A1:A50").Select iAnz = 0 i = 0 Do Until i = ActiveSheet.UsedRange.Rows.Count If ActiveCell.Value = "df" Then Selection.EntireRow.Copy Sheets(Blatt2).Activate ActiveSheet.Paste ActiveCell.Offset(1, 0).Select Sheets(Blatt1).Select ' ActiveCell.Offset(1, 0).Select iAnz = iAnz + 1 Else ActiveCell.Offset(1, 0).Select End If i = i + 1 Loop Application.CutCopyMode = False Application.ScreenUpdating = False MsgBox " Es wurden " & iAnz & " Sätze übertragen" End Sub