Jetzt mit ComboBox aber Wie ?
08.02.2006 16:09:01
walter
habe folgendes Makro, unter Anleitung Forum, erhalten etc. bisher funktioniert
auch Prima.
Jetzt brauch ich das ganze mit einer "ComboBox1" siehe unten, leider klappt das nicht richtig.
Vielleicht kann jemand mal sehen...
Sub Sortieren_Filtern()
Dim z
'' Application.ScreenUpdating = False
ActiveSheet.Unprotect ("bb") 'so hebt richtig auf
Range("B3").Select
z = Range("a3").End(xlDown).Row
'AktivesBlatt.Bereich(ZelleListe(1; 1); ZelleListe(z; 16)).Auswählen
ActiveSheet.Range(Cells(4, 2), Cells(z, 28)).Select
'---------------- sortieren 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 --------------------------------------
'BISHER die folgenden Zeilen i.o. !!!!!!!!!!!!!!!!
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
'Ab HIER sollte die ComboBox .........................
UFTypDruck.Show 'darauf liegt die ComboBox1 !
Dim ComboBox1
''FI = ComboBox1.RowSource = "AH4:AH20" 'wird auch ausgewählt i.o.
FI = ComboBox1.Value
Columns(SP).AutoFilter Field:=6, Criteria1:="=" & FI, Operator:=xlAnd
End Sub
Gruß Walter