Lange Makrolaufzeit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
wenn ich mir Deinen Code so angucke, wird das Problem klar, hier mal lesen:
https://www.online-excel.de/excel/singsel_vba.php?f=78
https://www.online-excel.de/excel/singsel_vba.php?f=61

Sub Makro1()
' Makro1 Makro
Columns("AQ:BG").Select
ActiveSheet.Unprotect
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
range("AX89").Select
ActiveWindow.SmallScroll ToRight:=-34
ActiveWindow.Zoom = 90
ActiveWindow.Zoom = 80
ActiveWindow.Zoom = 70
Workbooks.Add
ActiveWindow.Close
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("3-Monatskalender").Select
Columns("A:Z").Select
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Spinners.Add(180, 3, 0, 12).Select
ActiveSheet.Buttons.Add(72, 6, 87, 9).Select
ActiveSheet.Buttons.Add(972.75, 6, 167.25, 9).Select
ActiveSheet.Buttons.Add(818.25, 6.75, 140.25, 8.25).Select
ActiveSheet.Paste
Sheets("3-Monatskalender").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
ActiveSheet.Shapes("Spinner 1").Select
Rows("4:4").Select

Sub Kalender_Vor_Aktuell_Nach()
Application.ScreenUpdating = False
range("U1").Value = Time
Letztezeile = ActiveSheet.Cells(150, 16).End(xlUp).Row
range("A3:P" & Letztezeile + 1).Select
ActiveSheet.Unprotect
Selection.ClearContents
Selection.ClearFormats
Selection.RowHeight = 15
Selection.NumberFormat = "General"
range("B3").Select
ActiveCell.FormulaR1C1 = "'Montag"
range("C3").Select
ActiveCell.FormulaR1C1 = "'Dienstag"
range("D3").Select
ActiveCell.FormulaR1C1 = "'Mittwoch"
range("E3").Select
ActiveCell.FormulaR1C1 = "'Donnerstag"
range("F3").Select
ActiveCell.FormulaR1C1 = "'Freitag"
range("G3").Select
ActiveCell.FormulaR1C1 = "'Sonnabend"
range("H3").Select
ActiveCell.FormulaR1C1 = "'Sonntag"
range("I3").Select
ActiveCell.FormulaR1C1 = "'KW"
range("B3:I3").Select
With Selection.Font

Gruß, Mullit

hallo Mullit,
ich weiß dass ihr EXCEL-Cracks die Verwendung von "Select" zum größten Teilk für überflüssig haltet; das mag auch so sein.
Ich spiele wahrscheinlich aus Excel-VBA-Sicht in einer anderen Liga als du und bin froh und ein wenig stiolz wenn ich mit bescheidenen VBA-Kenntnissen ein Projekt erfolgreich fertigstelle auch wenn es aus Sicht eines Profis dilettantisch wirkt.
In der ursprünglichen Frage ging es darum, aus welchem Grund das vorliegende Makro in ca. 1 Sekunde abläuft, während das gleiche Makro in einer anderen umfangreichen Datei eingefügt mindestens 6 mal so lange benötigt. Das hat nun wohl kaum mit der Verwendung von "Select" zu tun.
Es wäre auch hilfreich gewesen wenn du nicht nur auf externe Dokumente verweist sondern einige wenige funktionierende Beispiele meines Codes entsprechend geändert hättest.
Übrigens für die Funktion des Kalenders ist ausschließlich das Makro: Sub Kalender_Vor_Aktuell_Nach()" erforderlich
Mit einer Makrolaufzeit von 1 Sekunde kann ich gut leben; selbst wenn ich auf einige "Select" verzichte wird das vermutlich nur minimale Geschwindigkeitsverbesserungen mit sich bringen.
reiner

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread