Makrooptimierung

Sub new_month() Application.ScreenUpdating = False Dim Nmonth, Omonth As String Dim x, y As Integer Dim position, länge, inhalt As String Nmonth = InputBox("Welcher Monat?") Nmonth = Format(Nmonth, "00") anfang = Time() x = Cells.SpecialCells(xlLastCell).Row y = Cells.SpecialCells(xlLastCell).Column For i = 1 To 20 'x For j = 1 To 12 'y position = InStr(1, Cells(i, j).Formula, "!", vbTextCompare) länge = Len(Cells(i, j).Formula) inhalt = Right(Cells(i, j).Formula, länge - position) Cells(i, j).Formula = "='L:\Finanz\monthend\2008\" & Nmonth & "\[SAP wages.xls]SAP wages'!" & _ inhalt Next Next ende = Time() dauer1 = (ende - anfang) * 60 * 24 * 60 anfang = Time() Omonth = Range("A1").Formula Omonth = Replace(Omonth, "='L:\Finanz\monthend\2008\", "") Omonth = Replace(Omonth, "\[SAP wages.xls]SAP wages'!C3", "") Range("A1:L20").Replace What:=Omonth, Replacement:=Nmonth, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Application.ScreenUpdating = True ende = Time() dauer2 = (ende - anfang) * 60 * 24 * 60 MsgBox ("For-Next: " & dauer1 & " --- Replace: " & dauer2 & " --- Differenz: " & dauer2 - _ dauer1) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

A1: ='L:\Finanz\monthend\2008\06\[SAP wages.xls]SAP wages'!C3
A2: ='L:\Finanz\monthend\2008\06\[SAP wages.xls]SAP wages'!C4
...
A2000: ='L:\Finanz\monthend\2008\06\[SAP wages.xls]SAP wages'!C2002
B1: ='L:\Finanz\monthend\2008\06\[SAP wages.xls]SAP wages'!D3
...
B2000: ='L:\Finanz\monthend\2008\06\[SAP wages.xls]SAP wages'!D2002
usw. Sozusagen immer die Pfadangabe und dann der Bezug auf eine bestimmte Zelle in der Quelldatei. Der Pfad ändert sich halt jeden Monat, so daß ich die Monats-Zahl austauschen muss. Theoretisch könnte ich da ja auch mit INDIREKT realisieren, aber da kommen Fehlermeldungen bei nicht geöffneter Datei und das will ich weitestgehend vermeiden, da auch andere User die Datei öffnen könnten.
Gruß
David

Hi
wenn du Laufzeiten von Makros ermitteln willst, dann ist die Funktion TIMER vielleicht geeigneter als TIME
TIMER gibt dir die aktuelle Zeit in Sekunden ab Mitternacht,die einheit für Sekunden ist 1, und dürfte daher etwas genauer sein als Time, wenn es um Sekundenbruchteile geht.
Variablen, die mit Timer arbeiten, sollten als SINGLE deklariert sein.
Außerdem halte ich deine Versuchsmenge noch nicht gross genug, um signifikante Laufzeitunterschiede festzustellen.
des weiteren könnte es sein, daß gar nicht das Makro (welches auch immer) zeitbestimmend ist, sondern, da du mit Fernbezügen arbeitest, die Neuberechnung der Fernbezüge.
aber um dazu eine Aussage machen zu können, müsste man deine Formeln und die referenzierten Daten besser kennen.
meiner Erfahrung nach dürfte bei grossen Datenmengen das 2. Makro schneller sein, da hier nicht von VBA selbst gerechnet wird, sondern die in Excel eingebauten Funktionen verwendet werden.
Das ist in den meisten Fällen die schnellste Lösung.
das erste Makro ist langsam, weil VBA grundsätlich langsam ist, wenn mit den Excel-Objekten RANGE oder CELLS in Schleifen gearbeitet wird.
hier ist dann oft die bessere Methode, die Inhalte der Zellen in eine Feld-Variable (Array) zu kopieren, dann diese Feldvariable zu bearbeiten und dann die Werte in die Zellen zurückzuschreiben.
der Code dazu könnte so aussehen:


Sub new_month()
Application.ScreenUpdating = False
Dim Nmonth, Omonth As String
Dim x, y As Integer
Dim position, länge, inhalt As String
Dim arr
Nmonth = InputBox("Welcher Monat?")
Nmonth = Format(Nmonth, "00")
anfang = Time()
x = Cells.SpecialCells(xlLastCell).Row
y = Cells.SpecialCells(xlLastCell).Column
arr = Cells(1, 1).Resize(x, y).FormulaLocal
For i = 1 To 20 'x
For j = 1 To 12 'y
position = InStr(1, arr(i, j), "!", vbTextCompare)
länge = Len(arr(i, j))
inhalt = Right(arr(i, j), länge - position)
arr(i, j) = "='L:\Finanz\monthend\2008\" & Nmonth & "\[SAP wages.xls]SAP wages'!" & _
inhalt
Next
Next
Cells(1, 1).Resize(x, y).FormulaLocal = arr
ende = Time()
dauer1 = (ende - anfang) * 60 * 24 * 60
anfang = Time()
Omonth = Range("A1").Formula
Omonth = Replace(Omonth, "='L:\Finanz\monthend\2008\", "")
Omonth = Replace(Omonth, "\[SAP wages.xls]SAP wages'!C3", "")
Range("A1:L20").Replace What:=Omonth, Replacement:=Nmonth, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.ScreenUpdating = True
ende = Time()
dauer2 = (ende - anfang) * 60 * 24 * 60
MsgBox ("For-Next: " & dauer1 & " --- Replace: " & dauer2 & " --- Differenz: " & dauer2 - _
dauer1)
End Sub

(nicht getestet, da keine Beispieldaten vorhanden)
die Änderungen habe ich fett oder kursiv gekennzeichnet.
mit diesen beiden Makros sollten eigentlich auch grössere Datenmengen kein Problem sein.
wenn allerdings wie schon erwähnt die neuberechnung des Externen Bezugs das Problem ist, dann würde dir nur helfen, die Dateien , auf die sich die alten und neuen Fernbezüge beziehen zu öffnen, und dann das Makro für diese Situation neu zu schreiben (kein Pfadangaben in den Externen Bezügen).
bei geöffneten Dateien ist das Berechnen der externen Bezüge wesentlich schneller, als bei geschlossenen Dateien. Daher ist es auf jeden Fall lohnenswert, diese Dateien zu öffnen.
Gruß, Daniel

Sub holen2() Const Standard As String = "L:\Finanz\monthend\2008\|\[SAP wages.xls]SAP wages'!C3:D2002" Dim Neuer_Bezug As String Dim Nmonth Nmonth = InputBox("Welcher Monat?") Nmonth = Format(Nmonth, "00") Neuer_Bezug = "='" & Replace(Standard, "|", Nmonth, , 1) With ActiveSheet.Range("A1:B2000") .ClearContents .FormulaArray = Neuer_Bezug End With End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makrooptimierung

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread