ich verstehe das nicht !
Sheets("Auftrag").Range("D10").Select
kommt Laufzeitfehler 1004 Range objekt konnte ...
so klappt es :
'Sheets("Auftrag").Select
'Range("D10").Select
komisch...
gruß
klaus k
Sheets("Auftrag").Select
Range("D10").Select
Selection.Value = "Hallo Welt"
Sheets("Auftrag").Range("D10").Value = "Hallo Welt"
Dim z
For z = 6 To 10000
If Sheets("Daten").Cells(z, 1) = "" Then
Sheets("Auftrag").Range("D11:D14").Copy Sheets("Daten").Cells(z, 1)
Exit For
End If
Next z
Sheets("Auftrags").Range("D11:D14").Copy
Sheets("Daten").Cells(Rows.Count, 1).End(xlup).Offset(2, 0).pasteSpecial xlpastevalues
Der Fehler in deinem Codeversuch dürfte sein, dass ActiveCell.Copy verwendet hast statt Selection.Copy. Die ActiveCell ist aber immer nur eine einzige Zelle, auch wenn die Selection mehrere Zellen umfasst.