Verschieben/Kopieren von Zellinhalten
30.01.2003 13:40:43
Michael
egal wie ich es anstelle, die Prozedur läuft immer auf den Fehler:
Copy Methode des Range Objekts fehlerhaft.
Private Sub cmd215_Click()
Dim i As Integer
Dim y As Integer
Dim lgLetzte As Long
Dim ende As Long
Dim z As Long
'erste freie Zeile in Blatt 2, Spalte A finden
lgLetzte = Sheets("Stabilisatoren eingesetzt").[b65536].End(xlUp).Row + 1
'letzte belegte Zeile in Blatt 1, Spalte A finden
ende = [a65536].End(xlUp).Row
For z = ende To 12 Step -1
If Cells(z, 1) = True Then
Cells(z, 1) = Now
Sheets("Stabilisatoren").Range(Cells(z, 1), Cells(z, 3)).Copy Sheets("Stabilisatoren eingesetzt").Cells(lgLetzte, 1)
Sheets("Stabilisatoren").Range(Cells(z, 1), Cells(z, 3)).Delete Shift:=xlUp
lgLetzte = lgLetzte + 1
End If
Next z
End Sub