Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Status "Balken" während VBA läuft

Forumthread: Status "Balken" während VBA läuft

Status "Balken" während VBA läuft
18.12.2007 17:52:00
Tobias
Hallo,
ich habe ein VBA welches teilweise sehr lange läuft. Damit niemand auf die Idee kommt Excel ist tot, fände ich es eine gute Idee irgendetwas in der Art eines Status-Balkens einzublenden, solange das VBA arbeitet. Optimal wäre natürlich noch die %-Angabe wie weit der ganze Ablauf ist, muss aber nicht sein.
Wäre schön wenn jemand weiß wie das geht.
Danke und Gruß
Tobias

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Status "Balken" während VBA läuft
18.12.2007 17:55:00
Peter
Hallo Tobias,
es gibt doch die StatusBar unten auf den Tabellenblättern.
mit Application.StatusBar = "Das Makro läuft - einen Moment Geduld bitte." ' bzw. dein Text
und am Ende mit Application.StatusBar = False
kannst du dort eine Nachricht an den Benutzer schicken.
Gruß Peter

Anzeige
AW: Fortschrittsbalken - im Archiv...
18.12.2007 20:00:11
Erich
Hallo Tobias,
such doch mal hier im Archiv nach
fortschrittsbalken
Da findest du viele, viele Beiträge zum Thema, höchstwahrscheinlich ist auch etwas für dich dabei.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Status "Balken" während VBA läuft
18.12.2007 21:40:00
P@ulchen
Hallo Tobias,
eine Beispielmappe findest Du hier: Fortschrittsanzeige
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de

Anzeige
AW: Status "Balken" während VBA läuft
19.12.2007 11:53:09
Daniel
Hi
trotz Archiv hier nochmal zwei einfache Beispiele, wie man einfach einen Fortschrittsbalken mit Prozent-Anzeige realisieren kann.
die Prozentanzeige funktioniert natürlich nur in For-Next-Schleifen, deren Anfang und Ende bekannt ist.
das 2. Makro ist für den Fall, wenn dein Makro aus vielen einzelschritten besteht.
dann kann es auch Sinnvoll sein, in bestimmten Abständen den anwender zu informieren,daß sich was tut.

Sub Fortschritt1()
Dim i As Long
Dim Zeit As Double
For i = 1 To 100
Application.StatusBar = "Bearbeitet " & Format(i / 100, "0%") & " " & WorksheetFunction. _
Rept("X", 20 * i / 100)
Zeit = Timer + 0.1
Do Until Timer > Zeit
Loop
Next
Application.StatusBar = False
End Sub




Sub Fortschritt2()
Dim X As String
Dim SBar As String
X = "X"
SBar = SBar & X
Application.StatusBar = "Teilschritt 1 " & SBar
MsgBox "weiter"
SBar = SBar & X
Application.StatusBar = "Teilschritt 2 " & SBar
MsgBox "weiter"
SBar = SBar & X
Application.StatusBar = "Teilschritt 3 " & SBar
MsgBox "weiter"
SBar = SBar & X
Application.StatusBar = "Teilschritt 4 " & SBar
MsgBox "weiter"
Application.StatusBar = False
End Sub


Leider kennt die Statusleiste nur die Schriftart Tahoma, dh. du musst ein bissen in den Sonderzeichen dieser Schriftart suchen, falls du ein schöneres Zeichen als das X haben willst.
kleiner Tipp, die Unicode-Zeichen (code > 255) bekommst du mit ChrW(1234)
Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Prozenten von Textbox in Zelle
Textbox

