Filter mit ComboBox Hilfe!
09.02.2006 19:32:50
Walter
ich habe folgendes Makro:
Sub Filtern()
'---------------- sortieren nach Aufsteigend --------------------------
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A3:AB3").Select
Selection.AutoFilter
Range("F3").Select
'--- ab hier selektion hinterlegen --------------------------------------
Dim FI$, SP%
SP = 6 'Filter auf Spalte Spalte 6anwenden
' FI = InputBox("Welcher Typ? A, B, C.. oder" & vbCr & vbCr & _
' "(leer für alle)", "Filtern", "A") & "*"
'Columns(SP).AutoFilter Field:=6, Criteria1:="=" & FI, Operator:=xlAnd
Die Selktion bzw. das Filtern klappt soweit, muß jedoch den Buchstaben eingeben, ich möchte jedoch das mit einer ComboBox durchführen.
Meine Combobox habe ich auf eine UF. Der Bereich wo die Buchstaben stehen
steht von "AH4:AH20".
Dies steht in der ComboBox:
Diese Zeilen hab ich wenn ich das CommandButton auf der UF drücke!!!
Private Sub CommandButton1_Click()
Dim FI$, SP%
SP = 6 'Filter auf Spalte Spalte 6anwenden
FI = UFTypDruck.ComboBox1.Value
Columns(SP).AutoFilter Field:=6, Criteria1:="=" & FI, Operator:=xlAnd
Unload Me
End Sub
Es wird Selektiert und Richtig gefiltert, leider werden die Daten nicht angezeigt, was für einen sch... habe ich da gemacht,
Bitte um Mithilfe, Danke
gruß walter