Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Statusleiste

Forumthread: Statusleiste

Statusleiste
21.04.2006 14:39:12
Laukat
Hallo Leute,
ich habe eine kleine Datenbank auf Excel-Basis erstellt, die per Knopfdruck eine Art Katalog drucken kann, dessen Inhalte ständig verändert werden.
So nun meine Frage, da dieser Vogang je nach Anzahl der Blätter unterschiedlich lange dauert.
Wie kann ich mir eine kleine eigene Statusbar erstellen, in der ich den Fortschritt sehe. Ich weiß am Beginn die Anzahl der zu druckenden Elemente.
Also dürfte es ja nicht allzu umständlich sein.
MfG
Sebastian
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Statusleiste
21.04.2006 14:45:15
Matthias
Hallo Sebastian,
z.B. so:

Sub SetStatusProgress(txt As String, ByVal wert As Integer)
Application.StatusBar = txt & String(wert, ChrW(8718)) '9608 8718
End Sub
Sub test()
Dim i, j
For i = 1 To 50
SetStatusProgress "Lade...", i
'Testschleife zum verzögern:
For j = 1 To 1000000: Next j
Next i
'rücksetzen
Application.StatusBar = False
End Sub
Sub chw()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 65536
Cells(i, 1).Value = ChrW(i)
Next i
Application.ScreenUpdating = True
End Sub

Gruß Matthias
Anzeige
AW: Statusleiste
21.04.2006 14:47:37
Matthias
Hallo Sebastian,
die letzte Prozedur chw() kannst du weglassen, die hab ich versehentlich mit reinkopiert.
Gruß Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige