Excel 2007: Sortierung ohne ins Datenblatt zu springen

Hallo,

ich habe eine Excel-Datei mit mehreren Datenblätter.

Nun möchte ich mehre bereichen auf verschiedene Datenblätter sortieren, ohne immer in die einzelnen Datenblätter zu springen.

Kann mir jemand helfen?

hier ein Bsp Code:

Sub Sortieren()

    Sheets("Daten1").Select  
    Range("C27:AE51").Select  
    ActiveWorkbook.Worksheets("Daten1").Sort.SortFields.Clear  
    ActiveWorkbook.Worksheets("Daten1").Sort.SortFields.Add Key:=Range("C51:AE51"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal  
    With ActiveWorkbook.Worksheets("Daten1").Sort  
        .SetRange Range("C27:AE51")  
        .header = xlYes
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("B54:AF76").Select  
    ActiveWorkbook.Worksheets("Daten1").Sort.SortFields.Clear  
    ActiveWorkbook.Worksheets("Daten1").Sort.SortFields.Add Key:=Range("AF54:AF76"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal  
    With ActiveWorkbook.Worksheets("Daten1").Sort  
        .SetRange Range("B54:AF76")  
        .header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Danke

Please also mark the comments that contributed to the solution of the article

Content-Key: 318052

Url: https://administrator.de/contentid/318052

Printed on: April 25, 2024 at 09:04 o'clock

2 Comments

Latest comment

Hi,
du willst den Bildschirm solange einfrieren, oder was?

Application.ScreenUpdating = False

Application.ScreenUpdating = True

E.

Zeile 3, 4 und 16 weglassen, die sind überflüssig weil auf die Bereiche schon per Range verwiesen wird :-P
Ab und zu sollte man nicht nur den Makrorekorder benutzen sondern das Handbuch.

Gruß R.

German Question Microsoft Office Microsoft

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments