Zellinhalt kopieren in Bezug auf gefilterte Daten

[ArneKellmann]

Hallo erstmal,

erstmal zu dem was ich benutze:

Win XP (nich wichtig)
Microsoft Office 2003

Alsoooo, das Problem das ich habe ist folgendes:

Ich soll aus einer großen Personaltabelle, in der sämtlich Angestellten eingetragen sind, mehrere Untertabellen machen.
Diese sollen dann beispielsweise nur die Angestellten der verschiedenen Geschäftsbereichen anzeigen.
Die Selektionkriterien befinden sich in einer eigenen Spalte.

Jetzt ist ja klar, dass ich mit Daten -> Autofilter und dann Auswahl des Geschäftsbereich die Tabelle filtern kann.

DAS ist aber keine Lösung für mich. Ich will jedes gefilterte Ergebnis auf einem extra Tabellenblatt haben. Jetzt könnte ich ja den gefilterten Inhalt einfach einfügen und fertig. Da ich jedoch in meiner "MasterTabelle" immer wieder aktualisierungen durchführen werde, wollte ich das mit einem Zellbezug auf die gefilterte Zelle machen.

SO, DAS Problem ist jetzt aber, dass wenn ich jetzt den Zellbezug mit dem automatischen Füllen (mit diesem Kreuz im rechten unteren Eck der Zelle) auf alle Datensätze anwenden will, Excel nicht mehr Bezug auf die gefilterten Ergebnisse nimmt und dann wieder ganz stupide Zeile für Zeile der ungefilterten Datensätze einfügt.

Kann mir da jemand einen Lösungsvorschlag anbieten???

Falls noch etwas unklar sein sollte, natürlich nachfragen.

Bin für jede Hilfe dankbar.

Arne

[Amborag]

Ich vermute, dass Du da um eine VBA Lösung nicht herum kommst.

Ungefähr so:

Sub Kopieren()
dim Suchkriterium as string
dim Zielsheet 'das Tabellenblatt in das es kopiert werden soll
dim i as integer 'Zählvariable für das Zielsheet
dim x as long 'Durchlauf der Zeilen
dim y as long '(Spalte in der das Kriterium steht)
dim Zielspalte as integer 'Zielspalte im Zielsheet)

x=1
y='hier muss die Kriteriumsspalte hin
Suchkriterium='hier muss das Suchkriterium hin
do while isempty(cells(x,y))=FALSE
if cells(x,y)=Suchkriterium then
worksheets(Zielsheet).cells(i, Zielspalte)=cells(x,y)
i=i+1
end if
x=x+1
loop
end sub

wie gesagt so ungefähr. Ich hab das Skript noch nicht getestet , sondern einfach nur hier reingeschrieben. Hoffe trotzdem das es einigermaßen hilft. Bis denn