Tabellen zusammenführen
31.01.2007 16:38:19
Daniel
ich habe per Rekorder mir den Kopiervorgang für den Bereich eines Tabellenblatts in ein neues Blatt aufgezeichnet.
Nun ist es aber so, dass ich drei Tabellenblätter in der neuen Datei zusammenführen will.
Die Blätter sollen einfach untereinander angehängt werden.
Wie mache ich das? Das hier war leider erfolglos:
Sub Bloomberg_Orders()
Sheets("1").Select
Range("A1").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Neu").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("2").Select
Range("A1").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Neu").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("3").Select
Range("A1").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Neu").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub