Und zwar möchte ich einen Datensatz mit Hilfe des Makros Autofilter nach zuvor ausgewählten Kriterien filtern.
Und zwar soll das Ganze so aussehen, dass ich im Excelblatt "Hauptmenü" 1 Filtertabelle habe, in der ich den Containertyp, nach dem ich meinen Datensatz filten möchte, auswählen kann und dann soll mittels eines Commandbuttons die Tabelle im nächsten Excelblatt gefiltert wird.
Die Filtertabelle soll so aussehen
Den Code den ich dazu geschrieben habe sieht folgendermaßen aus:
Sub Produktivitätsanalyse()
'Das Filterkriterium Containertyp wird als Text deklariert
Dim Containertyp As String
'das in der Filtertabelle im Arbeitsblatt Hauptmenü ausgewählte Kriterium wird in die Zelle B3 ü _
_
_
bernommen
Containertyp = Worksheets("Hauptmenu").Range("B3")
'das Arbeitsblatt, in dem der bereinigte Datensatz steht, wird aktiviert
ThisWorkbook.Worksheets("Datensatz").Activate
'die Filtereinstellungen im aktivierten Tabellenblatt "Datensatz" werden für den Bereich von _
Zelle A1 bis Zelle AM1037 auf 0 gesetzt
ActiveSheet.Range("A1:AM1037").AutoFilter
'Filter nach Kategorie "Containertyp" setzen
ActiveSheet.Range("A1:AM1037").AutoFilter 19, Datum
End Sub
Ich kriege die Filtertabelle, die ich mit einem Datenschnitt erstellt habe, nicht mit dem Makro verbunden....heißt, wenn ich im Hauptmenü als Containertyp beispielsweise 0 anklicke, wird er nicht in Zelle B3 übernommen wie ich das programmiert habe und der Autofilter filtert im letzten Schritt meines Codes den Datensatz in Spalte 19 nicht nach 0 sondern der ganze Datensatz verschwindet einfach.
Wisst ihr, was ich falsch mache? Ich hoffe ich konnte mich verständlich ausdrücken. Danke für eure Hilfe
Mfg