Infobox wenn Makro läuft

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Heike,
nachdem man deine gezeigte Datei gestartet hat, wird das hier gezeigt:
Du schreibst unter anderem:
"...aber wenn ich das Formular schließe bzw. auf den Button "Wechseln zur Tabelle" klicke,...
Und außer HaJo vermisse auch ich den Button "Wechseln zur Tabelle", der in deinem Userform eben nicht vorhanden ist.
Und somit ist es dann schwer, weiterzuhelfen, wenn das Gesagte nicht mit dem Gezeigten übereinstimmt.
Ich finde die Idee von Bernd mit der Statusbar - grundsätzlich - gut.
Aber auch du hast mit dem Einwand recht, dass der Normalo-User meist nicht auf die Statusbar achtet.
Aus dem Grund würde ich dir empfehlen, während deine Makros aktiv sind, dass in einem weiteren Userform ein Fortschrittsbalken angezeigt wird, der halt dann zu 100% angezeigt wird, sobald die Makros fertig sind.
Um dir aber zu zeigen/zu programmieren, wie das geht, ist von dir eine vollständige Bsp-Datei erforderlich, die natürlich nur Bsp-Daten, aber alle Userforms + Makros enthalten muss.
Oder du versuchst es selbst mit dieser kleinen Bsp-Datei von mir:
https://www.herber.de/bbs/user/120925.xlsm
In dieser Datei werden mittels einer For/Next-Schleife in Spalte A, beginnend in Zeile 1, einfach nur die Werte 1 bis 50000 eingetragen.
Währenddessen wird ein Userform mit Fortschrittsbalken angezeigt, der eben visuell darstellt, wie weit das Makro ist.
Und wenn fertig, wird das Userform automatisch geschlossen, und es erscheint eine MsgBox.
So, nun sollte auf jeden Fall das Aneinander-vorbei-reden zwischen dir + HaJo geklärt sein, oder?
Hilft denn meine Bsp-Datei?
Ciao
Thorsten

Hallo Heike,
die Sortierung deiner ComboBox frisst die Zeit. Kommentier das Sortieren der ComboBox mal aus und wähl dann den entsprechenden Eintrag in deinem Menü aus, dann siehst du das. Sortier doch deine Tabelle bevor du die Daten in die ComboBox einliest, dürfte wohl um einiges schneller sein als in einer Schleife übe die ComboBox Einträge zu laufen und die zu sortieren. Benutz hier im Forum mal die Archivsuche "Comboboxeinträge sortieren" da findest du sicher einige Beiträge dazu.
Zum Anzeigen deines "Wartebildschirms" hier mal für die Userform frmForm2

Private Sub UserForm_Initialize()
Dim Faktor As Double
ufMessage.Show vbModeless
DoEvents
Call Combbox1_Fuellen
Me.Left = 0
Me.Top = 0
Me.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
Me.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
'    Faktor = Application.Height / Me.Height 'passt die Bildschirmgröße des Formulars an -  _
WICHTIG -
'Me.Height = Application.Height
'Me.Width = Application.Width
'        Me.Top = 0
'        Me.Left = 0
'        Me.Zoom = Faktor * 100
Unload ufMessage
End Sub

Bei deiner Userform Menü muss der Aufruf der ufMessage wieder raus

Private Sub UserForm_Initialize()
Set wkbGeraetebestand = ThisWorkbook
Application.WindowState = xlMaximized 'Formular auf Bildschirmgröße anpassen
With Me
.Top = 0
.Left = 0
.Height = Application.Height
.Width = Application.Width
End With
Menü.Caption = "Test    " & Date & "    " & Format(Time, "hh:mm") & " h"
End Sub

Du muß dann halt bei den einzelnen Initialize Ereignissen der verschiedenen Userformen jeweils am Anfang die ufMessage aufrufen und am Ende wieder unloaden.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Infobox wenn Makro läuft

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread