VBA ?
20.06.2006 11:55:06
Suzette
ich baue an einer Datei und habe mir nun aus der "Vorgänger-Datei" ein VBA-Modul "geklaut" Es lautet:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$4" Then
Range("B659").FormulaR1C1 = "=Afilter(2)"
Range("B4").FormulaR1C1 = "=Afilter(2)"
End If
End Sub
Public Function AFilter(intFilter%) As String
Application.Volatile
On Error Resume Next
If Worksheets("ISTs").AutoFilter.Filters(intFilter).On Then _
AFilter = "on" Else AFilter = "off"
End Function
Ich habe nun die entsprechenden Zellen auf meinen Bedarf umgestellt (aus $B$4 wurde $C$2 - aus B659 wurde C1006 und aus B4 wurde C2) Leider funktioniert es so nicht. Es wird immer wieder auf die Autofilter-Funktion in Spalte B zugegriffen. Woran kann das liegen. Bin verzweifelt....
Vielen Dank im voraus und liebe Grüße
Suzette