Office - Word, Excel und Co. 9.738 Themen, 41.366 Beiträge

vba Makro für Excel

Christian Veith / 2 Antworten / Flachansicht Nickles

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?

bei Antwort benachrichtigen
Kolti Borlander „Wäre ganz hilfreich das Makro mal in lesbarer Form incl. Zeilenumbrüchen zu...“
Optionen

Na, den Dreizeiler kannst Du doch auch eben in den MakroEditor reinkopieren.

Morgen Borlander ;O)

bei Antwort benachrichtigen