Office: dynamsiche statusbar

ist eine dynamische statusbar möglich? die statusbar sollte zb immer die 5.Zeile anzeigen. wenn cursor auf a5/b5/c5... steht (oder a5/b5/c5... aktiv), sollte der text in a5/b5/c5... auf der statusbar erscheinen. wenn aber a5/b5/c5... leer ist, sollte immer eigener text bsp: "office-hilfe" stehen.

 

was ist der Unterschied zwischen aktiv und drauf stehen?
Nur per VBA.

 

Dankeschön,
Es gibt also keinen Unterschied :)

Welchen Code kann man benutzen, damit die Statusbar nur die aktuelle Zelle in den Spalten der Zeile 5 anzeigt?

Kann man den Code an diesen hier anhängen?
So, dass die aktive Zelle angezeigt wird und "Mein Text!" bei leerer Zelle angefügt wird?

Code:

Sub Statusbar_Text_einfügen_oder_anhängen()
    Application.DisplayStatusBar = True 'sorgt dafür, dass die Statusbar auch eingeblendet ist
    If Application.StatusBar = False Then GoTo weiter: 'prüft ob die Statusbar Text enthält. Falls nicht Sprung zu weiter:
    Application.StatusBar = Application.StatusBar & " " & "Mein Text!" 'fügt Texte an vorhandene Texte in der Statusbar an
    Exit Sub 'beendet das Makro
weiter:
    Application.StatusBar = "Mein Text!" 'fügt Text in die Statusbar ein
End Sub

 

ich hättes es mit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gemacht. Beachte dabei es können auch mehrere Zelle ausgewählt werden.

 

Wie würde der Code dazu aussehen, dass nur bestimmte Bereiche ausgewählt werden und der Text "Mein Text" nicht bei jeder Zelle sondern nur bei aktiven Zellen erscheint?

 

Code:

Option Explicit                             ' Variablendefinition erforderlich

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '**************************************************
    '* H. Ziplies                                     *
    '* 22.03.11                                       *
    '* erstellt von [email]HajoZiplies@web.de[/email]                *
    '* [url]http://Hajo-Excel.de/[/url]                          *
    '**************************************************
    Dim RaBereich As Range                  ' Variable für Bereich
    Dim RaZelle As Range                    ' Variable für Zelle
    ' Bereich der Wirksamkeit
    Set RaBereich = Range("A5:C5")
    Set RaBereich = Intersect(RaBereich, Range(Target.Address))
    Application.StatusBar = ""
    If Not RaBereich Is Nothing Then
        'ActiveSheet.Unprotect ("Passwort")
        For Each RaZelle In RaBereich
            Application.StatusBar = RaZelle
            Exit For
        Next RaZelle
        'ActiveSheet.protect ("Passwort")
    End If
    Set RaBereich = Nothing                 ' Variable leeren
End Sub

 

dynamische statusbar

Phantastisch.
Ich danke dir ein wiederholtes mal vom Herzen.

Diesen Code unter der Überschrift "Dynamische Statusbar" auf der Seite http://hajo-excel.de/inhalt_vba.htm zu sehen, würde mich sehr freuen.

Einen schönen Abend wünsche ich dir Hajo.

 

ich habe noch nicht gesehen das sowas viel benötigt wird. Ich schreibe einige Code für die Foren, da kann ich nicht jeden auf meine HP hochladen.