Application.ScreenUpdating funkzt nicht
19.05.2007 23:04:00
sonja.ausHH
ich habe folgendes Problem.
Wenn ich bei unteren Makros die Bildschirmausgabe ausschalte wird das jeweilige Makro scheinbar nicht ausgeführt. Die Bildschirmausgabe bleibt wie Sie war, es wird also nicht auf die jeweiligen Spalten gesetzt.
Mit Bildschirmausgabe läuft alles wunderbar, nur dauert der Ablauf der Makros etwas länger und der Bilschirm flackert.
Kann mir da jemand helfen?
Danke schon mal für Eure Hilfe.
sonja.ausHH
Sub Auf_Spalte_A_setzen()
'Application.ScreenUpdating = False 'Bildschirmausgabe aus
For i = 1 To 12
With Worksheets(i)
Sheets(i).Select
Application.Goto Reference:="R3C1"
Selection.End(xlDown).Select
End With
Next i
Sheets("Januar").Select
'Application.ScreenUpdating = True 'Bildschirmausgabe an
End Sub
Sub Auf_Spalte_K_setzen()
'Application.ScreenUpdating = False 'Bildschirmausgabe aus
For i = 1 To 12
With Worksheets(i)
Sheets(i).Select
Application.Goto Reference:="R3C11"
Selection.End(xlDown).Select
End With
Next i
Sheets("Januar").Select
'Application.ScreenUpdating = True 'Bildschirmausgabe an
End Sub
Sub Auf_Spalte_U_setzen()
'Application.ScreenUpdating = False 'Bildschirmausgabe aus
For i = 1 To 12
With Worksheets(i)
Sheets(i).Select
Application.Goto Reference:="R3C21"
Selection.End(xlDown).Select
End With
Next i
Sheets("Januar").Select
'Application.ScreenUpdating = True 'Bildschirmausgabe an
End Sub