HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Uhr in UF
Franz

Hallo Fachleute,
ich hab da nen Vorgang, der kann mehrere Minuten dauern, weil Daten im Hintergrund in eine txt-Datei eingelesen werden, usw. Das kann auch mal mehrere Minuten oder länger dauern - die Dauer lässt sich anhand der zu verarbeitenden Datenmenge vorher in ungefähr angeben .........
Meine Frage nun, um einen ungefähren Anhaltspunkt über die abgelaufene Zeit zu bekommen: gibt es eine kleine Uhr, die man in einer UF mitlaufen lassen kann. Muss nicht genau sein, so genau ist die Vorausberechnung der benötigten Zeit ja auch nicht.
ABER VOR ALLEM - und daran wird's wahrscheinlich scheitern: sie sollte natürlich möglichst nicht resourcenintensiv sein, um den Ablauf nicht noch zusätzlich recht zu verlängern. Gibt es sowas überhaupt?
Danke schonmal und Grüße
Franz

AW: Uhr in UF
Hajo_Zi

Hallo Franz,
schaue Dir das an
http://hajo-excel.de/chCounter3/getfile.php?id=118
Gruß Hajo
eigenständige Uhr in UF
Franz

Hallo Hajo,
danke für die Antwort. Aber das Beispiel geht in diesem Fall nicht, weil es über eine Schleife läuft. Ich hab aber keine Schleife, es ist eine "Shell-Aktion" (weiß nicht, ob ich das so richtig nenne?):
WshShell.Run iview & " " & Pfad & "\" & strFileType & "/fullinfo /info=d:\temp.txt", , True
Es müsste also schon eine eigenständige Uhr sein, die selbstständig läuft, und nicht eine Fortschrittsanzeige.
Grüße
Franz
AW: eigenständige Uhr in UF
Beverly

Hi Franz,
auf der HP von Hajo findest du auf der Seite "Counter" http://hajo-excel.de/vba_counter.htm mehrere Beispiele für die Anzeige einer Uhrzeit in einer Zelle. Vom Prinzip her könnte man das vielleicht auch mit einem UserForm benutzen, indem man die Uhrzeit in einem Label ablaufen lässt.

AW: eigenständige Uhr in UF
Franz

Danke Karin,
werd's mal durchschauen.
Grüße
Franz
AW: eigenständige Uhr in UF
Hajo_Zi

Hallo Franz,
Du hast Dich nicht mehr gemeldet. Ich habe das Beispiel jetzt auf der Seite UserForm nachgeschrieben.
http://hajo-excel.de/chCounter3/getfile.php?id=293
Gruß Hajo
AW: eigenständige Uhr in UF
Hajo_Zi

Hallo Franz,
jetzt ist mir aufgefallen es gab schon ein Beispiel auf der Seite fremde Dateien, Userform.
http://hajo-excel.de/chCounter3/getfile.php?id=178
Gruß Hajo
AW: eigenständige Uhr in UF
Franz

Hallo Hajo,
sorry, war weg, und dazu ein bissl krank, also heut bisher noch nicht am PC.
Danke das Beispiel schaut ja toll aus. Jetzt muss ich noch hinkriegen, dass nicht erst eine Zeit eingegeben wird. Dass also bereits beim Start der UF eine vorher berechnete Zeit in "frmTimer.TXT_Zeit" drin steht und der Countdown automatisch losläuft. Ich versuch mich mal dran.
Auf jeden Fall danke erstmal und Grüße
Franz
AW: eigenständige Uhr in UF
Hajo_Zi

Hallo Franz,
das dürfte ja nicht das Problem sein, ich übergebe beim öffnen die eingegeben Uhrzeit und Du Deine festgelegte Zeit.
Gruß Hajo
AW: eigenständige Uhr in UF
Franz

Hallo Hajo,
ja ist richtig, hab's auch schon fast. Hab nur ein Problem mit dem Format.
Ich trage die Zeit in A6 des Sheets ein, übernehme diese Zeit in
Private Sub UserForm_Initialize()
Me.TXT_Zeit = Range("A6")
Call Start
lblZeit.Caption = Format(CDate(frmTimer.TXT_Zeit) - CDate("00:00:01"), "hh:mm:ss")
End Sub

A6 hab ich formatiert als Zeit "00:00:00".
So, und jetzt krieg ich noch immer die Meldung "Typen unverträglich" - und dann stürzt mir Excel ab, kann nicht mal debuggen.
Grüße
Franz
AW: eigenständige Uhr in UF
Hajo_Zi

Hallo Franz,
das ist nicht mein Code. Dazu kann ich Dir nichts schreiben.
Gruß Hajo
AW: eigenständige Uhr in UF
Franz

stimmt, das ist der zweite Link, den Du mir geschickt hast.
Hast Du mir vielleicht doch eine Idee, wie ich die Zelle im Sheet noch formatieren kann, damit es übernommen wird. Mit z. B. "Uhrzeit 13:30:55" geht's schief.
Mit "Benutzerdefiniert hh:mm:ss" ebenfalls. Und warum stürzt Excel nach der Fehlermeldung "Typen unverträglich" ab? Das ist mir ja noch nie passiert.
Grüße
Franz
AW: eigenständige Uhr in UF
Hajo_Zi

Hallo Franz,
ich sehe nicht wo das Problem ist. Das geht bei mir
frm_Counter.lbl_Counter.Caption = Format(Range("D8"), "hh:mm:ss")
Gruß Hajo
hmmmmm
Franz

Hallo Hajo,
jetzt geht's plötzlich, weiß auch nicht, was ich vorher falsch gemacht habe.......
Danke auf jeden Fall und Grüße
Franz