Application.ScreenUpdating
09.06.2015 23:03:42
Kulo
ich hab zu "Application.ScreenUpdating" mal ne Frage:
Ich bekomme es nicht hin, dass das Bild während der Ausführung des Makros nicht "einfriert".
Folgender Code:
Sub Drucken()
Application.ScreenUpdating = False
Sheets("Kreditlinie").Visible = True
Sheets("Realschuld").Visible = True
If Worksheets("Sonderz.").Cells(5, 1).Value = 888 Then
Sheets("Kreditlinie").Select
End If
If Worksheets("Sonderz.").Cells(5, 1).Value = 111 Then
Sheets("Realschuld").Select
End If
Application.Dialogs(xlDialogPrint).Show
Sheets("Kreditlinie").Visible = False
Sheets("Realschuld").Visible = False
Sheets("Sonderz.").Select
Application.ScreenUpdating = True
End Sub
Von Sonderz. aus soll die Kreditlinie gedruckt werden. Es öffnet sich der Drucken-Dialog. Auf dem Bildschirm sehe ich Sonderz. Nach dem Druckvorgang sehe ich aber, wie sich die Sonderz. aufbaut, welches ja im Hintergrund von Sonderz. über Kreditlinie eigentlich wieder - wenn das Bild steht - zu Sonderz. wechseln sollte.Starte ich über Sonderz. den Druck von Realschuld, sehe ich am Bildschirm Realdruck, dann kommt der Drucken-Dialog und dann sehe ich sofort Sonderz.
Die Funktion Application.ScreenUpdating scheint nicht überdas ganze Makro hinweg zu gehen.
Kann mir jemand folgen? ;-)
Kann sich jemand mal durch meinen Code wurschteln?
Ich würde mich freuen.
VG
Kulo