Daten einer Tabelle in eine Zeile kopieren (Access oder Excel)

[Karl99]

Schreib ein Excel-Makro, das im Prinzip aus einer Tabelle den Wert liest und in eine andere Tabelle an eine gewisse Position schreibt. Verwende aber 2 unterschiedliche Blätter deshalb, damit sich nichts überschreibt. Mit einer EOF-Schleife (nicht im folgenden Beispiel enthalten!) sollte diese einfache Makro-Methode kein Problem darstellen.
LG Karl

Sub Makro1()
Sheets("Tabelle1").Select
Range("A2").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("D2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("A5").Select
End Sub