Screenupdateproblem
11.11.2008 18:02:54
Maris
kann mir jemand sagen wo bei diesem Code der Fehler steckt?
Er berechnet ständig das Tabellenblatt Bericht, auch wenn ich in anderen Tabellenblättern was ändere...
Excel soll aber nicht sichtbar berechen, weil mir sonst immer auch wenn nur kurz das tabellenblatt eingeblendet wird....
Private Sub Worksheet_Calculate()
Sheets("bericht").Unprotect
On Error GoTo ErrExit
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Dim lngRow1 As Long
Dim lngRow5 As Long
Dim lngRow6 As Long
If Range("N20") = "Reise aktiv?" Then
For lngRow1 = 21 To 39
Rows(lngRow1).Hidden = (Cells(lngRow1, 14).Value "JA")
Next
Else
Rows("21:39").Hidden = True
'axapta
If Range("B212") = "YES" Then
For lngRow5 = 215 To 364
Rows(lngRow5).Hidden = (Cells(lngRow5, 1).Value "x")
Next
Else
Rows("215:364").Hidden = True
'Posting List
If Range("B53") = "YES" Then
For lngRow6 = 57 To 206
Rows(lngRow6).Hidden = (Cells(lngRow6, 1).Value "x")
Next
Else
Rows("57:206").Hidden = True
End If
End If
End If
ErrExit:
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
Sheets("bericht").Protect
End Sub
Danke schon mal!
Gruß
Maris