Filterergebnis an anderer Stelle ausgeben
11.06.2009 17:09:57
Bibo
ich habe im Archiv den nachstehenden Code gefunden, der in der beigefügten Beispielmappe eigentlich auch ganz prima funktioniert.
Option Explicit
Sub FilterCriteria()
Dim intRow As Integer, intCol As Integer
intRow = Range("A1").CurrentRegion.Rows.Count + 2
intCol = 1
Do Until IsEmpty(Cells(1, intCol))
With ActiveSheet.AutoFilter.Filters(intCol)
If .On Then
Cells(intRow, intCol).Value = .Criteria1
End If
End With
intCol = intCol + 1
Loop
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Cells(intRow + 1, 1)
End Sub
Ich habe zwar herausgefunden, dass ich in der letzten Zeile bei "Cells(intRow + 1, 1)" die Ausgabeposition im selben Tabellenblatt verschieben kann, weiß aber nicht, wie ich den Code anpassen müsste, um eine Ausgabe der Filterwerte z.B. im Tabellenblatt "Auswertungen" der selben Arbeitsmappe beginnend in Zelle B15 oder z.B. in Tabelle 2 Zelle B10 einer neuen Arbeitsmappe zu erreichen. Wie kann man denn die Ausgabe des Filterkriteriums an erster Position des Datenbereiches (in Beispielmappe farblich gekennzeichnet) eliminieren.
https://www.herber.de/bbs/user/62376.xls
Bitte helft mir.
Mit freundlichen Feiertagsgrüssen
Bibo