Filtern per Makro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
probiers mal so:
Tabellenaufbau in Tabelle2:
- Zeile 1 ist Überschrift, danach die Daten
Tabellenbaufbau Tabelle1:
- in Zeile 1 die Überschriften aus Tabelle2
- in Zeile 2 gibst du das Filterkriterium der jeweiligen Spalte an (leer: nicht filtern)
dazu folgender Code im Modul "Tabelle1"
der Code bewirkt, dass wenn du in der Zeile 2 einen Wert änderst, in Tabelle2 der Autofilter entsprechend gesetzt wird und dann die gefilterten Werte aus Tabelle2 kopiert und in Tabelle1 ab Zeile 4 eingefügt werden:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Intersect(Target, Rows(2)) Is Nothing Then Exit Sub
For Each Zelle In Intersect(Target, Me.UsedRange, Me.Rows(2))
If Zelle.Value  "" Then
Sheets("Tabelle2").Cells(1, 1).AutoFilter field:=Zelle.Column, Criteria1:=Zelle.Value
Else
Sheets("Tabelle2").Cells(1, 1).AutoFilter field:=Zelle.Column
End If
Next
Application.EnableEvents = False
Me.UsedRange.Offset(3, 0).ClearContents
Sheets("Tabelle2").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Me.Cells(4, 1)
Application.EnableEvents = True
End Sub

Wenn du keine Makros willst, könntest du auch den Spezialfilter verwenden.
diesen findest du unter DATEN - SORTIERN UND FILTERN - ERWEITERT
auch hier definierst du die Filterkriterien, indem du in Zeile 1 die Überschriften und in Zeile 2 das dazugehörige Filterkriterium schreibst.
dann rufst du diese Funktion auf und gibst im Assistenten an:
- den Zellbereich mit den Filterkriterien
- den Zellbereich der zu filternden Liste
- die linke obere Ecke des Bereichs, an dem das Ergebnis eingefügt werden soll.
Gruß Daniel

Hallo Tino,
danke das du dich meinem Problem annimmst.
Die vorherige Tabelle war irgendwie besser. Ich würde dir nochmal erklären wie ich genau vorgehe.
- und zwar nehme ich meine Daten und kopiere diese in deine Excel. Die Spalten gehen von A-AC also 29 Spalten.
- in die Zeile 3 gebe ich das ein was ich möchte, und unten wird es angezeigt, jedoch mit allen anderen Infos auch. Zum Beispiel "Name7" und die restlichen Spalten werden auch gefüllt.
Gebe ich noch die Körpergröße an wird weniger angezeigt.
Bei der vorherigen Tabelle habe ich meine 29 Spalten unter "Daten" eingefügt und die Zeilen 1-3 habe ich einfach weitergezogen, bis Spalte 29. Hier hat er automatisch die Überschriften der Tabelle "Daten" übernommen.
Wenn ich jedoch jetzt "Name7" eingebe in der Zeile 3, füllt es nur die von dir eingestellten ersten 3 Spalten. ich möchte jedoch das alle gefüllt werden.
Bei der jetzigen Tabelle funktioniert es leider nicht mehr. Wenn ich die Zeile 1 um mehrere Kriterien erweitere und meine "Daten" reinkopieren, spuckt er mir nichts mehr auch unten.
Gruß
Horst

Beliebteste Forumthreads (12 Monate)

40 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

40
Beiträge zum Forumthread

Beiträge zu diesem Forumthread