HERBERS Excel-Forum - die Beispiele

Thema: Fortschrittsanzeige in Statusleiste

Home

Gruppe

Allgemein

Problem

Wie kann ich in der Statusleiste während des Abarbeitens einer VBA-Routine eine Fortschrittsanzeige anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.DisplayStatusBar = bln
End Sub

Private Sub Workbook_Open()
   bln = Application.DisplayStatusBar
   Application.DisplayStatusBar = True
End Sub

StandardModule: Modul1

Public bln As Boolean

Sub Fortschritt()
   Dim iCounter As Integer
   Application.DisplayStatusBar = True
   For iCounter = 1 To 10
      StatusLED "Bisher abgearbeitet: ", iCounter / 10
      Application.Wait Now + TimeSerial(0, 0, 1)
   Next iCounter
   Application.StatusBar = False
End Sub

Private Function StatusLED(sMsg As String, sPct As Single)
   Dim iPct As Integer, iReps As Integer
   With WorksheetFunction
      iPct = .Round(sPct, 2) * 100
      iReps = Int(iPct / 10)
      Application.StatusBar = sMsg & .Rept(Chr(14), iReps) & _
         .Rept("*", 10 - iReps) & "  " & iPct & "%"
   End With
End Function

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Statusleiste

Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
allgemein allgemein: VBA lernen?
Statusleiste zeigt Anzahl sta Hide-Methode-Allgemeine Frage
Formelassistent allgemein allgemeingültig Blattschutz aufheben
Summenanzeige in Statusleiste ? allgemeine Frage...
Solver - allgemein Solver - allgemein
Symbol-, Bearbeitungs- und Statusleiste Frage zum Forum allgemein
Allgemeine Frage - Finanz-Planungsmodell Autofilter-keine Anzeige in Statusleiste
Pivoteingrenzung Formel verallgemeinern Schriftgröße in Statusleiste
makro verallgemeinern Office allgemein, bitte hilfe
allgemein Allgemeine Frage zu Makro
Komprimieren möglich? Allgemeine Frage Excel 2007 Einstellung der Statusleiste unten
Statusleiste Fortschritt Makro bedingte Formatierung allgemein
Fehlersuche allgemein Anzahl selektierter Datensätze in Statusleiste
Wie baut man ein allgemeines richtig Modul ein? Anzahl Datensätze beim Filtern in Statusleiste
Statusleiste zeigt nichts an Makro allgemein zur Verfügung stellen
Statusleiste Allgemeine Forum-Frage: Kennwort ändern ?
VBA allgemein Makro allgemein anwenden
Sorry, allgemein DynamischerEintrag aus der Statusleiste übernehmen
allgemeine Frage Ein paar allgemeine Fragen
Allgemeine Fragen zu UserForm Breite von Text in Statusleiste ermitteln
Verlaufbalken in Statusleiste oder UserForm Statusleiste
Statusleiste Excelhilfe - Syntax - allgemein
Allgemein gültiges Makro/Skript für Hauptmenü Summe in der Statusleiste
Statusleiste Allgemein gültige Funktionen