Code verkürzen
18.08.2004 22:10:22
Rosenwasser
Ich habe diesen macro aufgenommen. Ich glaube aber es muss eine Möglichkeit geben den Code zu verkürzen.
Besten Dank für Eure Hilfe
Gruss Benny
Sub Test()
Cells.Select
Selection.Copy
Workbooks.Open Filename:="C:\GBM\Gbm-Data.Xls"
Sheets(" L1 ").Select
Range("A1").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("E2").Select
Range("E2").Cut Destination:=Range("D2")
ActiveWorkbook.SaveAs Filename:="C:\GBM\L1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Columns("B:D").Select
Selection.Copy
Windows("GBM.xls").Activate
Sheets("Data").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C2").Select
Selection.Copy
Range("X1").Select
ActiveSheet.Paste
Range("A3:C2000").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A3").Select
Windows("L1.xls").Activate
ActiveWorkbook.Close
Kill "C:\GBM\L1.xls"
Range("A1").Select
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub