Office: Tabell nach spalten und Werten in neue Mappe ablegen -automa

Hallo Forum !!!

ich habe folgendes Problem.

Meine Tabelle sieht wie wie folgt aus :

a / 1.1.08 / 4
b / 1.1.08 / 6
c / 3.1.08 / 8
d / 2.1.08 / 4

ich möchte diese Tabelle in einem neuen Tabellenblatt so
filtern, das ich dort angezeiogt bekomme, alle kompletten Zeilen
oder Teile dieser Zeile in der sich 1.1.08 befindet. Oder
nur die komplette Zeile oder zeilenteile in der sich eine 4 befindet.

Dieses läßt sich mit spezilafilter so in etwa realisieren, aber ich
möchte das sich die neue Tabelle automatisch aktuallisiert ohne
weitere Aktion.
Also ich ergänze die 1.Tabelle und meine 2 Tabelle aktuallisiert sich
automatisch.

Danke für die Hilfe

mfg
peter

 

Hallo!

Also einen automatisierten Spezialfilter?
Schau dir mal den Anhang an:
Das Blatt "Filter" aktualisiert sich automatisch, wenn es aktiviert wird.

 

Hallo !!!

Super Danke für die Hilfe.

Genau sowas suche ich.

Wie funktioniert das ??? " nur so in etwa ""

Ich möchte dieses System jetzt für meine Daten anpsssen !!!

mfg

 

Hallo!

Den Code (also das Herzstück) findest du im Modul vom Blatt "Filter".
(Rechtsklick auf den Tabellenreiter > Code anzeigen)

Hier nochmal auskommentiert:

Code:

Private Sub Worksheet_Activate()
    'Eine Variable deklarieren:
Dim Bereich As Range
    'Bildschirmaktualisierung abschalten:
Application.ScreenUpdating = False
    'Den Datenbereich der Quell-Liste festlegen:
    '(CurrentRegion sucht den größtmöglichen zusammenhängenden Bereich um A1)
Set Bereich = Sheets("Tabelle1").Range("A1").CurrentRegion
    'eventuell vorhandene Daten löschen:
Range("7:1000").Clear
    'Den Spezialfilter einsetzen:
    'Bereich.AdvancedFilter = Angabe der Datenquelle
    'xlFilterCopy = die Liste wird kopiert
    'Range("A3").CurrentRegion = hier stehen die Filterkriterien
    'Range("A7") = hier werden die Daten hinkopiert
    'False = Filterung von Duplikaten ist hier nicht erwünscht
Bereich.AdvancedFilter xlFilterCopy, Range("A3").CurrentRegion, Range("A7"), False
    'Bildschirmaktualisierung wieder einschalten:
Application.ScreenUpdating = True
End Sub

 

Super!!

Danke für die Hilfe;
und vielen Dank für die zusätzlichen Informationen.
Ich bin zwar kein Exel-Profi, aber so kommt wenigstens
etwas Licht ins Dunkle !!!

gruß !!!