anbei meine Beispieldatei
https://www.herber.de/bbs/user/119706.xlsm
Von der Tabelle2 möchte ich eine Filterung in der Tabelle1 bewirken. Die Tabellen möchte ich über Ihren Codenamen ansprechen, also nicht den Text, den der Nutzer unten in den Reitern verändern kann sondern den, den ich im VBA Complier direkt unter Namen ändern kann.
Es soll die Anzahl an Wochen in der Spalte A gefiltert werden.
Mein VBA Code dazu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Adress(False, False) = "C2" Then
With Sheets("Prod_Cabin")
If Not .AutoFilterMode Then .Range("A2").CurrentRegion.AutoFilter
If Target "" Then
' Autofilter setzen
.Range("A2").AutoFilter Field:=1, Criteria1:=Target.Value
Else
' Filterung aufheben
.AutoFilter.ShowAllData
End If
End With
End If
End Sub
Der Anwender ändert die Anzahl in der Zelle C2 und dann soll die Filterung starten.Vielen Dank für eure Hilfe :)
Beste Grüße
Chris