AW: Listen oder Zwischenräume zusammenfügen
30.09.2006 14:56:59
Daniel
Hallo
by-Hand heißt einfach, daß ich die entsprechendnen Tasten drücke oder die Befehle im Kontextmenü auswähle.
bei mit VBA macht das eben das Makro.
In deinem Fall wird wohl folgendes Makro helfen:
Sub Zusammenkopieren()
Sheets(1).Cells(1, 1).CurrentRegion.Copy Destination:=Sheets(4).Cells(1, 1)
Sheets(2).Cells(1, 1).CurrentRegion.Offset(1, 0).Copy Destination:=Sheets(4).Cells(65000, 1).End(xlUp).Offset(1, 0)
Sheets(3).Cells(1, 1).CurrentRegion.Offset(1, 0).Copy Destination:=Sheets(4).Cells(65000, 1).End(xlUp).Offset(1, 0)
End Sub
Ich bin davon ausgegangen, daß alle deine Tabellen Überschriftszeilen haben, die du nur bei der ersten mitkopiern willst, bei der 2. und 3. aber nicht mehr.
Gruß, Daniel