- #1
W
Wandelröschen
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 30.11.2004
- Beiträge
- 169
- Reaktionspunkte
- 0
Hallo VBA-Profis,
Weiß jemand wo in diesem Makro der Fehler steckt
und wie ich den Fehler beheben kann?
Hier die Fehlermeldung:
Application.Caption Silkes Organiser
Hier das Komplette Makro:
Sub FensterEinstellen(Status)
Const neuBreite = 540
Const neuHöhe = 320
Static alteBreite
Static alteHöhe
Static altOben
Static altLinks
Static alterStatus
If Status = x10n Then
alteBreite = Application.Width
alteHöhe = Application.Height
altOben = Application.Top
altLinks = Application.Left
alterStatus = Application.WindowState
Application.WindowState = xlNormal
Application.Width = neuBreite
Application.Height = neuHöhe
Application.Caption Silkes Organiser
ActiveWorkbook.Unprotect
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Caption =
ActiveWorkbook.Protect , True, True
BlattSchutz x10n, Haupt
BlattSchutz x10n, Kalender
BlattSchutz x10n, Termine
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
End If
Else
Application.Caption = Empty
If Not IsEmpty(alteBreite) Then
Application.Width = alteBreite
Application.Height = alteHöhe
Application.Top = altOben
Application.Links = altLinks
Application.WindowState = alterStatus
End If
BlattSchutz x10ff, Haupt
BlattSchutz x10ff, Kalender
BlattSchutz x10ff, Termine
ActiveWorkbook.Unprotect
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End If
End Sub
Gruß
Silke
Weiß jemand wo in diesem Makro der Fehler steckt
und wie ich den Fehler beheben kann?
Hier die Fehlermeldung:
Application.Caption Silkes Organiser
Hier das Komplette Makro:
Sub FensterEinstellen(Status)
Const neuBreite = 540
Const neuHöhe = 320
Static alteBreite
Static alteHöhe
Static altOben
Static altLinks
Static alterStatus
If Status = x10n Then
alteBreite = Application.Width
alteHöhe = Application.Height
altOben = Application.Top
altLinks = Application.Left
alterStatus = Application.WindowState
Application.WindowState = xlNormal
Application.Width = neuBreite
Application.Height = neuHöhe
Application.Caption Silkes Organiser
ActiveWorkbook.Unprotect
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Caption =
ActiveWorkbook.Protect , True, True
BlattSchutz x10n, Haupt
BlattSchutz x10n, Kalender
BlattSchutz x10n, Termine
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
End If
Else
Application.Caption = Empty
If Not IsEmpty(alteBreite) Then
Application.Width = alteBreite
Application.Height = alteHöhe
Application.Top = altOben
Application.Links = altLinks
Application.WindowState = alterStatus
End If
BlattSchutz x10ff, Haupt
BlattSchutz x10ff, Kalender
BlattSchutz x10ff, Termine
ActiveWorkbook.Unprotect
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End If
End Sub
Gruß
Silke