besteht die möglichkeit über VBA das Autofilter Auswahlfenster zu öffen?
Praktisch den Autofilter Button drücken?
Mit Range("A11").Select: SendKeys "%{Down}", True]
oder Application.OnKey "%^{Down}", ""
geht nicht.
Gruß
Marco
Sub Autofilterzeilen()
Dim ilast As Integer, ilastrow As Integer, intc As Integer, ilastrow2 As Integer
Dim rngZ As Range
Dim arrFilter()
' Bearbeitungspalte einfügen.
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column).EntireColumn.Insert
' Filterbereich transponieren.
ilast = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
ilastrow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ilast)).Copy
ActiveSheet _
.Cells(ActiveCell.Row, ActiveCell.Column) _
.PasteSpecial Transpose:=True
' Autofilter anlegen
ilast = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
ilastrow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row + 1
Range(Cells(ActiveCell.Row - 1, ActiveCell.Column), Cells(ActiveCell.Row + 1, ActiveCell.Column) _
).AutoFilter
ilastrow2 = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
'For Each rngZ In Range(Cells(ilastrow + 1, ActiveCell.Column), Cells(ilastrow2, _
ActiveCell.Column)).SpecialCells(xlCellTypeVisible)
' intc = intc + 1
' ReDim Preserve arrFilter(1 To intc)
' arrFilter(intc) = rngZ.Text
' Next rngZ
End Sub
Sub enthält()
Dim Wort As Variant, akt_Spalte As Integer
Dim Hier As Range
Wort = InputBox(Chr(13) & Chr(13) & "Bitte Suchwort eintragen" & Chr(13) & "", "Filtern _
nach ""enthält""")
akt_Spalte = ActiveCell.Column
Set Hier = ActiveCell
If Wort = "" Then
Hier.Select
Selection.Autofilter Field:=akt_Spalte
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Exit Sub
Else
If Wort > -1000000000 And Wort
Filtert in der markierten Spalte nach der eingegebenen Zeichenkette.