Sortieren trotz Blattschutz

Question

Hallo zusammen,

ich habe eine Exceltabelle mit insgeamt 13 Blättern. In den Blätttern gibt es Zellen die gesperrt sind (enthalten Verweise und Berechnungen) und freie Zellen in den die Benutzer etwas eintragen müssen. Damit die Formeln nicht "zerschossen" werden arbeite ich mit einem Blattschutz.

Nun sollen die Benutzer aber in jedem Arbeitsblatt filtern und sortieren dürfen. Filtern klappt aber sortieren funktioniert nicht trotz das man es im Auswahlmenü des Blattschuztes auswählt. Ich habe schon versucht ein entsprechenden Makro zu schreiben. Dies hebt aber den Blattschutz immer komplet beim Sortieren auf. Das ist nicht sinnvoll, da die Benutzer die mit der Tabelle arbeiten nicht gerade "umgänglich" damit sind.

Wie kann es gelingen das die Benutzer sortieren dürfen, die gesperrten Zeilen aber trotzdem geschütz sind und nicht überschrieben werden können?

Danke für eure Hilfe und Ratschläge.

Gruß

Jan

Answer 1

Hallo Jan,

wenn gesperrte Zellen im Sortierbereich sind, funktioniert das Sortieren nicht. Du könntest zum Sortieren ein Makro verwenden, das den Sortier-Dialog anzeigt. Dabei wird der Blattschutz aufgehoben und der Sortier-Dialog angezeigt. Damit kann man dann normal sortieren, aber keine Zellen verändern. Sobald der Sortier-Dialog dann geschlossen wird, wird das Blatt wieder geschützt.

Hinter Protect bzw. Unprotect musst du noch dein Passwort einsetzen, falls du eins vergeben hast.

Du könntest dann auf jedem Blatt einen Button zum Sortieren einrichten und ihm dieses Makro zuweisen:

Sub Sortieren()
With ActiveSheet
    .Unprotect
    .UsedRange.Activate
    Application.Dialogs(xlDialogSort).Show
    .Protect
End With
End Sub

Claus

Answer 2

Wie kann es gelingen das die Benutzer sortieren dürfen, die gesperrten Zeilen aber trotzdem geschütz sind und nicht überschrieben werden können?

Gar nicht, sortieren geht nur mit ungeschützten Zellen.

Andreas.

Answer 3

Moin Claus,

danke für das Makro. Es funktioniert auf fast so wie es soll. Nur geht er bei mir immer in die Zeile 1 anstatt 15 wo der Autofilter sitzt. Nach dem Motto alle guten Dinge sind drei, hast du noch einen Tipp? Ich habe schon versucht den Bereich des filterns festzuegen. Aber auch das ändert nichts.

Gruß

Jan

Answer 4

Hallo Jan,

sorry, ich habe den Autofilter vergessen. Lade dir hier mal die Mappe herunter (in OneDrive sind Makros deaktiviert):

https://1drv.ms/x/s!AqMiGBK2qniTgeZtLrmvVgNKgn1...

Claus

Answer 5

Moin Claus,

danke für den Tipp, ich habe ihn gleich mal ausprobiert. Es funktioniert leider nicht :-(, weder über den Autofilter noch das Sortiermenü lässt sich nicht öffnen.

Kann es daran liegen das meine Daten erst ab der Zeile 16 beginnen? In der Zeile 15 sind die Autofilter.  Insgesamt sind die Daten in den Zellen A16:BU515!

Vielleicht hast du noch einen guten Rat!

Gruß von der Nordsee

Jan