AW: Auswahlfenster Autofilter
09.03.2015 13:35:50
marco
Hallo Nepumuk,
ich bastele mir momentan einen Zeilen Filter.
Indem ich den Autofilter 1:1 übernehme will.
Praktisch Ausgewählte Celle = Zeile -1 Spalte rechts Transponieren.
Autofilter darüberlegen.
Filterdaten auslesen
Ausgelesene Filterdaten mit der Zeile vergleichen uns ausblenden.
Mein Code den ich bis Dato erstellt habe. ist noch nicht ganz fertig.
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