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?
Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge
Wäre ganz hilfreich das Makro mal in lesbarer Form incl. Zeilenumbrüchen zu sehen ;-)
Na, den Dreizeiler kannst Du doch auch eben in den MakroEditor reinkopieren.
Morgen Borlander ;O)