HERBERS Excel-Forum - die Beispiele

Thema: Gefilterte Daten in neues Tabellenblatt übertragen

Home

Gruppe

Allgemein

Problem

Wie kann ich eine bestimmte Warengruppe einer Tabelle per VBA filtern, in ein neu zu erstellendes Arbeitsblatt übertragen und dieses nach der Warengruppe benennen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub GruppenNummer()
   Dim rng As Range
   Dim sFilter As String
   Application.ScreenUpdating = False
   sFilter = InputBox( _
      prompt:="Gruppe eingeben:", _
      Default:="Ware 3")
   If sFilter = "" Then Exit Sub
   Range("A1").AutoFilter Field:=1, Criteria1:=sFilter
   Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
   Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
   rng.Copy Range("A1")
   Columns("A:B").AutoFit
   ActiveSheet.Name = sFilter
   rng.Parent.Select
   ActiveSheet.AutoFilterMode = False
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Filtern

Listbox filtern Datensätze durch Bedingung filtern
Per Matrix Formel filtern Suche in Autofiltern in verschiedenen Spalten
Diagramme nach mehreren Balken filtern Liste mit mehreren Einträgen ausfiltern
Filtern oder Summewenn !? Daten Filtern
Daten umstrukturieren / Filtern MSGBox Zeitraum filtern
ausfiltern liste Duplikate aus einer Tabelle filtern
Monat Filtern Mit Change() o. Calculate() Filtern und Drucken
Filtern - Google Docs / Excell übertragen Unterschiedliche Einträge herausfiltern+auflisten
Filtern per Makro Excel "stolpert" beim wiederholten Filtern
Zahl aus Text filtern Allgemeine Frage zur Fehlerbehandlung
Zeitraum filtern und getrennt speichern allgemeine Fragen zu einer Datenbank
Filtern und sodann selektieren... Listen-Aufstellung filtern und summieren
Daten automatisch filtern + auflisten Daten aus Zeilen filtern und in Spalten kopieren?
ComboBoxDaten in Abhängigkeit filtern o. Userform Postleitzahlen herausfiltern
Daten filtern nur Zahlen aus beliebiger Zeichenkette filtern
Daten filtern Text filtern
Blatt Filtern B Spalte und Zeileninhalt zusammenfü Formel zum Filtern gesucht
allgemein Filtern, aber wie?
Daten filtern Nach Zeitraum filtern
Filtern,kopieren:beim Einfügen Formeln oder Werte Bestimmte Einträge filtern
Filtern mit mind. 3 Bedingungen mit Und gefilterte Liste erneut Filtern
Tabelle durchsuchen - Zeilen filtern Zeilen aus Tabelle filtern & anzeigen
Filtern über ComboBoxen Zeilen filtern
Filtern von Datum Mittelwerte aus Tabelle herausfiltern
Doppelte ausfiltern Doppelte Werte aus einer Zeile filtern