Filterkriterien aus Zelle in VBA einbauen
27.06.2018 11:54:52
Daniel
Ich setze den Filter manuell, klicke den Button der die Daten überträgt und wiederhole den _
Vorgang mit der vollständigen Filterliste.
Sub einsetzen()
' Daten im Bereich (F1 bis F2) markieren und kopieren
Sheets("Daten").Select
Range("E2:F2").Select
Selection.Copy
' In Spalte A nach der ersten leeren Zelle suchen
Sheets("Uebersicht").Select
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Select
' Markierte Daten als Werte einfügen
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Daten").Select
End Sub
Nun würde ich gerne eine einfache Funktion haben, die mir per Buttonklick diese Schritte vereinfacht.
Am liebsten wäre mir, einmal den Button zu klicken und VBA setzt den Filter, kopiert die Daten, setzt den nächsten Filter usw.
Ich habe mir auch schon beholfen, die Daten gezogen, alle Duplikate entfernt und dann für jeden _
Filterwert einen Code geschrieben.
Sheets("Daten").Select
ActiveSheet.Range("$B$6:$H$362").AutoFilter Field:=3, Criteria1:="10051859"
Range("E2:F2").Select
Dies ist aber sehr Mühsam und umständlich und müsste bei unterschiedlichen Tabellen wiederholt und neu gemacht werden.
Nun ist meine Frage: Besteht die Möglichkeit, und wenn ja, wie , die Filterwerte automatisch abzufragen und mein Vorhaben umzusetzen?
ODER als Alternative würde ich die Filterliste (kann ich ja per Pivot o.ä. (Dublettenentfernung) anlegen. VBA müsste dann nur meine "Filterliste" abarbeiten.
Hat hier jemand eine Idee oder einen Lösungsansatz für mich bitte.