AW: Ausgabe der AutoFilter-Kriterien in einer Zelle
29.07.2003 07:07:52
Jörg Gradert
Hallo S.,
VBA gut kann ich von mir nicht behaupten, darum bleiben einige Probleme.
Hier mein Beispiel für zwei Filter
----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C1 As String
Dim D1 As String
Dim E1 As String
Dim F1 As String
With Worksheets("Tabelle1")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then C1 = .Criteria1
End With
End If
D1 = Mid$(C1, 2, 30)
Range("A1").Value = D1
End With
With Worksheets("Tabelle1")
If .AutoFilterMode Then
With .AutoFilter.Filters(2)
If .On Then E1 = .Criteria1
End With
End If
F1 = Mid$(E1, 2, 30)
Range("A2").Value = F1
End With
End Sub
---------------------------------------------
Problem:
1.
.Criteria1 hat ein "=" vorne an, warum ich es nicht in eine Zelle übertragen konnte, darum weitere Variablen, weil ich mir nicht anders zu helfen wusste.
2.
Leider löst das Filter kein Selection_Change Ereignis aus, darum musst Du vorerst in eine Zelle des Tabellenblatts klicken um das Programm zu starten.
Ich habe keine Idee, ob das Filter irgendein Ereignis auslöst um das Programm anders zu starten.
Aber es ist sicherlich ein Ansatz für dich.
Gruß Jörg