Application.StatusBar als kurzform möglich?



Excel-Version: 8.0 (Office 97)

Betrifft: Application.StatusBar als kurzform möglich?
von: Hans-Jörg
Geschrieben am: 11.06.2002 - 15:33:10

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 :


Function SB(strSB As String)
With Application
      .ScreenUpdating = True
      .Statusbar = strSB
      .ScreenUpdating = False
End With
End Funktion

Hans-Jörg
Hans-Jörg
  

Re: Application.StatusBar als kurzform möglich?
von: Volker Croll
Geschrieben am: 11.06.2002 - 15:45:44

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?
von: Hans-Jörg
Geschrieben am: 11.06.2002 - 15:58:11

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%"

  

Re: Kann ich diese Zeile abkürzen?
von: Hans-Jörg
Geschrieben am: 11.06.2002 - 17:15:33

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?
von: Volker Croll
Geschrieben am: 11.06.2002 - 17:43:44

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