HERBERS Excel-Forum - die Beispiele

Thema: UserForm als Fortschrittsanzeige

Home

Gruppe

Dialog

Problem

Wie kann ich eine UserForm als Fortschrittsanzeige einsetzen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmProgress

Private Sub cmdStart_Click()
   Dim dRow As Double
   Application.ScreenUpdating = False
   Me.Caption = "Bitte warten..."
   For dRow = 1 To 10000
      If dRow Mod 10 = 0 Then
         lblProgress.Width = 222 * (dRow / 10000)
         fmeProgress.Caption = Format(dRow / 10000, "0%")
         DoEvents
      End If
      Cells(dRow, 1) = "Zeile " & dRow
   Next dRow
   Cells.ClearContents
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   With lblProgress
      .Width = 0
      .Left = lblBackGround.Left
      .Top = lblBackGround.Top
   End With
End Sub

StandardModule: basMain

Sub CallForm()
   frmProgress.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen VBE und UserForm

Verknüpfung Daten-Userform in Word-Dok Zwischenablage in Userform anzeigen und ...
ShowModal Userform - Aktives Tabellenblatt UserForm nur fpr Berechtigte öffnen
userform 1:n Beziehung Start Userform Fehlermeldung
Userform Excel ausblenden Blattschutz per Userform ein und ausschalten
UserForm im Querformat drucken Userform Leben einhauchen
Userform Userform
Userforms - Tabelle auslesen Daten aus Tabelle in Userform
Module und Userform per VBA löschen Formen in UserForm Namen zuweisen per Makro
Userform soll Blattschutz regeln Doppelklick öffnet Userform
Listbox nach öffnen der Userform füllen UserForm TextBox mit ComboBox Datum vergleichen
Optionsfeld Value false auf true änd. im Userform In Userform Label bei Eingabe ändern
Userform nicht gleich in TextBox aber wie? Laden Userform dauert lange
In Userform Arbeitsplatz anzeigen? Listenfeld in Userform Markierung aufheben
UserForm in Outlook mit DropDowns aus Excel (Inhal USERFORM showmodal Label fehlt
Button in UserForm soll CSV in neuer Instanz öffne Userform Toggle Button rücksetzen
Userform soll Zellen mit Inhalt erkennen UserForm schließen und anderes UserForm öffnen
Daten aus Tabellenblatt als Auswahl in userform Spreadsheet in UserForm...
Text aus Userform in Datei übertragen Userform mit Löschfunktion
Userform. Link datei Userform an Zelle ausrichten
UserForm für Datenmanipulation Hyperlink - UserForm
PDF in Userform Userform Frage
UserForm - CheckBox Reihenfolge Aktierungsreihenfolge in Userform
Userform anpassen UserForm Stammbaum
Userform - CommandButton per Code löschen UserForm Foto einfügen
UserForm Caption mit Textumbruch?! UserForm mit mehreren WEND Prüfungen