Microsoft Excel

Herbers Excel/VBA-Archiv

Sotieren mit Makro | Herbers Excel-Forum


Betrifft: Sotieren mit Makro von: Kai
Geschrieben am: 13.08.2012 21:38:48

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

  

Betrifft: AW: Sotieren mit Makro von: Gerd L
Geschrieben am: 13.08.2012 22:36:59

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


  

Betrifft: AW: Pünktchen fehlte von: Gerd L
Geschrieben am: 13.08.2012 22:38:39

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


  

Betrifft: AW: Pünktchen fehlte von: Kai
Geschrieben am: 14.08.2012 06:50:31

Hallo
Immer, wenn man denkt, man kann schon einiges, lernt man was neues :-)
Herzlichen Dank.
Grüße
Kai