Calculate Methode des Range-Objektes konnte nicht
Peter
Bin ratlos, weshalb bei untenstehendem Workbook_SheetChange Code bei Range("A2").Calculate die Fehlermeldung
"Die Calculate Methode des Range-Objektes konnte nicht ausgeführt werden"
kommt. Wer kann mir helfen?
Danke und Gruss, Peter
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.Calculation = xlCalculationManual
With Sheets("Cockpit")
.Range("A2").Calculate
.Range("spazeloe").Calculate
.Range("Zeilen").Calculate
End With
Application.Calculation = xlCalculationAutomatic
End Sub