Anzeige
Archiv - Navigation
124to128
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
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Application.StatusBar als kurzform möglich?

Application.StatusBar als kurzform möglich?
11.06.2002 15:33:10
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 Schreiberei verkürzen?

z.B.
Dim SB As ?????
Set SB = Application.StatusBar
SB = "Bearbeitung bei -> 20%"

Letzte Möglichkeit die ich kenne währe :

Hans-Jörg
Hans-Jörg

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

Betreff
Datum
Anwender
Anzeige
Re: Application.StatusBar als kurzform möglich?
11.06.2002 15:45:44
Volker Croll
Hallo Hans-Joerg,

es reicht voellig, wenn Du z.B. schreibst:

Application.StatusBar = "Tabelle wird geöffnet ..."
....
Application.StatusBar = "Tabelle wird gespeichert ..."
....
Application.StatusBar = "Tabelle wird geschlossen ..."


Wenn Du zwischendrin mal nichts anzeigen willst: Application.StatusBar = ""

Ganz am Schluss dann: Application.StatusBar = False

Mit "Application.ScreenUpdating" hat dies nichts zu tun.


Gruss Volker

Re: Kann ich diese Zeile abkürzen?
11.06.2002 15:58:11
Hans-Jörg
Hallo Volker,Vielen Dank
Wie schon beschrieben.
Ist dies möglich. Wenn ja wie muß Dim gesetzt werden Opjekt, Application oder ???
z.B.
Dim SB As ?????
Set SB = Application.StatusBar

dann:
SB = "Bearbeitung bei -> 20%"

Anzeige
Re: Kann ich diese Zeile abkürzen?
11.06.2002 17:15:33
Hans-Jörg
Hallo Volker,Vielen Dank
Wie schon beschrieben.
Ist dies möglich. Wenn ja wie muß Dim gesetzt werden Opjekt, Application oder ???
z.B.
Dim SB As ?????
Set SB = Application.StatusBar

dann:
SB = "Bearbeitung bei -> 20%"

Reden wir aneinander vorbei?
11.06.2002 17:43:44
Volker Croll
Hallo Hans-Joerg,

entweder verstehst Du mich nicht, oder ich Dich!?!?!?
Du brauchst fuer "Application.StatusBar" keine DIM, kein SET oder sonst irgendetwas. Du schreibst einfach:

Application.StatusBar = "Bearbeitung bei -> 20%"

Wobei "20%" auch z.B. die Variable "Zaehler" sein kann. Dann z.B.:

Application.StatusBar = "Bearbeitung bei -> " & Zaehler

Gruss Volker

Anzeige

42 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige