Code verkürzen

Forumthread: Code verkürzen

Code verkürzen

18.08.2004 22:10:22

Rosenwasser

Hallo zusammen,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code verkürzen

19.08.2004 03:47:26

Hans
AW: Code verkürzen

19.08.2004 12:15:46

Rosenwasser

AW: Code verkürzen

19.08.2004 03:47:26

Hans

Hallo Benny,
Selektieren und Aktivieren ist bei der VBA-Programmierung Teufelszeugs.
Wenn sich in Zelle A1 ein Inhalt befindet, dann:


Sub Test()
Dim rng As Range
Set rng = ActiveSheet.UsedRange
Workbooks.Open Filename:="C:\GBM\Gbm-Data.Xls"
rng.Copy Worksheets("  L1  ").Range("A1")
ActiveWorkbook.Close savechanges:=True
Range("E2").Cut Range("D2")
ActiveWorkbook.SaveAs Filename:="C:\GBM\L1.xls"
With Workbooks("GBM.xls").Columns("B:D")
.Value = Columns("B:D").Value
.Range("C2").Copy .Range("X1")
.Range("A3:C2000").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Workbooks("L1.xls").Close savechanges:=False
Kill "C:\GBM\L1.xls"
End Sub

Prüfe den Code, bevor Du ihn verwendest, ich bin nicht sicher, ob ich die Aktivieren/Deaktivieren-Sequenzen richtig mitbekommen habe.
Gruss hans

AW: Code verkürzen

19.08.2004 12:15:46

Rosenwasser

Hallo Hans,
Vielen Dank für die Verbesserung,
Habe noch ein bischen geändert aber es Functioniert.
mfg

Beliebteste Forumthreads (12 Monate)

Forumthread: Code verkürzen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread