Office: ScreenUpdating wird nicht gesetzt

Hallo,

obwohl ich gerade Screenupdating auf False gesetzt habe, zeigt mir VBA im Prozedurschritt (wie man sieht bin ich schon einen Schritt weiter, sprich Scrennupdating müsste auf False stehen!) den falschen Wert an.

Im Anhang die Grafik - vielleicht weiß ja jemand aus eigener Erfahrung, wo der Haken liegen könnte?

Danke euch.

 

man sollte seinemn Code ab und zu kompilieren. Die Zeile ist Falsc. Da fehlt If ud "" ist zu vielund es wird in englisch programmiert.
ich hätte wahr "" gelöscht

 

Hallo Hajo,

kann es sein, dass hier eine Meldung den If-Teil des Codes verdeckt? Oder kennst Du eine Codezeile mit Rahmen? :roll:

Gruß

Edgar

 

Hallo Edgar,

ich hätte den relevanten Coe gepostet.

Gruß Hajo

 

Hallo Hajo,

relevant ist das, was dargestellt ist: beim Durchhangeln durch den Code wird Screenupdating nicht auf FALSE gesetzt, was die Meldung anzeigt. Da ich mich nicht sooo gut auskenne, kann ich die Frage nicht beantworten, aber ich gehe mal davon aus, dass das nur während des Laufs des Makros durchgeführt wird, im Bearbeitungsmodus kann es nicht FALSE sein, da ansonsten der Bildschirm nicht mehr reagieren würde.
Ich lasse mich aber gerne aufklären, wenn ich falsch liege.

Gruß

Edgar

 

Hallo Pumàh,

Dein Problem kann ich bei mir (Office 2007) reproduzieren. (die Anzeige im Makroeditor)
Seltsamer Weise, denn ich habe Makros wo ich diese Funktion benutze, und ich weiß das die Bildschirmaktualisierung dabei auch ausgeschaltet wird.

Ich könnte mir vorstellen das es ein Anzeigefehler im Makroeditor ist.

Im Netz ist auch mehrfach von diesem Problem zu lesen. Dort werden MS-Updates die Schuld in die Schuhe geschoben.

Bsp:

http://www.office-loesung.de/ftopic361447_0_0_asc.php
http://www.office-loesung.de/ftopic353210_0_0_asc.php
http://www.office-loesung.de/ftopic365987_0_0_asc.php#1494935


Ich hoffe ich trage jetzt nicht wieder zur allgemeinen Verwirrung bei.
Vielleicht kann ein schlauerer als ich mit diesen Hinweisen ja etwas anfangen.

 

Hallo alle zusammen,

okay danke dann weiß ich Bescheid :)

Ich muss zugeben dass ich nicht genau ausmachen kann ob der Bildschirm flackert oder nicht. Ich rufe in dem Code einige Calls auf und müsste mal testen, ob ich dort jeweils noch ScreenUpdatings auf False setzen müsste.

 

Hallo,

hier mal ein paar Makros zum Testen. Gib einen Wert in A1 ein.
Lasse nacheinander die Makros in folgender Reihung laufen:
Test-Makro x
Eingabe in A1
Makro Zruck
Eingabe in A1
bis alle Mkros durch sind. Danach weißt Du vielleicht, was ScreenUpdating und EnableEvents machen.

Code:

Option Explicit

Private Sub worksheet_Change(ByVal target As Range)
If target.Count > 1 Then Exit Sub
If target <> Range("A1") Then Exit Sub
MsgBox "Ich bin da"
End Sub
Sub Test1()
Application.EnableEvents = False
Application.ScreenUpdating = False


End Sub
Sub Test2()
Application.EnableEvents = False
End Sub
Sub Test3()
Dim loa As Long
Dim loB As Long
For loa = 2 To 100
    For loB = 2 To 100
        Cells(loa, loB).FormulaLocal = "wenn(" & Cells(loa - 1, loB) & "=0;" & loa & ";" & loB & ")"
    Next
Next
Application.ScreenUpdating = True
End Sub
Sub Test4()
Dim loa As Long
Dim loB As Long
Application.ScreenUpdating = False
For loa = 2 To 100
    For loB = 2 To 100
        Cells(loa, loB).FormulaLocal = "wenn(" & Cells(loa - 1, loB) & "=0;" & loa & ";" & loB & ")"
    Next
Next
Application.ScreenUpdating = True
End Sub
Sub Test5()
Dim loa As Long
Dim loB As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
For loa = 2 To 100
    For loB = 2 To 100
        Cells(loa, loB).FormulaLocal = "wenn(" & Cells(loa - 1, loB) & "=0;" & loa & ";" & loB & ")"
    Next
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Sub Zruck()
Range(Rows(2), Rows(100)).ClearContents
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

Gruß

Edgar