App.ScreenUpdating = False funktioniert nicht
13.04.2013 13:20:08
Albert
ich habe für folgende Probleme keine Lösung gefunden:
1) Application.ScreenUpdating = False funktioniert zwar bei einzelnen Makros nicht jedoch bei "Worksheet_selectionChange(ByVal Target As Range)". Mit jedem Zellwechsel ist ein deutliches Blinken bemerkbar. Im Hintergrund läuft auch ein sehr umfangreiches
"Worksheet_Change" Makro.
Ausschnitte aus diesen beiden Makros:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A, B, C, D, E, F, G, h, i, J, K, l, m, N, o, P, Q, R, S, T As Long
On Error GoTo C:
Application.ScreenUpdating = False
Select Case Target.Column
Case 2: Target.Offset(0, 1).Select
Case 3: Target.Offset(0, 1).Select
Case 4:
If Range("o3") = 2 Then
i = 0
J = 3
Else
i = 0
J = 2
End If
Target.Offset(i, J).Select
Case 5: Target.Offset(0, 1).Select
Case 6:
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Application.EnableEvents = True
Application.ScreenUpdating = False
End Sub
2) Je nach Dateizustand (unter bestimmten Voraussetzungen werden beim Schließen einzelne Tabellen ausgeblendet) sollen Teilbereiche in der
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
übersprungen werden. ZB die Anweisung "Tabelle1.Visible = xlSheetVeryHidden" soll nicht ausgeführt werden, da die Tabelle in der vorher laufenden Anwendung bereits gelöscht wurde. Der Versuch mit einer If-Abfrage die Anweisung abzufangen funktioniert hier nicht.
Hat jemand von Euch eine Idee, wie ich diese Probleme lösen könnte? Für Rückmeldungen bedanke ich mich im Vorhinein
Albert