Ich sortiere meine Tabelle mittels CommandButton so:
Sub Bremssohlen_austauschen_16Stk()
Dim FiNr1 As Integer, FiNr2 As Integer, FiNr3 As Integer, wks As Worksheet, ZelleTitel As _
Range
Const Titel1 As String = "D"
Const Titel2 As String = "Sgns"
Const Titel3 As String = "16 Bremssohlen austauschen"
Const TitelZeile = 1 'Zeile mit den Spaltentiteln
Sheets("Grunddaten").Select
Set wks = Sheets("Grunddaten")
With wks.Rows(TitelZeile)
Set ZelleTitel = .Find(what:=Titel1, LookIn:=xlValues, lookat:=xlWhole)
If ZelleTitel Is Nothing Then
MsgBox Titel1 & " in Titelzeile nicht gefunden"
Exit Sub
Else
FiNr1 = ZelleTitel.Column
End If
Set ZelleTitel = .Find(what:=Titel2, LookIn:=xlValues, lookat:=xlWhole)
If ZelleTitel Is Nothing Then
MsgBox Titel2 & " in Titelzeile nicht gefunden"
Exit Sub
Else
FiNr2 = ZelleTitel.Column
End If
Set ZelleTitel = .Find(what:=Titel3, LookIn:=xlValues, lookat:=xlWhole)
If ZelleTitel Is Nothing Then
MsgBox Titel3 & " in Titelzeile nicht gefunden"
Exit Sub
Else
FiNr3 = ZelleTitel.Column
End If
End With
Selection.AutoFilter Field:=FiNr1, Criteria1:="x"
Selection.AutoFilter Field:=FiNr2, Criteria1:="x"
Selection.AutoFilter Field:=FiNr3, Criteria1:=""
Range("C5").Select
ActiveCell.FormulaR1C1 = "16 Bremssohlen austauschen"
End Sub
Da ich aber sehr veile unterschiedliche Varianten so aufbereiten muss, möchte ich die Tabelle mittels 3 Comboboxen bedienen, Combobox1 soll die Sprache filtern, Combobox2 soll den Wagentyp filtern z.B. Sgns, Combobox3 soll die einzelnen Produkte filtern z.B. 16 Bremssohlen austauschen.
Ist das überhaupt möglich?
Vielen Dank.
Robi