Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Mitteilung im Statusbar???

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Mitteilung im Statusbar??? (4231 mal gelesen)
robert_de
Mitglied
Student


Sehen Sie sich das Profil von robert_de an!   Senden Sie eine Private Message an robert_de  Schreiben Sie einen Gästebucheintrag für robert_de

Beiträge: 31
Registriert: 24.04.2005

erstellt am: 04. Nov. 2005 15:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Excel-Freunde,

hoffe das hier einer von euch eine Lösung für mein Problem hat.
Möchte gerne das nachdem ich mein Makro gestartet habe eine Mitteilung im Statusbar angezeigt wir für einen bestimmtes Zeitfenster. Danach soll wieder zur normalen Anzeige zurückgeschalten werden. Leider bekomme ich das mit dem Zeitfenster nicht hin. Bis jetzt ist mir nur die Möglichkeit eingefallen das Makro einfach anzuhalten aber das wll ich ja eigentlich nicht. Hier dann auch der von mir jetzt verwendete Code:

Sub Statusbar_Anzeige()


oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True

Application.StatusBar = "Hier steht der Text der im Statusbar angezeigt  werden soll"
Application.Wait Now + TimeValue("00:00:03") ' Pause für drei Sekunden für das ganze Makro nicht ideale Lösung

Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar


End Sub

Wäre echt gut wenn jemand von euch eine Lösung einfallen würde.
Schon mal jetzt vielen Dank dafür.

Grüße Robert


------------------
Viele Grüße Robert
und vielen Dank für jeden Beitrag!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bst
Mitglied



Sehen Sie sich das Profil von bst an!   Senden Sie eine Private Message an bst  Schreiben Sie einen Gästebucheintrag für bst

Beiträge: 192
Registriert: 31.08.2004

.

erstellt am: 07. Nov. 2005 14:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für robert_de 10 Unities + Antwort hilfreich

Hallo Robert,

versuch's mal so.

CUSee You, Bernd
--
Option Explicit

Dim oldStatusBar As Boolean

Sub Statusbar_Anzeige()
  oldStatusBar = Application.DisplayStatusBar
  Application.StatusBar = "Hier steht der Text der im Statusbar angezeigt  werden soll"
  Application.OnTime Now + TimeValue("00:00:05"), "StatusBar_Aus"
End Sub

Sub StatusBar_Aus()
  Application.StatusBar = False
  Application.DisplayStatusBar = oldStatusBar
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bst
Mitglied



Sehen Sie sich das Profil von bst an!   Senden Sie eine Private Message an bst  Schreiben Sie einen Gästebucheintrag für bst

Beiträge: 192
Registriert: 31.08.2004

.

erstellt am: 07. Nov. 2005 14:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für robert_de 10 Unities + Antwort hilfreich

Hallo Robert,

versuch's mal so. (2. Versuch, der 1. scheint im Nirwana verschwunden zu sein ...)

CUSee You, Bernd
--
Option Explicit

Dim oldStatusBar As Boolean

Sub Statusbar_Anzeige()
  oldStatusBar = Application.DisplayStatusBar
  Application.StatusBar = "Hier steht der Text der im Statusbar angezeigt  werden soll"
  Application.OnTime Now + TimeValue("00:00:05"), "StatusBar_Aus"
End Sub

Sub StatusBar_Aus()
  Application.StatusBar = False
  Application.DisplayStatusBar = oldStatusBar
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz