Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

28 Forumthreads zu ähnlichen Themen

Gesamtstatus in Prozent
Kisselstein

Hallo Zusammen,
ich habe eine Frage zu der Ermittlung eines Gesamtstatus aus mehreren einzelnen Statis. Würde mich freuen wenn Ihr mir ein paar Tipps geben könntet:
Ich habe in Spalte A mehrere Status Prozentwerte untereinander z.B.
10%
20%
40%
70%
ich möchte nun den...
14.08.2008 12:09:00
Thread-ID: 1001807
8 Beiträge
Anzeige
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:10
Thread-ID: 1164995
2 Beiträge
Anzeige
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
VBA - Statusbar ausschalten
WalterK

Hallo,
ein Teil meines Makros lautet:
If IsError(lngVor) Then Exit Sub
Es sollte hier noch eingebaut werden, dass vor der Beendigung des Makros die Statusbar ausgeschaltet wird.
Mein Versuch war:
If IsError(lngVor) Then Application.StatusBar = False Then Exit Sub
Das fun...
01.01.2013 12:58:28
Thread-ID: 1292571
3 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
7
5
1
1
4
2
4
2
4
3
3
9
5
6
2
1
2
6
2
1
2
3
4
1