@ Nepumuk: Vollbildmodus und Reset
22.07.2003 08:36:59
eMMa
hier der Code zum Starten und zum Zurücksetzen
Private Sub cmdVollauf_Click()
' Vollbildmodus
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
End Sub
Private Sub cmdResalles_Click()
' Reset
Windows("Standortverzeichnis.xls").Activate
Sheets("STOV").Select
Sheets("Anschlüsse").Visible = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A1").Select
Set objBereich2 = Range("c4:c900")
einzeln = Application.WorksheetFunction.Subtotal(3, objBereich2)
lblInfo.Caption = einzeln
Set objBereich1 = Range("a4:a900")
gesamt = Application.WorksheetFunction.Subtotal(3, objBereich1)
lblInfo2.Caption = gesamt
If Not ActiveWindow.DisplayHeadings _
Then If MsgBox("Maximierung beenden?", vbYesNo, "Abfrage") = vbyes Then _
ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = False
End Sub