Hallo Spezialisten
Habe ein kleines Problemchen mit den Code.
Die Zelle ist in % formatiert. Wenn ich jetzt die Zahl 5 eingebe, kommt sie mit 500 daher in der Zelle.
Ist es auch möglich, daß bei Falscheingabe der Cursor in der Textbox bleibt?
Private Sub TextBox1_Exit(ByVal Ca...
31.01.2009 19:23:58
Thread-ID: 1045715
8 Beiträge
Textbox Prozentformt als Zahl in Zelle
thowe

Schönen guten Morgen. Mit folgender Prozedur werden mit dem AfterUpdate Eeignis Werte in Textboxen (in Userform) geschrieben.
Sub tb_prozent_formatieren()
Dim tb As Object
Dim betrag As Double
For Each tb In Frame1.Controls
If TypeName(tb) = "TextBox" Then
If tb.Name =...
17.05.2010 09:49:24
Thread-ID: 1157339
6 Beiträge
Application.DisplayStatusBar zum sehen?
ing.grohn

Hallo Forum,
in einem Beitrag hab ich etwas über Application.DisplayStatusBar gelesen
Wollte ich ausprobieren!
Die Hilfe gibt mir folgendes Beispiel (statt For wird allerdings eine Datei geöffnet)
ich seh aber nichts .
Was muß ich ändern Sub test() Dim oldStatusBar Dim i As...
01.07.2010 19:43:43
Thread-ID: 1164996
2 Beiträge
Application.DisplayStatusBar zum sehen?
ing.grohn

Hallo Forum,
in einem Beitrag hab ich etwas über Application.DisplayStatusBar gelesen
Wollte ich ausprobieren!
Die Hilfe gibt mir folgendes Beispiel (statt For wird allerdings eine Datei geöffnet)
ich seh aber nichts .
Was muß ich ändern Sub test() Dim oldStatusBar Dim i As...
01.07.2010 19:13:04
Thread-ID: 1164997
5 Beiträge
Prozent als Balken direkt in Zelle wie Musterbild
Fraenki

Hallo
Ich sprudle gerade so vor Ideen und muss feststellen dass ich ohne euer Wissen nichts auf die Reihe kriegen würde. Ich hoffe es findet sich jemand der mir hilft.
Ich möchte gerne wie auf dem Bild zu sehen hinter meinen Daten einen Balken hinter meinen Eingaben zeichnen lassender d...
13.04.2011 19:53:55
Thread-ID: 1210291
3 Beiträge
Application.StatusBar als kurzform möglich?
Hans-Jörg

Hallo,
ich schreibe in meinen gesamten Prozessen Protokollinfos in die Statusleiste dabei muß ich jedesmal diese Zeilen schreiben.With Application
.ScreenUpdating = True
.Statusbar = "Bearbeitung bei -> 20%"
.ScreenUpdating = False
End With
Wie kann ich diese...
11.06.2002 15:33:10
Thread-ID: 127786
5 Beiträge
Anzeige
Zellen durch Eingabe eines Prozentsatzes änder
Tobi

Hallo,
ich bin neu hier und hoffe Ihr könnt mir Helfen, da ich mich mit VBA kaum auskenne.
Ich gebe in einer Datei Durchschnittliche Mitarbeiter-Kapazitäten ein (ähnlich der Beispiel-Datei). Jetzt würde ich gerne in einer Zelle einen Prozentsatz eingeben und anhand von diesem Prozentsat...
17.12.2013 21:41:07
Thread-ID: 1342904
5 Beiträge
Application.StatusBar: Jetzt (Zeit) + 45 Minuten?
Thorben
Moinsen alle,
kann mir kurz einer helfen bitte:
Option Explicit Public Zeit As Date Sub AbisAH() Zeit = Time Application.StatusBar = "Tabellen werden vorbereitet...Dauer ca.45min... Der Bildschirm wird jetzt eingefroren! Zeit: " & Format(Time, "hh:mm:ss") Wie zum Geier bekomme ich zu der "...
15.07.2014 16:28:13
Thread-ID: 1370533
4 Beiträge
Differenz zweier Zellen in Prozent
Werner

Wenn in Spalte A oder B kein Wert ist wie muss die Formel aussehen damit der Wert in Prozenz in Spalte C +100% respektive -100% ist?
2015 2016 %
90 100 11.1
80 70 -12.5
75 76 1.3
"" 20
20 ""
1 15 1400.0
60 55 -8.3
20.05.2016 13:37:43
Thread-ID: 1494476
6 Beiträge
Makro:Prozentformel in letzte Zelle der Spalte Q
DeBü

Guten Morgen,
habe hier den Anfang eines Makros. Alle Versuche zur Fertigstellung haben nicht gefunzt. Hier der Anfang.
Sub letzte_Zelle_Q_Formel() Dim Ende As Long With ActiveSheet Ende = .Cells(Rows.Count, 17).End(xlUp).Row End With End Sub In der dynamischen Tabelle sollte in der le...
31.01.2017 09:00:51
Thread-ID: 1538418
7 Beiträge
Anzeige
VBA Frage: Application.CommandBar.Add
Jens
Hallo Experten,
Gut Morgen.
'ne kleine Frage:
Kann man in der Code die Caption Fett schreiben und der BackColor ändern?
Ich bin für jeder Hilfe dankbar
Gruß Jens

Set symb = Application.CommandBars.Add("MENÜ", _
Position:=msoBarTop, Temporary:=True)
With symb
.Le...
09.01.2004 10:34:08
Thread-ID: 361041
3 Beiträge
Anzeige
Application.StatusBar
Miriam
Hallo Leute!

mit diesem Code kann ich da ja etwas reinschreiben. wie mache ich das denn, dass der text immer dort zu sehen ist, außer wenn durch excel selber etwas da hin soll? zb wenn gepsichert wird oder so...........

versteht man, was ich möchte?
ist doof erklärt!
Miriam
15.01.2004 13:49:13
Thread-ID: 364456
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Fortschrittsanzeige in Excel VBA nutzen

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor in Excel, indem Du ALT + F11 drückst.

  2. Erstelle ein neues Modul:

    • Rechtsklick auf eine der Projektgruppen im Projektfenster.
    • Wähle "Einfügen" > "Modul".

  3. Füge den folgenden Code ein, um die Statusleiste während der Ausführung eines Makros zu nutzen:

    Sub BeispielMakro()
   Dim i As Long
   For i = 1 To 100
       Application.StatusBar = "Bearbeitet " & Format(i / 100, "0%")
       ' Simuliere eine Bearbeitungszeit
       Application.Wait (Now + TimeValue("0:00:01"))
   Next i
   Application.StatusBar = False ' Setze die Statusleiste zurück
End Sub

  4. Starte das Makro direkt aus dem VBA-Editor oder über Excel.

Häufige Fehler und Lösungen

  • Fehler: Statusleiste bleibt aktiv
    Lösung: Stelle sicher, dass Du am Ende Deines Makros Application.StatusBar = False verwendest, um die Anzeige zurückzusetzen.

  • Fehler: Keine Fortschrittsanzeige sichtbar
    Lösung: Überprüfe, ob das Makro in einer Schleife korrekt implementiert ist, und dass die Statusleiste regelmäßig aktualisiert wird.

Alternative Methoden

  • MSGBOX für Fortschrittsupdates:
    Du kannst auch MsgBox verwenden, um den Benutzer über den Fortschritt zu informieren, allerdings wird dies die Ausführung des Makros unterbrechen.

    MsgBox "Fortschritt: " & i & " von 100"

  • Fortschrittsbalken in Zellen:
    Eine andere Möglichkeit ist, den Fortschritt direkt in einer Zelle anzuzeigen, indem Du den Wert in einer Zelle aktualisierst:

    Cells(1, 1).Value = "Fortschritt: " & Format(i / 100, "0%")

Praktische Beispiele

Hier sind zwei einfache Beispiele, die Du verwenden kannst:

Beispiel 1: Fortschritt mit Prozentanzeige

Sub Fortschritt1()
    Dim i As Long
    For i = 1 To 100
        Application.StatusBar = "Bearbeitet " & Format(i / 100, "0%")
        Application.Wait (Now + TimeValue("0:00:01")) ' Simuliere eine Bearbeitungszeit
    Next i
    Application.StatusBar = False
End Sub

Beispiel 2: Mehrere Teilschritte mit Statusanzeigen

Sub Fortschritt2()
    Dim SBar As String
    SBar = ""
    For i = 1 To 4
        SBar = SBar & "X"
        Application.StatusBar = "Teilschritt " & i & ": " & SBar
        MsgBox "Teilschritt " & i & " abgeschlossen."
    Next i
    Application.StatusBar = False
End Sub

Tipps für Profis

  • Verwende Unicode-Zeichen: Du kannst schöneren Text in der Statusleiste anzeigen, indem Du Unicode-Zeichen verwendest. Beispiel:

    Application.StatusBar = "Bearbeitung " & ChrW(10003) ' Verwendung eines Häkchenzeichens

  • Statusleiste anpassen: Experimentiere mit verschiedenen Textlängen und Zeichen, um die Statusleiste ansprechender zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich die Statusleiste am Ende eines Makros zurücksetzen?
Verwende Application.StatusBar = False am Ende Deines Makros, um die Statusleiste zurückzusetzen.

2. Kann die Statusleiste auch mit Prozentsätzen arbeiten?
Ja, Du kannst die Fortschrittsanzeige in Prozent implementieren, indem Du den aktuellen Fortschritt im Verhältnis zur Gesamtanzahl anzeigst, wie im Beispiel oben.

3. Funktioniert dies in allen Excel-Versionen?
Ja, die Verwendung der Statusleiste ist in den meisten modernen Excel-Versionen über VBA möglich.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige