Autofilter-Kriterium automatisch auslesen!
14.10.2003 14:54:02
Andre
habe folgenden Code bereits der Recherche entnommen, möchte aber diesen Code nicht immer manuell starten, sondern der Code soll ablaufen, sobald neu gefiltert wurde. Jetzt das Problem: Kein Schimmer wie!
Sub Filter()
z = [A1].CurrentRegion.Rows.Count
For i = 3 To z
If Rows(i).Hidden = False Then
Cells(1, 1) = Cells(i, 1)
Exit For
End If
Next i
End Sub
Wäre dankbar für eure Hilfe.
Gruß Andre