Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

Sotieren mit Makro

Sotieren mit Makro
Kai
Hallo
Ich bitte um Hilfe.
Ich habe, bei der die meisten Zellen gesperrt sind.
Einige Zellen sind nicht gesperrt.
In den nicht gesperrten Zellen möchte ich einen Bereich sortieren.
Der Code ist:
Range("DJ3:DJ8").Select
Selection.Sort Key1:=Range("DJ3"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Wenn der Blattschutz deaktiviert ist, dann läuft das Makro.
Aber wenn der Blattschutz aktiv ist, dann kommt:
Die Sort Methode des Range Objektes konnte nicht ausgeführt werden.
Woran liegt das?
Grüße
Kai

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

Betreff
Benutzer
Anzeige
AW: Sotieren mit Makro
13.08.2012 22:36:59
Gerd
Hallo Kai,
denn hebe den Blattschutz halt vorübergehend per Code auf.
Sub schaufeln()
With Tabelle1
.Unprotect "Kai"
.Range("DJ3:DJ8").Sort Key1:=Range("DJ3"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Protect "Kai"
End With
End Sub
Gruß Gerd
AW: Pünktchen fehlte
13.08.2012 22:38:39
Gerd

Sub schaufeln()
With Tabelle1
.Unprotect "Kai"
.Range("DJ3:DJ8").Sort Key1:=.Range("DJ3"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Protect "Kai"
End With
End Sub
Gruß Gerd
Anzeige
AW: Pünktchen fehlte
14.08.2012 06:50:31
Kai
Hallo
Immer, wenn man denkt, man kann schon einiges, lernt man was neues :-)
Herzlichen Dank.
Grüße
Kai

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige