Autofilter richtig einsetzen

Alex · 2008-03-04T20:00:00+00:00

Hallo Leute, ich hab ein riesen Problem mit dem Autofilter, ich hoffe ich kann es richtig erklären. Hier erst mal ein kleiner Ausschnitt aus dem Code: If Filter.ComboBox2.Value = "Gewicht" Then With Selection .AutoFilter Field:=z, Criteria1:=Filter.ComboBox1.Value, _ Operator:=xlAnd .AutoFilter Field:=y, Criteria1:=Filter.ComboBox3.Value, _ Operator:=xlAnd End With Nun möchte ich das er für die Variable "z" die passende Spalte auswäht. Also für Alter = Spalte B, Größe = Spalte C usw. Das Gleiche soll auch mit Variable "y" geschehen. Wie mache ich das ? Ich zerbrech mir schon seit Stunden den Kopf! Alex

Hallo,
hier ein Beispiel. Man braucht dazu eine UserForm mit dem ComboBox1.
Option Explicit


Private Sub UserForm_Initialize()
Dim lst(1, 1) ' jetzt nur fuer zwei zeilen...
lst(0, 0) = "Alter"
lst(0, 1) = 2 ' ist immer die entsprechende Spaltennummer
lst(1, 0) = "Groesse"
lst(1, 1) = 3
Me.ComboBox1.ColumnCount = 2 ' combo mit 2 spalten
Me.ComboBox1.List = lst ' werte fuer combo
Me.ComboBox1.ColumnWidths = ";0" ' die zweite Spalte nicht zeigen
' oder hier eine andere Moeglichkeit wie man combo fillen kann:
' http://www.dailydoseofexcel.com/archives/2004/05/10/populating-multi-column-listboxcombobox/
End Sub


Private Sub ComboBox1_Change()
Dim spalte As Integer
Dim criteria As String
spalte = 0
criteria = ""
' die Combo-Werte uebernehmen, Me.ComboBox1.ListIndex gibt die ausgewaehlte zeile zurueck,
' falls nichts ausgewaehlt ist, ist es gleich -1
If (Me.ComboBox1.ListIndex > -1) Then
With Selection
spalte = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
criteria = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
.AutoFilter Field:=spalte, Criteria1:=criteria
End With
End If
End Sub

Hi,
also hier ein beispiel. Es ist aber nur beispiel, funktionieren wird es nicht ganz! Siehe die comments im code.
' es wird z.B. mit dem Command-button click gestartet...


Private Sub CommandButton1_Clict()
Dim spalte As Integer
Dim criteria As String
spalte = 0
criteria = ""
' die Combo-Werte uebernehmen, Me.ComboBox1.ListIndex gibt die ausgewaehlte zeile zurueck,
' falls nichts ausgewaehlt ist, ist es gleich -1
If (Me.ComboBox1.ListIndex > -1 And Me.ComboBox2.ListIndex > -1) Then
' hier muss es anders sein, da du die spalten-nummer in der Combo1 hast
' und die werte in der Combo2, also wahrscheinlich so:
' >>> criteria = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 0) ?
spalte = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
criteria = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
' hier werden einfach alle sheets durchgegangen und der
' Filter fuer die 'spalte' gesetzt
Call SetFilterAllSheets(spalte, criteria)
End If
End Sub


Private Sub SetFilterAllSheets(ByVal i_spalte As Integer, ByVal i_criteria As String) ' i_ ...  _
wie input parameter
Dim wst As Worksheet
Dim curReg As Range
On Error GoTo SetFilterAllSheets_Error
For Each wst In Worksheets
' damit dies mit der Current Region funzt, musessen deine daten
' in A1 beginnen, duerfen keine leere spalten bzw. leere zeilen enthalten...
Set curReg = wst.Range("a1").CurrentRegion
curReg.AutoFilter Field:=i_spalte, Criteria1:=i_criteria
Next wst
Exit Sub
SetFilterAllSheets_Error:
MsgBox "error in SetFilterAllSheets, " & Err.Description, vbCritical, "Error"
End Sub

Forumthread: Autofilter richtig einsetzen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Autofilter richtig einsetzen

Forumthread: Autofilter richtig einsetzen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread