VBA - Statusbar ausschalten | HERBERS Excel Forum

Forumthread: VBA - Statusbar ausschalten

VBA - Statusbar ausschalten

01.01.2013 12:58:28

WalterK

Hallo,
ein Teil meines Makros lautet:
If IsError(lngVor) Then Exit Sub
Es sollte hier noch eingebaut werden, dass vor der Beendigung des Makros die Statusbar ausgeschaltet wird.
Mein Versuch war:
If IsError(lngVor) Then Application.StatusBar = False Then Exit Sub
Das funktioniert natürlich nicht. Wer kann mir weiterhelfen.
Besten Dank und Servus, Walter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Statusbar ausschalten

01.01.2013 13:00:39

Hajo_Zi
Besten Dank Hajo, Servus Walter

01.01.2013 13:11:16

WalterK

AW: VBA - Statusbar ausschalten

01.01.2013 13:00:39

Hajo_Zi

If IsError(lngVor) Then
Application.StatusBar = False
Exit Sub
end if

Besten Dank Hajo, Servus Walter

01.01.2013 13:11:16

WalterK

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Statusbar in Excel VBA auszuschalten, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
Finde dein Makro: Suche das Makro, in dem du die Statusbar ausschalten möchtest.

Füge die Zeilen hinzu: In deiner If-Bedingung füge folgende Zeilen hinzu:

If IsError(lngVor) Then
   Application.StatusBar = False
   Exit Sub
End If

Speichere das Makro: Vergiss nicht, deine Änderungen zu speichern, bevor du das Makro ausführst.

Häufige Fehler und Lösungen

Fehler 1: "Syntaxfehler" beim Ausführen des Codes.
- Lösung: Stelle sicher, dass du die Zeilen richtig formatiert hast. Achte besonders auf die Verwendung von End If.
Fehler 2: Statusbar bleibt sichtbar.
- Lösung: Überprüfe, ob der Code tatsächlich erreicht wird. Setze gegebenenfalls einen Haltepunkt, um zu sehen, ob die If-Bedingung erfüllt ist.

Alternative Methoden

Wenn du die Statusbar nicht nur ausschalten, sondern auch wieder aktivieren möchtest, kannst du die folgende Zeile verwenden:

Application.StatusBar = "Dein Status hier"

Um die Statusbar zurückzusetzen, kannst du die Methode Application.DisplayStatusBar verwenden:

Application.DisplayStatusBar = True

Praktische Beispiele

Hier ein Beispiel für ein einfaches Makro, das die Statusbar ausschaltet, wenn ein Fehler auftritt:

Sub BeispielMakro()
    Dim lngVor As Long
    On Error Resume Next  ' Fehler ignorieren
    lngVor = Application.WorksheetFunction.VLookup("NichtVorhanden", Range("A1:B10"), 2, False)
    If IsError(lngVor) Then
        Application.StatusBar = False
        Exit Sub
    End If
    ' Weitere Aktionen hier
End Sub

Dieses Makro sucht nach einem Wert und schaltet die Statusbar aus, wenn der Wert nicht gefunden wird.

Tipps für Profis

Statusbar für Fortschrittsanzeigen nutzen: Du kannst die Statusbar auch verwenden, um den Fortschritt eines Makros anzuzeigen. Setze einfach Application.StatusBar = "Fortschritt: " & Fortschritt & "%" in einer Schleife.
Sauberes Zurücksetzen: Am Ende deines Makros solltest du immer sicherstellen, dass die Statusbar zurückgesetzt wird:
```
Application.StatusBar = False
```

FAQ: Häufige Fragen

1. Frage Wie kann ich die Statusbar wieder aktivieren?

Antwort: Setze einfach Application.StatusBar = "Dein Status hier" oder Application.DisplayStatusBar = True.

2. Frage Funktioniert dies in allen Excel-Versionen?

Antwort: Ja, die Verwendung von Application.StatusBar ist in den meisten modernen Excel-Versionen verfügbar, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)