variabelen Bereich von Tabelle kopieren
21.04.2009 08:34:32
Tabelle
Ich habe ein Problem, was ich auch alles aus verschiedenen Beiträgen aus dem Forum ausprobiere, irgend wie funktionierts nicht.
Ich habe zwei Tabellen , eine Quelldatentabelle und eine Zieldatentabelle.
Aus der Quelldatentabelle möchte ich einen bestimmten Bereich in eine andere Tabelle einfügen.Der Bereich der Quelldaten beginnt immer in Spalte A 1 und erstreckt sich je Datensatz auf die nächsten 5 Spalten, also A 1 bis F 1. Diese Daten sollen in der Zieltabelle ab der Spalte C12 eingetragen werden, der nächste Datensatz (A2 bis F2) dann in Spalte C13 usw..
Ich stehe irgend wie auf dem Schlauch.das Makro habe ich aufgezeichnet um den Ablauf irgendwie darzustellen.
Sub autokopieren()
' autokopieren Makro
' Makro am 21.04.2009 von ChristophSas aufgezeichnet
'Quelldatentabelle
Range("A12:F12").Select 'ab spalte A immer die nächsten 5 Spalten weiter auswählen
Selection.Copy
Windows("Na Frankfurt xls").Activat 'Zieldatentabelle
Range("C123").Select
ActiveSheet.Paste
Windows("Nachträge .xls").Activate
Range("A13:F13").Select 'immer 3 Zeilen weiter einfügen
Selection.Copy
Windows("Na Frankfurt .xls").Activate
Range("C126").Select
ActiveSheet.Paste
Windows("Nachträge .xls").Activate
Range("A14:F14").Select 'immer 3 Zeilen weiter einfügen
Selection.Copy
Windows("Na Frankfurt .xls").Activate
Range("C129").Select
ActiveSheet.Paste
Windows("Nachträge .xls").Activate
'Quelldatentabelle beginnt immer in Bereich A1-F1 dann ünterschiedliche Anzahl von Datensä _
_
_
tzen (Zeilen)möglich
'Zieldatenbereich beginnt immer in Spalte C12,nächster einzufügender Datensatz soll dann in _
_
_
c15,dann c18 also immer 3 Zeilen tiefer.
End Sub