benutzerdefiniertes Autofilterkriterium auslesen.
27.03.2006 13:46:44
th.heinrich
folgender code, dank an Jörg.
Private Sub Worksheet_Deactivate()
Dim varKriterium1 As Variant
Application.DisplayAlerts = False
With Worksheets("Auswertung")
If .AutoFilterMode Then
With .AutoFilter.Filters(2)
If .On Then varKriterium1 = .Criteria1
End With
End If
End With
If varKriterium1 <> "" Then Range("h1").Value = varKriterium1 'Anwendungs-, oder objektdefinierter Fehler.
If varKriterium1 = "" Then Range("h1").Value = "Alle"
With Range("h1")
.Replace What:="=", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End With
Application.DisplayAlerts = True
End Sub
fehler ist kommentiert. wer kann weiterhelfen?
danke von thomas