Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen und kopieren in ein anderes Tabelle

Zeilen löschen und kopieren in ein anderes Tabelle
09.03.2004 12:45:08
Olaf
Liebe Forumer,
meine VBA Kenntnisse sind noch sehr schwach und im Archiv bin ich nicht fündig geworden was mein spezielles Problem angeht.
Ich habe eine sehr große Tabelle die täglich erweitert und geändert wird (z.Zt. ca. 22.000 Zeilen). Ich möchte gerne die komplette Zeile von Tabelle1 nach Tabelle 2 kopieren, wenn in Spalte I ein x steht. Anschließend soll in Tabelle1 diese Zeile gelöscht werden.
In Tabelle2 sollen die neu eingefügten Zeilen aus Tabelle1 immer in die erste freie Zeile reingeschrieben werden, da ja täglich neue Zeilen kopiert werden.
Wer kann mir mit einem Makro helfen. Ich wäre Euch so dankbar.
Gruß
Olaf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen und kopieren in ein anderes Tabelle
09.03.2004 15:08:58
Beni
Hallo Olaf,
versuche es mit diesem Code.
Gruss Beni

Sub Zeilen_löschen_und_kopieren()
For r = 1 To Cells(65536, 9).End(xlUp).Row
With Sheets("Tabelle2")
z = .Cells(65536, 9).End(xlUp).Row + 1
s = Cells(r, 255).End(xlToLeft).Column
If Cells(r, 9) = "x" Then
Range(Cells(r, 1), Cells(r, s)).Cut Destination:=.Cells(z, 1)
Cells(r, 1).EntireRow.Delete
r = r - 1
End If
End With
Next r
End Sub

AW: Zeilen löschen und kopieren in ein anderes Tabelle
09.03.2004 15:30:59
Olaf
Hallo Beni,
vielen vielen Dank, funktioniert prima.
Gruß
Olaf
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige