Office: Zeille kopieren/verschieben wenn Zelle bestimmten Wert

Hallo zusammen!

Erneut ein kleines Problem.
ich möchte eine Zeile von einer Tabelle3 in die Tabelle5 verschieben, wenn in der Zelle der Spalte O der Wert 1 eingetragen ist.

Ich hab mich jetzt mal mit dem Kopieren ein bisschen rangetastet und verwende folgenden Code:
Code:

Soweit funktioniert der Code. Er sucht die Zeile nach dem Wert 1 in Spalte O.
Beim Kopieren kommt aber dann der Fehler, dass nicht die Zeile von Tabelle3 nach Tabelle5 kopiert wird, sondern die Zeile von Tabelle1.
Wie muss ich es angeben, damit die Zeilen von Tabelle3 kopiert werden? Da muss ich ja die Tabelle3 noch als Source oder so angeben.

Und dann auch noch zwei Schritte weiter...
Die Zeile soll schlussendlich nicht nur kopiert, sondern ganz verschoben werden. Außerdem Sollen Zeilen mit dem Wert 1 in der Zell von Spalte O in Tabelle5 verschoben werden, die mit Wert 2 in Tabelle6 und die mit Wert 3 in Tabelle7. Wie kann man die Schleifen erweiterten, dass nach verschiedenen Werten gesucht wird?

:)

 

Moin
Code:

Wenn es viele Daten sind, besser mit Filter.
Muss wirklich die ganze Zeile kopiert werden?
gruss hary

 

Super, Danke schon mal.
Leider gibts einen Laufzeitfehler:
Index außerhalb des gültigen Bereichs

Da gehts um:
Code:

bei den "lngTabelle" meint er immer "lngTabelle = 0"



Es sind nicht viele Daten. Ich geh von ca. 30 Zeilen aus.

Und nein, es muss nicht die ganze Zeile verschopen werden, sondern nur von Spalte A bis O. Aber die restlichen Zellen sind definitiv leer.

 

Moin
Dann versuch mal so.
Select Case clng(.Cells(i, 15))
Bin unterwegs ohne Excel.
Wie heissen die Blaetter wirklich bzw. moechtest du die Blaetter mit VBAnamen(Index) ansprechen oder mit Blattnamen.
gruss hary

 

Dann noch vielen Dank für deinen Einsatz für mich.

Habs versucht. Jetzt heißt es "Typen unverträglich".

Die Blätter möchte ich lieber mit dem VBAnamen ansprechen. Da kommen nämlich immer wieder noch Tabellen dazu.
Die Tabellen heißen in dem Fall jetzt "Anmeldeliste" für Tabelle3 und "Gebiet1" bis "Gebiet3" für Tabelle5 bis Tabelle7.

 

Moin
letzter versuch bis Montag.
Code:

gruss hary

 

Da bleibts bei dem "Typen unverträglich".
Und zwar bei
Code:

Kein Problem wenn jetzt Wochenende ist. Ist ja schließlich eine freiwillige Hilfe von dir.

Ich häng aber noch gleich die komplette Datei an.
Da sieht man's immer besser.

 

Moin
Ueber Umweg geschafft die Mappe anzuschauen.
Wenn du die Schleife bei 1 beginnst und die Werte erst ab 2 drinstehen!!!!
For i = 2 To .Cells(Rows.Count, 15).End(xlUp).Row
gruss hary

 

Da kommt man aus dem verdienten Mittag und hat auch gleich noch eine Lösung erhalten.

Vielen Dank dafür!
Du warst mir eine große Hilfe.

Jetzt muss ich nur noch die Zeilen löschen lassen.

PS: keine Angst, ich werd noch einige Fragen bei meinem Projekt haben. *biggrin.gif*

 

Hallo nochmal!

Ich hab da jetzt noch ein wenig dran rumgespielt.
Rausgekommen ist daei folgendes:
Code:

Das
Code:

hab ich noch drangehängt, damit die Zeilen auch gelöscht werden.
Jedoch löscht der Befehl die Zeilen vopn oben nach untern.
Wie muss ich den umschreiben, damit die Zeilen von unten nach oben gelöscht werden und WICHTIG die erste Zeile dabei immer stehen bleibt?

 

Moin
Ungetestet! Loeschen immer von unten nach oben,da sonst die Schleifenreihenfolge nicht mehr passt.
Code:

gruss hary

 

Klappt natürlich und ist ja auch logisch. Wenn das Kopieren mit der Variablen so gemacht wird, dann muss auch das Löschen mit der Variable so gemacht werden.

 

Moin nochmal
Bedenke auch wenn mal durch Zufall "lngTabelle" Null sein sollte oder es die Tabelle nicht gibt, dann kommt ein Laufzeitfehler.
Evtle. Pruefung waere sinnvoll.
grus hary

 

Da bin ich auch schon drübergestolpert.
Aber da haben jetzt alle einen Wert erhalten.

Was mir jetzt noch aufgefallen ist....

Ich hab nämlich jetzt mal 10 Einträge in die Liste geladen und wollte die dann rüberkopieren.
Das funktioniert beim ersten Klick mit den Einträgen 1, 3, 5, 7 und 9.
Die Einträge 2, 4, 6, 8 und 10 bleiben stehen.
Nach dem zweiten Klick werden die Einträge 2 und 6 kopiert und beim dritten klick dann der Eintrag 4.
Es wird also immer die zweite Zeile kopiert.
Das dürfte doch an dem i = 2 liegen, oder? Oder ist es dieses ".Row +1, 1"?

 

Moin
Hast du die Schleife auch umgeschrieben? von unten nach oben. Siehe #11
statt(da faellt jeder zweite raus)
For i = 2 to .Cells(Rows.Count, 15).End(xlUp).Row
dies
For i = .Cells(Rows.Count, 15).End(xlUp).Row To 2 '--Rolle rueckwaerts
gruss hary