Makro zum Sortieren und Filtern einer Tabelle
14.05.2019 17:12:54
VBANeuling
ich habe eine Tabelle, die aus 7 Spalten und insgesamt 1524 Zeilen (inklusive 1 Zeile als Überschriftszeile). Die Daten in den Spalten 3-7 werden per Matrixformel aus einer anderen Tabelle geholt.
Wenn ich nun in der Zelle B1 (Listenfeld) einen Eintrag auswähle, sollen in der Tabelle nur die Datensätze angezeigt werden, die in der Spalte 4 >0 sind und gleichzeitig bzw. im nächsten Schritt soll die Spalte 5 absteigend sortiert werden. Bei Änderung des Auswahl in der Zelle B1 sollen sich die Werte in der Tabelle entsprechend anpassen.
Ich habe in den letzten Tagen viele Beiträge gelesen und auch einige gute Ansätze gefunden, doch mein Problem konnte ich bisher nicht abschließend lösen.
Ich habe derzeit zwei Makros, die einzeln zwar funktionieren, aber in Kombination nicht.
Makro1:
Sub Makro1()
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "A9622:G11144"
Sortierspalte = "E"
ActiveSheet.Range(Bereich).Sort Key1:=Range(Sortierspalte & "1"), Order1:=xlDescending, Header:= _
xlGuess, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Sub Makro2()
Dim Filterspalte As String
Dim Bereich As String
Bereich = "A9622:G11144"
Filterspalte = "D"
ActiveSheet.Range(Bereich).AutoFilter Field:=2, Criteria1:=">0"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Makro1
Makro2
End If
End Sub
Wo liegt mein (Denk-)Fehler?
Vielen Dank im Voraus.
Gruß