Office: (Office 2010) Makro nach zwei Kriterien

BlinkyBill · 19. November 2018

Erst einmal Danke an meinen Helfer, es klappt Super. Nur hätte ich jetzt noch die Frage, was ich machen muss wenn ich es nach Zwei Kriterien sortieren will.
Ich hab schon viel rumprobiert und mir Formeln/Codes rausgesucht, jedoch klappt das nicht. Vielleicht ist das mit dem Rest nicht Kombinierbar.

Option Explicit

Dim strName As String
Dim varMon As Variant, zlEnd As Long

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count <> 1 Then Exit Sub 'Falls Target nicht aus 1 Zelle besteht, verlasse SUB.

'Falls Zelle "Target" sich in "Jahresübersicht!A4:A10000" befindet:
If Not Application.Intersect(Target, Range("A4:A10000")) Is Nothing Then
strName = Target.Value 'Merke dir den Wert von Zelle "Target"

'Sortierung des "Jahresübersicht"-Blattes:
Me.Range("A4:AL10000").Sorgt key1:=Me.Range("A4"), order1:=xlAscending, _
Header:=xlNo, ordercustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

'Durchlaufe alle Monatsarbeitsblätter:
For Each varMon In MonatsListe()
'Ermittle jeweiliges Monatsarbeitsblatt und die letzte verwendete Zeilennummer in Spalte A (=zlEnd)
With wsZielblatt(varMon, zlEnd)
If Len(strName$) = 0 Then
'1) Wert von "strName" wurde aus Spalte A von "Jahresübersicht" entfernt
' und alle Spaltenwerte "A:AL" dieser Zeile wurden ans Ende sortiert.
'2) In den Monatsblättern muss der Wert von "strName" ebenfalls aus Spalte A entfernt werden,
' sodass auch dort alle Spaltenwerte "A:AL" dieser Zeile ans Ende sortiert werden können.
.Cells(Target.Row + 2, 1).Value = strName$
Else
'1) Wert von "strName" wurde am Ende der Werte von Spalte A in "Jahresübersicht" angefügt
' und alle Spaltenwerte "A:AL" dieser letzten Zeile an der korrekten Zeilenposition einsortiert.
'2) Wert von "strName" muss ebenfalls am Ende der Werte von Spalte A in den Monatsblättern angefügt werden
' und alle Spaltenwerte "A:AL" dieser letzten Zeile an der korrekten Zeilenposition einsortiert werden.
.Cells(zlEnd + 1, 1).Value = strName$
End If
'Sortierung in den Monatsblättern:
.Range("A6:AL10000").Sort key1:=.Range("A6"), order1:=xlAscending, _
Header:=xlNo, ordercustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End With
Next varMon

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich persönlich würde je vermuten, dass man bei dem 'rot markierten' etwas ändern muss.

Ich habe versucht einfach nur Key2 einzufügen (das blau markierte) aber es klappt nicht. Muss der Code in dem Fall komplett anders sein? Und könnte ich damit den Rest von dem Code zerstören?

Me.Range("A4:AL10000").Sorgt key1:=Me.Range("A4"),key2:Me.Range("B4") order1:=xlAscending, _
Header:=xlNo, ordercustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom[/COLOR]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

http://www.office-hilfe.com/support/showthread.php/23043-Excel-Makro-auf-allen-Seiten

Lutz Fricke · 19. November 2018

Hallo Bill,

du machst Dir natürlich Sorgen, aber der Sortierschlüssel heißt trotzdem Sort Key und nicht Sorgt Key ;-)

Gruß,
Lutz

BlinkyBill · 20. November 2018

Zitat von Lutz Fricke: ↑

Hallo Bill,

du machst Dir natürlich Sorgen, aber der Sortierschlüssel heißt trotzdem Sort Key und nicht Sorgt Key ;-)

Gruß,
Lutz
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Orginal habe ich auch Sort Key hab ich hier wohl zu schnell abgetippt..
Habe jetzt versucht einfach .Sort key2:=MeRange("B4") einzugeben, aber das klappt nicht

Office: (Office 2010) Makro nach zwei Kriterien

Makro nach zwei Kriterien

Makro nach zwei Kriterien

Makro nach zwei Kriterien - Similar Threads - Makro Kriterien

Makro Zip-Datei von Webseite runterladen, auspacken, kopieren

Makro für variable Anzahl von Datensätzen

Makro aus personal.xls starten

Dokumente und Blatt umbenennen

SVerweis, WennDann oder Makro

VBA Makro: Tabelle nach 2 Kriterien durchsuchen & in diese Zeile weitere Werte eintragen

VBA duplikate finden und auf Kriterien prüfen