Ich habe folgendes Makro geschrieben: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Zelle As Range Set Zelle = ActiveCell If Not Application.Intersect(Target, Range("D1:IV7")) Is Nothing Then ActiveSheet.Unprotect ActiveWindow.FreezePanes = False Else Range("D8").Select ActiveSheet.Protect ActiveWindow.FreezePanes = True Zelle.Select End If End Sub Es soll bei Excel (97) die Ansichtfixierung und den Blattschutz ausschalten, wenn innerhalb der ersten 7 Zeilen Zellen mit Gültigkeitsprüfung ausgewählt werden. Funktioniert grundsätzlich auch, aber bei Feldauswahl ab Zeile 8 springt der Curser erst -zig Mal hin und her, bevor er in der ActiveCell bleibt. Wie kann man das ändern?
Borlander
Christian Veith
