josiba
Goto Top

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

Content-ID: 318052

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

Ausgedruckt am: 16.11.2024 um 21:11 Uhr

emeriks
emeriks 17.10.2016 um 08:19:42 Uhr
Goto Top
Hi,
du willst den Bildschirm solange einfrieren, oder was?

Application.ScreenUpdating = False
Application.ScreenUpdating = True

E.
131026
131026 17.10.2016 aktualisiert um 09:12:49 Uhr
Goto Top
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.