Zellen in erste leere Zeile in anderes Blatt
30.01.2003 18:32:36
Michael
egal wie ich es anstelle, die Prozedur läuft immer auf den Fehler:
Copy Methode des Range Objekts fehlerhaft.
Der CommandButton ist im Tabellenblatt (Stabilisatoren). Die Daten sollen ins TAbellenblatt (Stabilisatoren eingesetzt) verschoben werden und die leeren Zellen sollen entfernt werden. Ein Problem dabei ist das ich nicht die ganze Zeile löschen kann. da ich mehrere Spalten mit Daten nebeneinander liegen habe.
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
Anzeige