Thema Datum  Von Nutzer Rating
Antwort
14.12.2017 09:56:56 Andi
NotSolved
Blau "Ladebalken
 14.12.2017 13:50:12 Gast70684
NotSolved
14.12.2017 14:24:22 Andi
NotSolved
14.12.2017 20:30:07 SJ
NotSolved
14.12.2017 20:54:14 RPP63
NotSolved

Ansicht des Beitrags:
Von:
Gast70684		 Datum:
14.12.2017 13:50:12		 Views:
704		 Rating:
     
Antwort:
  Ja
Thema:
"Ladebalken

Eine Möglichkeit ohne großartig mit Userformen zu arbeiten:

Option Explicit

Sub test()
    Dim i As Integer
    For i = 1 To 100 Step 6
        showProgress "Prozess läuft, bitte warten..", 0, i, 100
        Application.Wait Now + TimeValue("00:00:01")
    Next
    
    Application.StatusBar = vbNullString
End Sub

Public Sub showProgress(ByVal sTitle As String, ByVal lMin As Long, ByVal lValue As Long, ByVal lMax As Long)
    Dim s As String, b As String
    Dim d As Double
    Dim i As Integer, j As Integer
    
    s = sTitle & " |"
    d = lValue / (lMax - lMin)
    i = d * 100 / 10
    
    For j = 1 To i
        b = b & "-"
    Next j
    
    b = b & ">"
    
    For j = 1 To 10 - i
        b = b & "*"
    Next j
    
    s = s & b
    s = s & "| " & Format(d, "##0.00 %")
    
    Application.StatusBar = s
End Sub

Viele Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.12.2017 09:56:56 Andi
NotSolved
Blau "Ladebalken
 14.12.2017 13:50:12 Gast70684
NotSolved
14.12.2017 14:24:22 Andi
NotSolved
14.12.2017 20:30:07 SJ
NotSolved
14.12.2017 20:54:14 RPP63
NotSolved