AW: Problem mit Filter Datum
19.07.2006 13:58:56
fcs
Hallo Daniel,
nachdem mich die Behandlung von Datumsangaben durch Excel-VBA in Filtern mal wieder an den Rand der Verzweiflung respektive zur Weißglut gebracht hat, hier nun meine neue Lösung. Die alte hatte nicht funktioniert, da für ein anderes Team bereits ein aktuelleres Datum eingegeben war und so wurden für "Die Glüher" bei Auswahl von Top1 für das Datum keine Daten mehr angezeigt.
mfg
Franz
Sub Filter_DieGlueher_Aktuellste()
Dim wks As Worksheet, Zeile As Long, Maxdatum As Date
Set wks = ActiveSheet
With wks
'Überprüfen, ob alle Daten angezeigt werden
If .UsedRange.Cells.Count <> .UsedRange.SpecialCells(xlCellTypeVisible).Count Then
.ShowAllData
End If
'1. Filter setzen für Team
.Range("A6").AutoFilter Field:=9, Criteria1:="Die Glüher"
'in Spalte A das aktuellste (maximale) angezeigte Datum ermitteln
For Zeile = 7 To .Cells(.Rows.Count, 1).End(xlUp)
If .Rows(Zeile).Hidden = False And Maxdatum < .Cells(Zeile, 1).Value Then
Maxdatum = .Cells(Zeile, 1).Value
End If
Next Zeile
'2. Filter setzen für Datum
'Zwei Kriterien notwendig, da anders die Behandlung des Datums im Filter nicht in Griff zu bekommen
.Range("A6").AutoFilter Field:=1, Criteria1:=">=" & CLng(Maxdatum), Operator:=xlAnd _
, Criteria2:="<=" & CLng(Maxdatum)
End With
End Sub