Office: Flackern trotz Application.ScreenUpdating = False

MBr14071982 · 26. Juli 2011

Hallo zusammen,

ich probier schon eine Weil an dem nachfolgenden herum. Seit ich diese beiden Codes zum Hauptmakro ergänzt habe, springt er trotz Application.ScreenUpdating = False hin und her. Sie werden per CALL-Funktion aufgerufen. (Hauptmakro befindet sich auch noch angehängt ganz unten)

Hoffe jemand kann mir helfen woran es liegt. DANKE IM VORAUS.

Bei Codes im Model:

Code:

Sub Vertriebsmengen()
Application.ScreenUpdating = False
Sheets("Berechnungen").Range("BE5:BK2000").ClearContents
Worksheets("Vertriebsmengen").Activate
Selection.AutoFilter Field:=13, Criteria1:=Sheets("Berechnungen").Range("BE3").Value & Sheets("Berechnungen").Range("BE2").Value
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("H2:N" & loLetzte).Copy
Sheets("Berechnungen").Range("BE5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Worksheets("CRM").Activate
Application.ScreenUpdating = True
End Sub
Sub Werteübertragen()
Application.ScreenUpdating = False
With Worksheets("Berechnungen")
Worksheets("Berechnungen").Range("F2").Copy
.Range("BE2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Berechnungen").Range("F4").Copy
.Range("BE3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Worksheets("CRM").Activate
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code in Tabelle KUNDENLISTE

Code:

Sub Filter_Kundennummer()
Application.ScreenUpdating = False
Dim loLetzte As Long
Sheets("Berechnungen").Range("I5:I400").ClearContents
Sheets("Berechnungen").Range("J5:J400").ClearContents
Sheets("Berechnungen").Range("K5:K400").ClearContents
Sheets("Berechnungen").Range("O2").Value = "0"
Worksheets("Kundenliste").Activate
Selection.AutoFilter Field:=4, Criteria1:="" & Sheets("Berechnungen").Range("F3").Value
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("E2:G" & loLetzte).Copy
Sheets("Berechnungen").Range("I5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("AD2:AD" & loLetzte).Copy
Sheets("Berechnungen").Range("N4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("C2:I" & loLetzte).Copy
Sheets("Berechnungen").Range("O5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("O2:S" & loLetzte).Copy
Sheets("Berechnungen").Range("V5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Worksheets("Berechnungen").Activate
Sheets("Berechnungen").Range("AB3:AK3").ClearContents
Call TrennenNachKomma
Call Werteübertragen
Call Vertriebsmengen
Worksheets("CRM").Activate
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Beverly · 28. Juli 2011

Hi,

ich würde auf jeden Fall das ScreenUpdating nur im Haupt-Makro ausschalten, denn in den Untermakros wird es ja am Ende wieder eingeschaltet.

Bis später,
Karin

MBr14071982 · 28. Juli 2011

Hallo Karin,

danke für die Antwort.

Das hab ich schon probiert, hab aber keinen Unterschied zw. mit / ohne die Screen Updating Funktion gesehen. Also scheint der "Fehler" leider wo anders zu liegen.

Hoffe ihr habt noch weitere Einfälle.

Danke

Beverly · 28. Juli 2011

Hi,

dann solltest du den Code so umschreiben, dass du auf Activate verzichtest.

Bis später,
Karin

MBr14071982 · 29. Juli 2011

Hallo,

ist echt komisch, dass es gerade am Activate liegen kann. Benutze das immer und auch in den anderen Makro, welche ohne Flackern arbeiten.

Vielleicht einen Vorschlag wie die "Nebenmakros" aussehen könnten? Ich arbeite nämlich fast immer mit dem Acitivate und hab noch keine Idee wie es anders aussehen könnte.

Wäre eien super Sache.

Danke.

Beverly · 29. Juli 2011

Hi,

zuerst einmal müsstest du Selection.AutoFilter nach diesem Prinzip schreiben: Worksheets("Tabelle").Range("A1:F1").Autofilter.
Außerdem müsstest du bei der Ermittlung der letzten belegten Zelle vor jedes Cells noch den Tabellennamen schreiben, oder du arbeitest mit With Worksheets("Tabelle"), dann kannst du sie so ermitteln:
Code:

loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bis später,
Karin

MBr14071982 · 29. Juli 2011

Hey,

danke für die Antwort. Werd deine Vorschläge mal in die Makros einflechten nach dem WE.

Danke für deine Tips. Hoffe es klappt.

MBr14071982 · 4. August 2011

Hallo nochmal,

also hab jetzt die Änderungen durchgeackert und sieht jetzt besser aus. Flackern mehr, nur noch ein kurzes aufblicken der Bildlaufleisten.

Danke noch mal für die Tips. *Smilie

Thema somit abgeschlossen.

Office: Flackern trotz Application.ScreenUpdating = False

Flackern trotz Application.ScreenUpdating = False

Flackern trotz Application.ScreenUpdating = False

Flackern trotz Application.ScreenUpdating = False

Flackern trotz Application.ScreenUpdating = False

Flackern trotz Application.ScreenUpdating = False - Similar Threads - Flackern trotz Application

Formular-Flackern

Flackern beim Scrollen in Formular verhindern?

Starkes Flackern bei Navigieren von Datensätzen

Flackern bei Mausbewegung auf Bezeichnungsfeld

Flackern bei Makro abstellen und Abfrage evtl ändern

Visio Grafiken flackern in Word Dokumenten

command button flackern