Anzeige

VBA
Programmierer
gesucht?
 
Anzeige
VBA Programmierer gesucht?
 

VBA Codeschnipselsammlung

Eine einfache selbstgebaute Fortschrittsanzeige

Wer auf zusätzliche oder externe Fortschrittsanzeige-Steuerelemente verzichten möchte, kann mit wenigen Handgriffen und zwei Standardsteuerelementen eine Fortschrittsanzeige Marke Eigenbau produzieren.

Benötigt wird lediglich eine UserForm mit den Steuerelementen Frame1 und Label1. Der Frame wird verwendet, um die Beschriftung und den Rahmen unserer Fortschrittsanzeige zu formatieren. Das Label1 Steuerelement stellt dabei den farbigen Fortschrittsbalken dar.

Am Ende der Seite finden Sie eine Beispieldatei zum Download.

Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_fortschrittsanzeige.php
' ************************************************************************************************


'Benötigt eine UserForm mit den Steuerelementen Frame1 und Label1...

Private Sub MWFortschrittsanzeige()
   Dim i As Long
  
   Dim MWProgressBar_dStepValue As Double
   Dim MWProgressBar_dProgress As Double
   Dim MWProgressBar_lStep As Double
   Dim MWProgressBar_MaxSteps As Double
  
   Const lSTEPS As Long = 50000 'Wie viele Schritte sind 100%
   Const dMAXLABELWIDTH As Double = 354 '100% Breitenangabe des Labels
    
     'Initialisierung
     MWProgressBar_MaxSteps = lSTEPS
     MWProgressBar_dStepValue = CDbl(dMAXLABELWIDTH / CDbl(lSTEPS))
     MWProgressBar_dProgress = 0
    
     'Fortschrittsanzeige einblengen
     Frame1.Visible = True
     Label1.Visible = True
     Label1.Width = 1 'Fortschrittsbalken ganz nach links bringen
    
     'Verarbeitungsstart Beispiel: Schleife von 1 bis lSTEPS
     For i = 1 To lSTEPS
    
         'Hier ist Platz für die gewünschten Aktionen :)
        
         'Fortschrittsanzeige um einen Schritt erhöhen
         MWProgressBar_dProgress = MWProgressBar_dProgress + MWProgressBar_dStepValue
         'Balken entsprechend vergrößern
         Label1.Width = MWProgressBar_dProgress
         DoEvents
        
     Next i
    
     'Abschluss und Ausblenden
     Frame1.Visible = False
     Label1.Visible = False
End Sub


Download der Beispieldatei

Zu guter Letzt habe ich Ihnen dieses Beispiel als Download bereitgestellt.
Den Link dazu finden Sie hier: Beispieldatei-Download
(Dateiformat: *.xlsm - Erstellt mit Microsoft® Excel® Version 2013 - Diese Datei ist kompatibel mit Microsoft® Excel® Version 2007 oder neuer - Dateigröße: ca. 21 KiloBytes)
Wichtiger Hinweis: Als kostenlosen Service stellen die Autoren von www.Online-VBA.de Dateien zum Download bereit. Dieser Download erfolgt stets auf eigene Gefahr. Bitte beachten Sie die Nutzungsbedingungen und das Impressum von www.Online-VBA.de, bevor Sie die Datei herunterladen. Ein kostenloser Support oder Service für die unter www.Online-VBA.de veröffentlichen Werke kann leider nicht angeboten werden!


Autor: Marc Wershoven (2015)

Anzeige

VBA Programmierer gesucht?
http://www.WershovenOnline.de

Anzeige

Der Quick E-Mail Support von WershovenOnline®

Schnelle Hilfe bei Fragen rund um Microsoft® Office und VBA Makros

Der Quick E-Mail Support von WershovenOnline® Sie haben beispielsweise eine Frage zu einer Ihrer eigenen Makroprogrammierungen in VBA? Oder Sie suchen Unterstützung und Informationen über eine bestimmte Microsoft® Excel® Formel? Bei nahezu allen Fragen und Problemen rund um Microsoft® Office und VBA Makros steht Ihnen unser individueller Quick E-Mail Support zur Verfügung. Einfach, schnell und unkompliziert Ihre Frage in einer E-Mail formulieren, mit oder ohne Screenshots oder einer Beispieldatei absenden und kurze Zeit später haben Sie eine vollständige Lösung inkl. ausführlicher Erklärung vom Profi in Ihrem Postfach! Zusätzlich besteht die Option, dass wir uns mittels Fernwartung (selbstverständlich nach Ihrem Einvertändnis) direkt "live" mit Ihnen zusammen an Ihrem Bildschirm gemeinsam Fragen und Problemstellungen anschauen und lösen können!

Weitere Informationen zu diesem kostenpflichtigen Angebot finden Sie auf der Anbieterseite von WershovenOnline® auf www.wershovenonline.de.

Zum Anbieter des Quick-E-Mail-Support...

Zum Seitenanfang