Hallo!
Ich kriege es nicht auf die Reihe und brauche eure Hilfe:
Verzweifelt versuche ich
Sub kopieren()
Dim Monat As String
Dim Tag As String
'
Monat = Range("G2").Value
Tag = Range("H2").Value
Sheets(Monat).Select
Rows(4).Select
Selection.Find(What:=Tag, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Activate
Selection.AutoFilter Field:=0, Criteria1:="E"
Mit diesem Code kriege ich es hin, dass ich in einem bestimmten Blatt einen bestimmten Tag finde.
Dann soll in der Zelle unterhalb dieses Tages nach "E" gefiltert werden.
Und dann kommt die Meldung "Die Autofilter-Methode des Range-Objektes kann nicht ausgeführtwerden".
Was mache ich falsch?
Field:=0 ist bestimmt falsch.
Aber ich will/kann ja auch kein festes Field angeben, weil das ja je nach Suchergebins unterschiedlich ist.
Gruß und Danke
Werner