Formel wird nicht berechnet
Heinz
Ich habe in einen Sheets unteren Code.
In C3:C154 habe ich Formeln. ZB. in C3=B3, In C4=B4
Nun wird aber die Formel Zb. in C3 nicht berechnet.
Lösche ich unteren Code aus den Sheets geht es Problemlos.
Könnte mir bitte jemand helfen wo der Fehler liegt ?
Gruß
Heinz
Option Explicit
'Sortieren nach Spalte B + Bilschirmauflösung anpassen
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Unload UserForm8
Select Case GetScreenRes
Case "1280x1024"
ActiveWindow.Zoom = 75
Case "1024x768"
ActiveWindow.Zoom = 85
Case "800x600"
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = 85
Case "1680x1050"
ActiveWindow.Zoom = 100
Case Else
MsgBox "unbekannte Auflösung"
End Select
ActiveSheet.Unprotect Password:="vetro"
Range("A3:B154").Sort Key1:=Range("B3"), Order1:=xlDescending, Key2:=Range("A3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A3:A154").Columns.AutoFit
Range("A2").Select
ActiveSheet.Protect Password:="vetro"
Application.ScreenUpdating = True
End Sub
Anzeige