Hallo,
hast Du den Vorschlag von HaJo 1:1 angewandt? Denn der kopiert die Daten aus dem Bereich B:C und fügt Dir nur die Werte wieder in den Bereich B:C ein. Du musst natürlich den Bereich, in dem das eingefügt werden soll, ändern. Daher hat HaJo ja auch geschrieben
hier ein allgemeiner Ansatz
Mal Dein Code angepasst, sieht das wie folgt aus:
Private Sub CommandButton1_Click()
Dim lRow As Long
With Worksheets("Wareneingang")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A10:O19").Copy
.Cells(lRow, 1).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Dim strText As String
strText = " Daten kopiert"
MsgBox strText
End Sub
Hier wird der Bereich A10:O19 des aktiven Tabellenblatts kopiert und in Tabellenblatt "Wareneingang" in die erste freie Zelle in Spalte A eingefügt.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]