Re: Macro Kopiere in nächst leere Kolonne
05.12.2002 14:53:17
Robert
Hallo Hans,Der unten erwähnte Makro ist eine kürzere Version aber beinhalltet das womit ich nicht weiter komme . Ich schätze dass
Windows("Hauptbuch.xls").Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
geändert werden muss um einfugen in den nächst freien Spalten möglich zu machen.
Kommst du mit dieser Info weiter oder?
Sub AllDataCollect()
'
' AllDataCollect Macro
' Macro recorded 02.12.2002 by Robert
'
'
ChDir "D:\PlanDatabase\PlanDatabase1"
Workbooks.Open Filename:= _
"D:\PlanDatabase\PlanDatabase1\Test.xls", UpdateLinks _
:=3
Sheets("Test1").Select
Range("B15:E46").Select
Selection.Copy
Windows("Hauptbuch.xls").Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Windows("Test.xls").Activate
Application.CutCopyMode = False 'clipboard delete
Workbooks("Test.xls").Close savechanges:=False
Windows("Hauptbuch.xls").Activate
Range("B6").Select
End Sub