AW: Manuelles kopieren oder VBA?
31.01.2007 22:05:33
Daniel
Hallo
ist auch etwas falsch formuliert, außerdem überschreibst du dir damit ja immer die letztete Zeile.
so müsste es gehen:
Sub Bloomberg_Orders()
Sheets("1").Select
Range("A1").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").CurrentRegion.Select
Selection.Copy
Sheets("Neu").Select
Range("A1").End(xlDown).offset(0,1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("3").Select
Range("A1").CurrentRegion.Select
Selection.Copy
Sheets("Neu").Select
Range("A1").End(xlDown).offset(1,0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
oder noch kürzer:
Sub Bloomberg_Orders()
Sheets("1").Range("A1").CurrentRegion.Copy
Sheets("Neu").Range("A1").PasteSpecial Paste:=xlValues
Sheets("2").Range("A1").CurrentRegion.Copy
Sheets("Neu").Range("A1").End(xlDown).offset(0,1).PasteSpecial Paste:=xlValues
Sheets("3").Range("A1").CurrentRegion.Copy
Sheets("Neu").Range("A1").End(xlDown).offset(1,0).PasteSpecial Paste:=xlValues
End Sub
allerdings funkioniert das so nur dann einwandfrei, wenn deine Tabellen in spalte A keine leeren Zellen enthalten. falld dies vorkommen kann, müsstest du deine erste freie Zelle zum einkopieren nicht von oben, sondern von unten suchen:
Range("A65536").end(xlup).offset(1,0).select
Gruß, Daniel