Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz verhindert Sortierung

Blattschutz verhindert Sortierung
22.12.2007 15:18:34
Gordon
Moin,
ich möchte gerne in meiner Mappe den Schutz aktivieren, aber wenn ich ihn aktiviere funktioniert ein Sortierungsmakro nicht und ich weiß leider nicht wieso. Wenn als der Schutz aktiv ist und ich das Makro starte kommt folgende Meldung:

Lauzeitfehler '1004':
Die Sort-Methode des Range-Objektes konnte nicht ausgeführt werden.


Gehe ich nun auf 'debuggen' wird folgendes gelb angezeigt:


Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Key2:=Range("I13" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom


Der Bereich der Sortierung ist: Range("B13:I44").Select
Im Bereich selbst sind keine Zellen gesperrt.
Hat vielleicht jemand 'nen Rat?
Gruß
Gordon

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz verhindert Sortierung
22.12.2007 15:28:03
Hajo_Zi
Hallo Gordon,
beim sortieren muss der Bereich der sortiert werden nicht gesperrt sein. Oder den Schutz auheben zum sortieren.

AW: Blattschutz verhindert Sortierung
22.12.2007 15:32:00
Josef
Hallo Gordon,
mach es so.
With Sheets("Tabellenname") 'Tabellenname anpassen!
    .Unprotect "XX" ' "XX" = Passwort, anpassen oder entfernen wenn ohne Passwort geschützt!
    
    .Range("B13:I44").Sort _
        Key1:=.Range("B13"), _
        Order1:=xlAscending, _
        Key2:=.Range("I13"), _
        Order2:=xlAscending, _
        Header:=xlGuess, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom
    
    .Protect "XX" ' "XX" = Passwort, anpassen oder entfernen wenn ohne Passwort geschützt!
End With

Gruß Sepp

Anzeige
AW: Blattschutz verhindert Sortierung
23.12.2007 01:08:32
Gordon
Super,
hat wunderbar geklappt! Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige