Supportnet / Forum / Tabellenkalkulation

Guten Tag und Hallo, ich habe ein kleines Problem bei dem ich euren Tipp brauchen könnte. Ich habe ein Tabellenblatt (Daten) mit 3 Spalten 100 Müller 17255 101 Schmidt 7122 102 Meier 0 103 Schulze 0 104 Klose 12313 Jetzt möchte ich in einer neuen Tabelle (Filter) die Daten gefiltert angezeigt bekommen. In der Tabelle sollen nur Personen mit einer Zahl über 0 (in Spalte C) angezeigt werden. Aber ohne Leerzeilen dazwischen. 100 Müller 17255 101 Schmidt 7122 104 Klose 12313 Danke für eure Hilfe. Gruß Bernd

Probier mal Menü Daten - Filter - AutoFilter

Gruss Flupo

Hi Bernd,

wenn ich dich richtig verstehe möchtest du die gefilterten Daten in ein neues Tabellenblatt kopieren!?
Folgender Code filtert aus deiner Tabelle alle Einträge die in Spalte C keine Null haben und kopiert die gefundenen Werte in ein zwweites Tabellenblatt.

Sub filtern_kopieren()
Application.ScreenUpdating = False
Columns("C:C").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
Range("A2:C100").Copy
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
Sheets("Tabelle1").Select
Columns("C:C").AutoFilter
Application.CutCopyMode = False
End Sub

Bei jeder erneuten Ausführung des Codes werden die gefundenen Werte ans Ende der zweiten Tabelle angehängt. Allerdings darf in der ersten Zeile der ersten Tabelle keine Eintragung stehen, da es sonst mit der Filterung nicht funktioniert.
Den Code kopierst du in ein Standartmodul und weist ihn einer Schaltfläche zu.

MfG JöKe

• Tabelle sortieren
• Dreifach Sortierung in Excel
• Probblem mit Excel_sortieren
• Excel; Sortieren; 2 Zellen in Verbindung setzen
• Sortieren mit eingefügten Bildern bei Excel