Dateiname nicht anzeigen

Forumthread: Dateiname nicht anzeigen

31.08.2003 11:18:10

Ina_B

Hallo Forumsteilnehmer,

einen schönen Sonntag wünsche ich euch.

Leider komme ich mit einem Problem nicht weiter, vieleicht könnt ihr mir weiterhelfen?!

Ich möchte in der Leiste oberhalb der Menüzeilen (in der eigentlich immer der Dateiname erscheint) einen eigen Text einfügen und den Dateinamen ausblenden.

Gibt es da eine Möglichkeit?

Mit Application.Caption = " Meine Datei" wird leider hinter "Meine Datei" noch der Dateiname angezeigt.

Gruß Ina

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateiname nicht anzeigen

31.08.2003 16:18:52

Franz Pölt

AW: Dateiname nicht anzeigen

31.08.2003 16:18:52

Franz Pölt

Hallo Ina,

Anwendung:

MyWindowText "Das ist mein Fenster" -> neuer Titel des Fenster "Das ist mein Fenster"
MyWindowText -> neuer Titel wird abgefragt
ResetWindowText -> alles zurück auf Standard
'* * * Fenstertitel ändern * * *


Sub MyWindowText(Optional WindowText As String)
With Application
While WindowText = ""
WindowText = InputBox("Titel:", "Eingabe Fenstertitel", _
.Caption)
Wend
.Caption = WindowText
End With
End Sub

'* * * Fenstertitel auf Standardwert zurücksetzen * * *


Sub ResetWindowText()
Application.Caption = ""
End Sub

Servus aus dem Salzkammergut
Franz

Infobox / Tutorial

Dateinamen in Excel ausblenden und eigenen Text anzeigen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden VBA-Code in das Modul:

Sub MyWindowText(Optional WindowText As String)
   With Application
       While WindowText = ""
           WindowText = InputBox("Titel:", "Eingabe Fenstertitel", .Caption)
       Wend
       .Caption = WindowText
   End With
End Sub

Sub ResetWindowText()
   Application.Caption = ""
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle MyWindowText und klicke auf Ausführen.
Gib im Eingabefenster den gewünschten Text ein und bestätige mit OK.
Um die Änderungen zurückzusetzen, führe ResetWindowText wie in Schritt 5 beschrieben aus.

Häufige Fehler und Lösungen

Problem: Der Dateiname wird weiterhin angezeigt.
- Lösung: Stelle sicher, dass du die Methode Application.Caption korrekt verwendest. Wenn der Code nicht funktioniert, überprüfe, ob du die richtige Excel-Version verwendest, da einige ältere Versionen eventuell Einschränkungen haben.
Problem: Der eingegebene Text wird nicht angezeigt.
- Lösung: Vergewissere dich, dass die Eingabe im InputBox-Fenster korrekt eingegeben wurde und dass die Anwendung nicht auf einen anderen Fensterfokus umgeschaltet wurde.

Alternative Methoden

Eine alternative Möglichkeit, den Dateinamen auszublenden, besteht darin, die Excel-Anwendung in einem benutzerdefinierten Fenster zu öffnen, jedoch erfordert dies zusätzliche Programmierung und Kenntnisse in der Windows-API. Diese Methode kann komplexer sein und ist für Anfänger nicht empfehlenswert.

Praktische Beispiele

Ein Beispiel für die Verwendung des Codes könnte so aussehen: Du möchtest im oberen Bereich der Excel-Anwendung "Meine individuelle Anwendung" anzeigen lassen:

Starte den VBA-Editor.
Führe den MyWindowText-Code aus und gib "Meine individuelle Anwendung" ein.
Der Fenster-Title wird jetzt aktualisiert, während der Dateiname ausgeblendet wird.

Tipps für Profis

Experimentiere mit verschiedenen Titeln und setze die ResetWindowText-Subroutine ein, um schnell zwischen verschiedenen Texten zu wechseln.
Nutze die Möglichkeit, den Fenstertitel dynamisch zu ändern, um Benutzern wichtige Informationen über den Status der Datei anzuzeigen.

FAQ: Häufige Fragen

1. Kann ich den Fenstertitel auch automatisch ändern lassen?
Ja, du kannst eine Schleife oder ein Timer-Event in VBA verwenden, um den Titel automatisch zu aktualisieren.

2. Funktioniert dieser Code in allen Excel-Versionen?
Der Code sollte in den meisten modernen Excel-Versionen funktionieren, jedoch kann es bei älteren Versionen zu Einschränkungen kommen. Stelle sicher, dass dein Excel auf dem neuesten Stand ist.

Beliebteste Forumthreads (12 Monate)