FensterEinstellen - Fehlermeldung?

Dieses Thema FensterEinstellen - Fehlermeldung? im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von Wandelröschen, 21. März 2005.

Thema: FensterEinstellen - Fehlermeldung? Hallo VBA-Profis, Weiß jemand wo in diesem Makro der Fehler steckt und wie ich den Fehler beheben kann? Hier die...

  1. 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
     
  2. Spontan würde ich sagen da fehlt ein Gleichheitszeichen

    Code:
    Application.Caption =Silkes Organiser
    
     
  3. Hallo Fizbin,

    Jetzt habe ich das Gleichheitszeichen eingefügt.

    Nun taucht eine weitere Fehlermeldung auf

    Fehler beim Komplimieren:

    Else ohne If

    Was heißt den jetzt diese Fehlermeldung?

    Gruß
    Silke
     
  4. Sieht so aus als gehört das erste End if da nicht hin
     
  5. Hallo Fizbin,

    Danke für deine Hilfe. Jetzt funktioniert das Makro.

    Als Anfänger ist es gar nicht so einfach. Ich habe
    gar nicht Gedacht. Das Makros schreiben so schwer
    ist.

    Gruß
    Silke
     
Die Seite wird geladen...

FensterEinstellen - Fehlermeldung? - Ähnliche Themen

Forum Datum
Win7: Win32 Fehlermeldung und andere Fragen Windows 7 Forum 9. Juli 2016
IE 11 laufende Fehlermeldung Web-Browser 30. Apr. 2016
Fehlermeldung Windows 7 Forum 3. Dez. 2015
Fehlermeldung "RouteConverterWindows64" Windows 7 Forum 21. Nov. 2015
Fehlermeldung nach dem Hochfahren(Invalid command line)... Windows 10 Forum 6. Nov. 2015