Hallo,
der Text von Sabrina ist nur unvollständig angekommen.
Sie meinte wohl, dass du beim Löschen ja schon EntireRow verwendest, warum dann nicht beim Kopieren einfach auch?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Selection
.EntireRow.Copy
With Sheets(ComboBox1.Value)
.Cells(Rows.Count, 1).End(xlUp).Offset(2).PasteSpecial xlPasteAll
End With
.EntireRow.Delete
End With
Application.CutCopyMode = False
Unload Me
End Sub
Gruß Werner
|