Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Macrolaufzeit per Balken o.ä. anzeigen möglich?

Forumthread: Macrolaufzeit per Balken o.ä. anzeigen möglich?

Macrolaufzeit per Balken o.ä. anzeigen möglich?
31.10.2003 11:50:58
Fritz
Hallo liebe Forumianer,

ich lasse ein Macro (dank an Martin Bolleter) laufen welches derzeit ca. 3 Minuten läuft. Mit steigender Datenzahl wird sich sicher auch die Laufzeit erhöhen.

Gibt es eine Möglichkeit die Laufzeit per Balken, Uhr, Kreis o.ä. anzeigen zu lassen?

Ich habe zwar etwas bei Hajo_zi gefunden, aber damit komme ich nicht klar weil dort das Macro über USerform gestartet wird. Mein Macro hat aber keine Userforms.

Hier das Macro:


Sub Vergleich()
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
Dim iZeile As Long, Zelle As Range, LetzteZeile As Long, Tage%
Dim N%, i%, Ausg()
Application.ScreenUpdating = False
Set WS1 = Worksheets("Berechnung")
Set WS2 = Worksheets("Eingang")
Set WS3 = Worksheets("Ausgang")
N = WS3.Range("L65536").End(xlUp).Row - 2
ReDim Ausg(1 To N, 1 To 2)
For i = 1 To N
Ausg(i, 1) = WS3.Cells(i + 2, 12)   'Lagereinheit
Ausg(i, 2) = WS3.Cells(i + 2, 25)   'Datum
Next i
WS1.Range("A2:E65536").ClearContents
For iZeile = 3 To WS2.Range("Q65536").End(xlUp).Row
For i = 1 To N
If Ausg(i, 1) = WS2.Cells(iZeile, 17) Then
Tage = Ausg(i, 2) - WS2.Cells(iZeile, 25) + 1
If Tage > 0 Then Exit For
End If
Next i
LetzteZeile = WS1.Range("A65536").End(xlUp).Row + 1
If i > N Then
WS1.Cells(LetzteZeile, 1) = WS2.Cells(iZeile, 17)
WS1.Cells(LetzteZeile, 2) = "Noch kein Ausgang"
Else
WS1.Cells(LetzteZeile, 1) = Ausg(i, 1)
WS1.Cells(LetzteZeile, 2) = Tage
Ausg(i, 2) = DateSerial(2000, 1, 1)
End If
WS1.Cells(LetzteZeile, 3) = WS2.Cells(iZeile, 6)
WS1.Cells(LetzteZeile, 4) = WS2.Cells(iZeile, 7)
WS1.Cells(LetzteZeile, 5) = WS2.Cells(iZeile, 25)
Next iZeile
Application.ScreenUpdating = True
End Sub


Gruß und Danke
Fritz
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macrolaufzeit per Balken o.ä. anzeigen möglich?
31.10.2003 12:10:46
xXx
Hallo,
du hast ja schon den Hinweis von Peter, bedenke aber, dass die Laufzeit durch die Progressbar beträchtlich erhöht wird.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Anzeige
Peter, xXx, wie binde ich das in mein Macro ein ?
31.10.2003 13:57:54
Fritz
Hallo und danke schonmal,
aber wie binde ich die Schleife jetzt in mein Macro ein?
Gruß Fritz

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige