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,

der Fehler kommt von den Daten oberhalb der eigentlichen Tabelle.

Probiere es so:

Sub Sortieren()
With ActiveSheet
    .Unprotect
    .EnableAutoFilter = True
    .Range("A15:BU515").Activate
    Application.Dialogs(xlDialogSort).Show
    .Protect userinterfaceonly:=True
End With
End Sub

Claus

Answer 2

Moin Claus,

anbeimeine Liste mit fiktiven Daten (Datenschutz).

Bisher bin ich noch bei Januar. Die anderen Monate muss ich mit den Formeln noch übernehmen. Ich hätte erstmal gerne das ein Monat funktioniert. Nach der Blattsperere sollen die Bearbeiter folgendes dürfen:

Danke für deine Hilfe. Ich verzeifle langsam an diesem doofen sortieren trotz Blattschutz.

Gruß

Jan

Answer 3

Hallo Claus,

super das scheint zu funktionieren.

Vielen lieben Dank. Ich bon schon grau an dem Problem geworden.

Gruß

Jan

Answer 4

Hallo Jan,

ich bin davon ausgegangen, dass deine Überschriften in A15 beginnen.

Falls das bei dir nicht der Fall ist, ändere die folgende Zeile nach deinem Layout:

.Range("A15").CurrentRegion.Activate

Falls das auch nicht hilft, stelle mal eine Demo-Mappe zur Verfügung (bei einem Filehoster oder in eine Cloud hochladen und hier den Link dazu posten).

Claus