Sortierung - abhängig von Zelleninhalt ?

Hallo Leute,
ich habe eine Frage.
Wenn in markierten Zeilenbereich in erste Zeile des markierten Zeilenbereiches in Spalte H dies "TR" steht, dann soll diese Sortierung angewendet werden:
Selection.Sort _
Key1:=Range("H" & ActiveCell.Row), Order1:=xlDescending, _
Key2:=Range("C" & ActiveCell.Row), Order2:=xlDescending, _
Key3:=Range("I" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess
Wenn in markierten Zeilenbereich in erste Zeile des markierten Zeilenbereiches in Spalte H dies "BO" steht, dann soll diese Sortierung angewendet werden:
Selection.Sort _
Key1:=Range("C" & ActiveCell.Row), Order1:=xlDescending, _
Key2:=Range("B" & ActiveCell.Row), Order2:=xlAscending, _
Key3:=Range("H" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess
Wenn in markierten Zeilenbereich in erste Zeile des markierten Zeilenbereiches in Spalte I dies "XXX" steht, dann soll diese Sortierung angewendet werden:
Selection.Sort _
Key1:=Range("A" & ActiveCell.Row), Order1:=xlDescending, _
Key2:=Range("T" & ActiveCell.Row), Order2:=xlDescending, _
Key3:=Range("C" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess
Was muss ich an meinen jetzigen Code ändern?


Sub Sortierung_Zeilen()
'Sortierung für die markierte Zeilen
Selection.Sort _
Key1:=Range("H" & ActiveCell.Row), Order1:=xlDescending, _
Key2:=Range("C" & ActiveCell.Row), Order2:=xlDescending, _
Key3:=Range("I" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess
End Sub

Vielen Dank im Voraus....
Liebe Grüße
Selma

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sorti() Dim r As Integer r = Selection.Row Select Case Range("H" & r).Value Case "TR": Selection.Sort _ Key1:=Range("H" & ActiveCell.Row), Order1:=xlDescending, _ Key2:=Range("C" & ActiveCell.Row), Order2:=xlDescending, _ Key3:=Range("I" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess Case "BO": Selection.Sort _ Key1:=Range("C" & ActiveCell.Row), Order1:=xlDescending, _ Key2:=Range("B" & ActiveCell.Row), Order2:=xlAscending, _ Key3:=Range("H" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess End Select If Range("I" & r).Value = "XXX" Then Selection.Sort _ Key1:=Range("A" & ActiveCell.Row), Order1:=xlDescending, _ Key2:=Range("T" & ActiveCell.Row), Order2:=xlDescending, _ Key3:=Range("C" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess End If End Sub

Hallo Selma,
z. B. so:

Sub Sortieren()
Dim Bereich  As Range
   Set Bereich = Selection
   Bereich.Select
   Select Case UCase(Range("H" & Bereich.Row).Value)
      Case "TR"
         Selection.Sort _
         Key1:=Range("H" & ActiveCell.Row), Order1:=xlDescending, _
         Key2:=Range("C" & ActiveCell.Row), Order2:=xlDescending, _
         Key3:=Range("I" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      Case "BO"
         Selection.Sort _
         Key1:=Range("C" & ActiveCell.Row), Order1:=xlDescending, _
         Key2:=Range("B" & ActiveCell.Row), Order2:=xlAscending, _
         Key3:=Range("H" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      Case "XXX"
         Selection.Sort _
         Key1:=Range("A" & ActiveCell.Row), Order1:=xlDescending, _
         Key2:=Range("T" & ActiveCell.Row), Order2:=xlDescending, _
         Key3:=Range("C" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   End Select
End Sub

Gruß Peter

Beliebteste Forumthreads (12 Monate)

Sortierung - abhängig von Zelleninhalt ?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sortierung - abhängig von Zelleninhalt ?

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

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread