laufende Uhrzeit in Userform Label

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Guten Abend Reiner,
...leider kann ich die Datei nicht hochladen, da sie sehr komplex ist (38 Tabellenblätter, ca. 24MB Groß und ca. 25 Userformen sind darin)...zudem noch viele "Vertrauliche Kundendaten".
Aber hier der Code den ich verwendet habe...mal schauen, wenn meine Augen nicht gleich zufallen - versuche ich noch schnell eine "Musterdatei" zu erstellen und lade Sie nach.
Sub Start()
Intervall = Now + TimeValue("00:00:01")
t = Format(Time, "hh:mm:ss")
UF2_SBS.LTime.Caption = t
Application.OnTime Intervall, "Start"
End Sub
Sub Stopp()
On Error Resume Next
Application.OnTime Intervall, "Start", , False
End Sub
Private Sub Userform_Initialize()
If Worksheets("Basic").Cells(3,10).Text = " " then
UF3_ADM.show
End if
Call Start ' Aufruf der Prozedure Start - Label soll in Userform "laufende Uhrzeit" anzeigen
LDate.Caption = Format(CDate(Date), "dd.mmmm yyyy"
LATEd.Caption = Format(CDate((Application.WorksheetFunction.Max(ThisWorkbook.Sheets("ATE").Range("BZ:BZ")))),"dd.mmm.yyyy")
CB1.RowSource = "ATE_Basis"
CB1.ListIndex = 0
End Sub

Morgen,...wenn ich das wüsste ?
Sie fing mal klein an...ca. 1-2 MB mit verdammt vielen Datensätzen. Dann kamen einige Diagramme und Pivots dazu...dann einige Berechnungen (Datenbankformel und Arrayformeln in erster Linie) und dann die VBA-Teile.
Werde wenn die Datei soweit steht und nahezu100%ig funktioniert versuchen sie wieder zu verkleinern.
Denke dass die Formeln (locker über 20.000 den größten Anteil davon haben...oder ?).
OK, ein kleines Bild (*.gif-Datei mit 56 KB) ist auch drin - weiß nicht ob Excel daraus etwas macht, was die Datei aufbläht ?!
Will als nächstes, wenn die Userformen alle laufen....die meisten Formeln per VBA laufen lassen "temporär", d.h. wenn Ein Datensatz angelegt wird - steht erstmal eine Formle drin, lasse es berechnen und stelle dann den festen Wert ein. (Kopieren, Wert einfügen) und andere Dinge lasse ich über die Userform berechnen und anzeigen, wenn der Datensatz aufgerufen wird --- soweit es eben geht.
Was könnte es noch alles sein, was eine Datei so aufbläht ?!
Wie gesagt viele der Datenblätter sind mit umfangreichen Tabellen versehen (Produktblätter mit ca. 25.000 Zeilen und 67 Spalten), Kundendatenblätter (ca. 50.000 Zeilen und 44 Spalten), Auftragsblätter, Umsatzauswertungen, Kundenanalysen, Produktanaylsen, Standortdaten etc. ....
Habe auch vor gehabt, die Datei zu teilen und per Verknüpfung arbeiten zu lassen...aber kann nicht immer Sicherstellen - dass alle dann den Zugriff haben, bzw. wenn einer mal eine Datei löscht - war es das...
Access wäre auch noch eine Option...mal schauen, aber da habe ich auch schon seit einigen Jahren nicht mehr aktiv mit gearbeitet, nur noch bearbeitet.
Gruß
Kay

'Code in einem allgemeinen Modul zur Anzeige der Zeit im UF Option Explicit Public Intervall Sub Start() 'Uhrzeitanzeige im Userform Dim t As String Intervall = Now + TimeValue("00:00:01") t = Format(Time, "hh:mm:ss") UF2_SBS.LTime.Caption = t Application.OnTime Intervall, "Start" End Sub Sub Stopp() On Error Resume Next Application.OnTime Intervall, "Start", , False End Sub 'Code im Userform Private Sub CommandButton1_Click() 'Schließenbutton Unload Me End Sub Private Sub Userform_Initialize() If Worksheets("Basic").Cells(3, 10).Text = " " Then UF3_ADM.Show End If Call Start ' Aufruf der Prozedure Start - Label soll in Userform "laufende Uhrzeit" anzeigen LDATE.Caption = Format(Date, "dd.mmmm yyyy") LATEd.Caption = Format(CDate((Application.WorksheetFunction.Max( _ ThisWorkbook.Sheets("ATE").Range("BZ:BZ")))), "dd.mmm.yyyy") CB1.RowSource = "ATE_Basis" CB1.ListIndex = 0 End Sub 'Zusätzlicher Code im Userform - Beendet Timer beim Schließen des UF Private Sub UserForm_Terminate() Call Stopp End Sub

Beliebteste Forumthreads (12 Monate)

laufende Uhrzeit in Userform Label

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

laufende Uhrzeit in Userform Label

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread