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

Zeilen kopieren & einfügen

Zeilen kopieren & einfügen
19.01.2004 16:17:00
Stefan
Hallo Forum,
hier mein Problem:
Ich möchte von Tabelle1 eine Zeile nach Tabelle2 kopieren, in Tabelle2 soll jedoch zuerst die letzte freie Zeile ermittelt werden und dann die zu kopierende Zeile aus Tabelle1 eingefügt werden.
Sicherlich für die Profis ein einfaches Problem....
Vielen Dank schon jetzt für Eure Unterstützung....
Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren & einfügen
19.01.2004 16:22:57
Heinz Ulm
Hallo Stefan,
mal ein Codeschnipsel zum Anschauen:
Rows("4:4").Select
Selection.Copy
Sheets("Bewerber").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Es wird die Zeile 4 einer Tabelle kopiert und in der Tabelle Bewerber in der nächsten freien Zeile in der Spalte A eingefügt.
Gruß Heinz
AW: Zeilen kopieren & einfügen
19.01.2004 16:42:53
Stefan
Hallo Heinz,
vielen Dank für die schnelle Antwort.
Dein Progammschnipsel funktioniert prima, jetzt merke ich auch erst, dass mein 1. Teil nicht optimal läuft....
Aus Tabelle1 sollten eigentlich Zeilen kopiert werden, wenn z. B. in Spalte B der Wert 200 eingetragen ist, auch hier ist der zu durchsuchende Bereich fexibel. Dann soll die vorgenannte Kopieraktion laufen.
Leider verschluckt meine Variante wohl einen Teil der Tabelle1.
Vielen Dank für eine schnelle Idee.....
Stefan
Anzeige
AW: Zeilen kopieren & einfügen
19.01.2004 16:26:57
Mac4
Hallo Stefan,
so z.B.:

Sub test()
Rows(1).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End Sub

Marc

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige