Sortieren zurücksetzen

Forumthread: Sortieren zurücksetzen

Heinz

Hallo Leute
Mit unteren Makro sortiere ich in einen Sheets.

 Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Unload UserForm8
ActiveSheet.Unprotect Password:="test"
Range("A3:B154").Sort Key1:=Range("B3"), Order1:=xlDescending, Key2:=Range("A3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A3:A154").Columns.AutoFit
Range("A2").Select
ActiveSheet.Protect Password:="test"
Application.ScreenUpdating = True
End Sub

Nun möchte ich aber,wenn ich den Sheets verlasse,das wieder alles zurückgesetzt wird.
So wie vor dem Sortieren.
Könnte mir bitte dazu jemand weiterhelfen ?
Gruß
Heinz

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Sortieren zurücksetzen

Josef
AW: Sortieren zurücksetzen

Heinz

AW: Sortieren zurücksetzen

24.01.2011 18:06:31

Josef

Hallo Heinz,
vielleicht so.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Activate()

  On Error GoTo ErrExit
  Application.ScreenUpdating = False
  Unload UserForm8

  Me.Unprotect Password:="test"

  With Range("C3:C154")
    .Formula = "=ROW()"
    .Value = .Value
    .NumberFormat = ";;;"
  End With

  With Range("A3:C154")
    .Sort Key1:=Range("B3"), _
      Order1:=xlDescending, Key2:=Range("A3"), _
      Order2:=xlAscending, Header:=xlNo, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    .Columns.AutoFit
  End With

  Range("A2").Select
  Me.Protect Password:="test"
  ErrExit:
  Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Deactivate()

  On Error GoTo ErrExit
  Application.ScreenUpdating = False
  Unload UserForm8

  If Range("C3").NumberFormat = ";;;" Then
    Me.Unprotect Password:="test"

    With Range("A3:C154")
      .Sort Key1:=Range("C3"), _
        Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
      .Columns.AutoFit
      .Columns(3).ClearContents
      .Columns(3).NumberFormat = "General"
    End With

    Range("A2").Select
    Me.Protect Password:="test"
  End If
  ErrExit:
  Application.ScreenUpdating = True
End Sub

Gruß Sepp

AW: Sortieren zurücksetzen

24.01.2011 19:34:40

Heinz

Hallo Josef
Leider NEIN.
So wird es nicht wieder in die Ausgangsposition gesetzt.
Dennoch recht herzlichen Dank.
Gruß
Heinz

Beliebteste Forumthreads (12 Monate)

Forumthread: Sortieren zurücksetzen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread