Worksheet_Change funktioniert nicht
15.12.2004 11:34:16
Niels
ich habe folgenden Code in einem Worksheet eingebaut:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$105" Then
ActiveSheet.Unprotect Password:="abc"
CalculateCells.Show
DoEvents
Application.Calculate
ActiveSheet.Protect Password:="abc"
CalculateCells.Hide
End If
If Target.Address = "$AC$2" Then
ActiveSheet.Unprotect Password:="abc"
CalculateCells.Show
DoEvents
Application.Calculate
CalculateCells.Hide
End If
ActiveSheet.Protect Password:="abc"
End Sub
Bei Änderung der Zellen B105 und AC2 soll eine Userform gerufen und manuell berechnet werden.
Leider funktioniert das nicht!? Bei Änderung der Zellen passiert nichts.
Kann das mit dem Blattschutz zusammenhängen?
Die Zellen AC2 und B105 sind nicht geschützt und können geändert werden.
Hat jemand eine Idee wo der Fehler ist?
Vielen Dank für die Hilfe
Gruß
Niels