Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle kopieren und an andere Tabelle dran hängen

Tabelle kopieren und an andere Tabelle dran hängen
Logan
Hallo zusammen,
Ich hab ein Makro geschreiben, dass mir den Inhalt einer Tabelle kopieren und am Ende einer anderen Tabelle einfügen soll.

Sub Test()
Dim Bereich4 As Long
Windows("Mappe2").Activate
Sheets("Tabelle20").Select
Bereich4 = ActiveSheet.UsedRange.Rows.Count
Columns("A:A").Rows("1:" & Bereich4).Select
Selection.Copy
Windows("Abgleichmodul2.xls").Activate
Sheets("Tabelle2").Activate
Range("A65536").End(xlUp).Select
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
End Sub

An der Stelle mit den vielen XXX habe ich so meine Probleme. Ich schaffe es einfach nicht jetzt die nächste Zeile zu aktivieren und anschließend einzufügen.
Selbst nur beim Versuch einzufügen, bekomme ich immer angezeigt, dass diese Zeile nicht korrekt ist.
Kann mir jemand helfen, welchen Befehl ich verwenden muss und wie der Aufgebaut sein muss, damit ich es richtig hinschreiben kann?
MfG
Logan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabelle kopieren und an andere Tabelle dran hängen
ChrisL
Hi Logan
Vergiss alle Select and Activate...
http://xlfaq.herber.de/xlbasics/main_sel.htm

Sub Test()
With Workbooks("Mappe2.xls").Worksheets("Tabelle20")
.Columns("A:A").Rows("1:" & .UsedRange.Rows.Count).Copy _
Workbooks("Abgleichmodul2.xls").Worksheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub

Gruss
Chris
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige