Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge

vba Makro für Excel

Christian Veith / 2 Antworten / Baumansicht 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
Borlander Christian Veith „vba Makro für Excel“
Optionen

Wäre ganz hilfreich das Makro mal in lesbarer Form incl. Zeilenumbrüchen zu sehen ;-)

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