Statuszeile Anzeige Feldinhalte
15.04.2006 21:51:13
Peter
Ich möchte in einem Workbook jeweils bestimmte Zellinhalter in der Statuszeile anzeigen.
In der jetzigen Lösung erscheinen ab dem 5 Tabellenblatt bestimmte Zellinhalte, wie nachfolgend definiert.
Nun möchte ich dies gerne spezifischer definieren (irgendwie mit CASE?) und zwar z.B.
bei Sheetindex 1-4 keine Anzeige
bei Sheetindex 5, 7 und 9 die Zellinhalte A5, A7 und A9
bei Sheetindex 6, 10 und 12 die Zellinhalte A5, A6 und A7
und bei Sheetindex 8 und 11 die Zellinhalte A8 und A9
Kann mir jemand ein paar gute Tipps geben?
Danke, Peter
Private Sub Workbook_Activate()
With ActiveSheet
Application.StatusBar = IIf(.Index <= 5, False, Cells(2, 2) & " " & Cells(6, 2) & _
" " & Cells(6, 3) & " " & Cells(10, 3) & " " & Cells(6, 6))
End With
End Sub
Private Sub Workbook_Deactivate()
Application.StatusBar = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sh
Application.StatusBar = IIf(.Index <= 5, False, .Cells(2, 2) & " " & .Cells(6, 2) & _
" " & .Cells(6, 3) & " " & .Cells(10, 3) & " " & .Cells(6, 6))
End With
End Sub
Anzeige