Anzeige
Archiv - Navigation
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen in erste leere Zeile in anderes Blatt

Zellen in erste leere Zeile in anderes Blatt
30.01.2003 18:32:36
Michael
Ich bin fast am verzweifeln,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellen in erste leere Zeile in anderes Blatt
30.01.2003 19:02:56
L.Vira

Du musst geduldiger werden, siehe meine Antwort im alten Beitrag.

Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige