Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige