Spalten kopieren
24.10.2008 10:14:39
gio
brauche Eure Hilfe, da wieder an meine Grenzen gestoßen.
Ausgangssituation:
Habe mehrere Spalten in Tabelle1.
Spalten sind nummeriert und zwar ist in der ersten Zeile A1, A2, A3, A4, usw
Ziel:
Nun soll Inhalt der Spalte mit der Kennung A1 (Zeile 2 bis Ende) in Tabelle2 kopiert werden und zwar in die Spalte wo wieder in der Zeile 1 die Kennung A1 steht.
(also gleich darunter in der 2. Zeile).
Mir ist kaum was mit Makrorecorder gelungen, da ich die Abfrage nicht machen kann und
nicht sagen kann wenn keine Spaltennummer mehr aufhören.
Kann mir da jemand helfen diesen Prozeß zu automatisieren, daß er mir alle nummerierten Spalten selbst reinkopiert, da ich wöchentlich 20 unterschiedliche Reports machen muß und das Fehlerrisiko schon gr0ß ist.
Vielen Dank und Gruß
gio
Sub Makro1()
' Makro1 Makro
Sheets("Tabelle1").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Tabelle2").Select
Range("C2").Select
ActiveSheet.Paste
End Sub