Copy paste in dyn. Tab & verschiedenen Sheets

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
welches mir die letzten Zeile einer dynamischen Tabelle, im Worksheet "Angabenliste", an die letzte Zeile einer anderen dynamischen Tabelle im Woksheet "Firma" kopiert.
(Später soll der gleiche Wert in eine dritte dynamische Tabelle, allerdings an die letzte spalte kopiert werden, da es eine von links nach rechts laufende Tabelle ist)
Du scheibst einmal Zeile kopieren und ein anders mal in Spalte ?
versteh ich nicht ganz.
- meinst du die letzte Zelle ( z.B. von Spalte A )
- oder wirklich die ganze Zeile ? Die kannst du aber nicht an einer Spalte anhängen
- oder soll die Zeile zu einer Spalte transponiert werden
Wenn es nur um die Letzte Zelle geht, dann so...


Sub dgdgd()
Dim TB1, TB2, TB3
Dim Zeile1 As Double, Zeile2 As Double
Dim Spalte3 As Integer, Zeile3 As Double
Set TB1 = Sheets("Angabenliste")
Set TB2 = Sheets("Firma")
Set TB3 = Sheets("Dritte")
Zeile3 = 10 'ZielZeile für Blatt 3
Zeile1 = TB1.Cells(TB1.Rows.Count, 1).End(xlUp).Row
Zeile2 = TB2.Cells(TB2.Rows.Count, 1).End(xlUp).Row
Spalte3 = TB3.Cells(Zeile3, TB3.Columns.Count).End(xlToLeft).Column 'letzte Spalte einer  _
Zeile
TB1.Cells(Zeile1, 1).Copy TB2.Cells(Zeile2 + 1, 1)
TB1.Cells(Zeile1, 1).Copy TB3.Cells(Zeile3, Spalte3 + 1)
End Sub

Sonst bitte Musterdatei mit Darstellung Ist und Soll
LG UweD

Hallo lieber UweD,
vielen vielen dank für die wahnsinnig schnelle Antwort!
Der Code funktioniert leider noch nicht ganz, (Laufzeitfehler 9) denk aber das hat was mit dem Missverständnis "Spalte/Zeile" zu tun, dass er auf ein drittes Sheet zugreifen möchte welches nicht existiert. Entschuldige hier für meine undeutlich ausgedrucksweise.
Ich versuch es besser zu erklären:
Aufbau:
Es existieren 2 Worksheets einmal "Liste" und einmal "Firmen".
Im Worksheet "Liste" werden die Firmennamen in einer dynamischen Tabelle dargestellt und um weitere Firmen erweitert.
im Worksheet "Firmen" wird die Struktur von zwei Dropdownlisten erzeugt, heißt:
Hier existieren nochmal 2 dynamische Tabellen in denen die Firmennamen und Ansprechpartner aufgelistet werden.
Mein Ziel:
Wenn ich die dynamische Tabelle, in "liste", erweitere und auf ein Makro-knopf drücke, möchte ich, dass der Firmenname von der untersten Zeile der Tabelle, in die unterste Zeile der dynamischen Tabelle im Worksheet "Firma" geschrieben wird.
Später soll der Name und Ansprechpartner in der dritten dynamische Tabelle im Worksheet "Firma" eingefügt werden, allerdings an die letzte Spalte, da es eine von links nach rechts laufende Tabelle ist.
Des weiteren habe ich eine Beispieldatei, für ein besseres Verstädnis, beigefügt.
https://www.herber.de/bbs/user/116199.xlsx
nochmals vielen lieben Dank!
ganz lieben Gruß
Logan

Sub dgdgd() Dim TB1, TB2 Dim Zeile1 As Double, Zeile2 As Double Dim Spalte2 As Integer Set TB1 = Sheets("Liste") Set TB2 = Sheets("Firma") Zeile1 = TB1.Cells(TB1.Rows.Count, 1).End(xlUp).Row Zeile2 = TB2.Cells(TB2.Rows.Count, 1).End(xlUp).Row Spalte2 = TB2.Cells(1, TB2.Columns.Count).End(xlToLeft).Column '1. Kopieren TB1.Cells(Zeile1, 1).Resize(1, 2).Copy TB2.Cells(Zeile2 + 1, 1) '2. Kopieren TB1.Cells(Zeile1, 1).Resize(1, 2).Copy TB2.Cells(1, Spalte2 + 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

Copy paste in dyn. Tab & verschiedenen Sheets

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Copy paste in dyn. Tab & verschiedenen Sheets

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread