Excel vba autofilter

Computer: Software & Programmierung Visual Basic
#1

Hallo @all

Ich habe ein riesen Problem:
eine Tabelle: 32 Spalten, 20700 Zeilen
1e Zeile Autofilter. User sucht sich (manuell) aus Zeile 1 Spalte 2 einen WErt in der Autoofilter dropdownliste aus, nachdem als erstes gefiltert wird, dann wird macro gestartet, das:
-> die Werte in der autofilter dropdownliste Zeilel 1 Spalte 3 einzeln durchgeht und jeweils die sortierten Tabellen der Reihe nach ausdruckt.
Meine Frage: ist das möglich. Kann man die einzelenen „criteria1“ Werte auslesen und falls ja, dann wie? (bzw. wie, ohne dass die Tabelle zerstört wird *gg*)

Bitte um Hilfe,
Paul

#2

Hallo Jimmi,

hab in letzter Zeit viel damit gearbeitet. Es ist so, dass du über eine Tabelle einen Autofilter setzen kannst, Werte bestimmen und ihn den Autofilter wieder ausschalten kannst! Ich mach das immer so, damit ich beim Löschen am Anfang eines Makro keine Probleme bekomme.
Beispiel:
'Tabelle markieren
Range(„A1“).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
'Autofilter aktivieren
Selection.AutoFilter

'Hier setze ich die Variablen, nach diesen wird anschließend gefiltert
Person = ActiveCell.Offset(0, (second)).Range(„A1“).Text
Abteilung = ActiveCell.Offset(-1, (second)).Range(„A1“).Text
'Filter setzen (1 entspricht in diesem Beispiel Spalte A, 2 entspricht Spalte B)
Selection.AutoFilter Field:=1, Criteria1:=Person
Selection.AutoFilter Field:=2, Criteria1:=Abteilung

'Die selektierte Tabelle wird markiert und kopiert
Range(„A1“).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'und in einer anderen Tabelle eingefügt (da kommen auch die Daten her, nach denen selektiert wird)
Sheets(sbez).Select
Range(„A1000“).Select
ActiveSheet.paste
'sbez = Sheetbezeichnung

'Dann wird der Autofilter wieder entfernt
Range(„A1“).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter

Die Sprünge zwischen den Tabellen habe ich mal weggelassen. Ich hoffe es hilft dir weiter. Ansonsten versuche es mal über die Aufnehmenfunktion von Excel.

Gruß
ten