Makros in verschiedenen Sheets ausführen
10.02.2009 17:31:14
Hopper
Habe ein Workbook bei dem ich ein Makro beschleunigen will. Das Makro löst in mehreren Worksheets Makros aus. Diese werden daher alle über den Befehl Sheets("xxx").select angesteuert und dann mit Call Makroxxx bearbeitet. Weiß nun, dass gerade der Sheets.select-Befehl Makros langsam macht. Daher meine Frage: Kann ich Makro in Worksheets ausführen ohne sie über Select anzusteuern?
MakroCode:
Private Sub ()
Application.ScreenUpdating = False
Sheets("Zusammenf.").Select
Call Sortieren_Konten
Sheets("Werte").Select
Range("B1").Select
Call Übernahme_Konten
Sheets("Filter").Select
Range("A2:F2000").Select
Selection.Copy
Sheets("Ergebnis").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("B:B").EntireColumn.AutoFit
Range("C2:F4444").Select
Selection.NumberFormat = "#,##0.00"
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Makro ist gekürzt
Allen die hier sind schon mal herzlichen Dank
Grüße
Christoph
Anzeige