Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
820to824
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Übertragen einer Zeile in ein anderes Tab.blatt

Übertragen einer Zeile in ein anderes Tab.blatt
16.11.2006 16:23:14
Ingo
Hallo zusammen,
ich habe eine Mappe mit zwei Arbeitsblättern und möchte gerne "auf Knopfdruck" bestimmte Zeilen in das andere Arbeitsblatt ("Archiv") verschieben können, z.B. durch setzen eines "x" in eine Zelle dieser Zeile. Eine Zeile besteht aus ca. 15 Spalten mit Werten.
Dabei soll die komplette Zeile immer in die nächste freie Zeile des Archivs verschoben werden und die nun leere Zeile des Ursprungsblatt verschwinden.
Kennt hier jemand einen guten Code bzw. Ideen für die Umsetzung?
Ich dachte an einen Commandbutton, der dann die Zeilen bei denen ein bestimmtes Kriterium (z.B. "x" bei Spalte "erledigt") zutrifft in das andere Blatt verschiebt, nur weiß ich nicht wie ich die erste freie Zelle des Archiv-Datenblattes finde und die leere Zeile automatisch in dem bestehenden Arbeitsblatt entferne.
Danke und Gruß Ingo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertragen einer Zeile in ein anderes Tab.blat
16.11.2006 16:45:49
Erich
Hallo Ingo,
die erste freie Archivzeile bekommst du mit
lngLetzte = Sheets("Archiv").cells(rows.count,1).end(xlup).row + 1
Die Zeile lngZ, die übertragen (verschoben) wurde, kannst du löschen mit
rows(lngZ).delete
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige