alter thread, gleiches Problem: Field-Feld Filter

Hallo Forum,
habe einen alten Thread gefunden, der genau mein Problem behandelt: Hallo Boris, (...) Meine Frage zielte auf ein anderes Problem: Ich habe in der Spalte D den Cursor stehen. Das Makro soll nun den Wert des Filters, also wie _ _ bereits gesagt die 3 bei z.B. Autofilter.Filters(3) zurückgeben. Ich benötige diesen Wert um ein VBA zu schreiben, das sehr flexibel die Daten eines Filters _ aufbereitet und als neue Datei ausgibt. Problem dabei, dass die Filter auf immer wieder neue _ Spalten, sprich Filter-Nummern zugreifen muss. Steht der Cursor in Spalte D, soll er den Wert - des Filters in Spalte D zurück geben, steht der Cursor in Spalte F, soll er den Wert dieses _ _ Filters zurück geben. Du verstehtst was ich meine? Nochmals Danke John
Leider funktionieren die damaligen Antworten nicht.
Ich fülle eine Combobox praktisch mit den Spaltenüberschriften und möchte diese nun gerne als Wert an field:= für
den Autofilter übergeben. Kann das immer nur eine Zahl sein? Kann ich den Zellen Namen geben, den Namen
Nummern zuweisen und die Namen mit der Auswahl der ComboBox vergleichen und so dem Autofilter übergeben?
Hier meine Datei:

https://www.herber.de/bbs/user/97646.xlsm

Wäre super, wenn wer helfen könnte.
Grüße
VBA-Greenhorn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ft* = ComboKrit2.ListIndex + 1 ActiveSheet.Range("$A$1:$AA$51").AutoFilter Field:=ft*, Criterial2:=ComboBegriff2.Value ft** = ComboKrit3.ListIndex + 1 ActiveSheet.Range("$A$1:$AA$51").AutoFilter Field:=ft**, Criterial3:=ComboBegriff3.Value

Private Sub FilterButton_Click() Selection.AutoFilter ActiveSheet.Range("$A:$AA").AutoFilter Field:=ComboKrit1.ListIndex + 1, Criteria1:= _ ComboBegriff1.Value 'ActiveSheet.Range("$A:$AA").AutoFilter Field:=ComboKrit2.ListIndex + 1, Criteria1:= _ ComboBegriff2.Value 'ActiveSheet.Range("$A:$AA").AutoFilter Field:=ComboKrit3.ListIndex + 1, Criteria1:= _ ComboBegriff3.Value End Sub

Private Sub FilterButton_Click() With ActiveSheet.Range("$A$1:$AA$51") If ComboBegriff1.ListIndex > -1 Then .AutoFilter Field:=ComboKrit1.ListIndex + 1, Criteria1:=ComboBegriff1.Value End If If ComboBegriff2.ListIndex > -1 Then .AutoFilter Field:=ComboKrit2.ListIndex + 1, Criteria1:=ComboBegriff2.Value End If If ComboBegriff3.ListIndex > -1 Then .AutoFilter Field:=ComboKrit3.ListIndex + 1, Criteria1:=ComboBegriff3.Value End If End With End Sub

Beliebteste Forumthreads (12 Monate)

alter thread, gleiches Problem: Field-Feld Filter

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

alter thread, gleiches Problem: Field-Feld Filter

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread