nach dem Wert der ausgewählten Zelle filtern
11.01.2020 20:46:49
JODEPA
ich habe vor kurzem damit begonnen mich wenig in VBA einzuarbeiten.
Deshalb komme ich aktuell nicht weiter und bräuchte Unterstützung. Ich möchte gerne in der folgenden Tabelle doppelt filtern.
Erstens in Spalte B alle größer 0
und
zweitens in Spalte D nach dem Wert der ausgewählten Zelle filtern
Alleine je Spalte funktioniert das perfekt.
Code zum Filter für Spalte B:
Sub AutofilterBeiBlattschutz()
ActiveSheet.Protect Userinterfaceonly:=True
' im geschützten Blatt arbeiten
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Range("$B$3:$B$91").AutoFilter Field:=1, Criteria1:=">0", _
Operator:=xlAnd
End Sub
Sub Lieferant_filtern()
'Bereich anpassen!
With ActiveSheet
.Range("A1:L91").AutoFilter
.Range("A2:L91" & .Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter _
Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
Selection.Copy
End With
End Sub
Material Vorschlagsmenge Bereich Lieferant
4711 1 2000 1000101
4712 5 2000 1415530
4713 4 2000 1343420
4714 0 2000 1343420
4715 1 2000 1415530
4716 9 2000 1343420
4717 5 2000 1343420
4718 7 2000 1378822
4719 4 2000 1378822
4720 0 2000 1000101
Für beide Spalten zusammen funktioniert das leider nicht,
Hat da vielleicht Jemand eine Idee.