AW: ist die Spalte IV noch frei und benutzbar? owT
11.07.2008 10:44:22
Chris
Servus Hamza,
wenn IV frei ist, dann könntest du es so probieren:
Sub wo()
Dim rSuche As Range, rFinde As Range, strErste As String
With Range("IV:IV")
.FormulaR1C1 = "=IF(ISERROR(IF(NOT(DATE(YEAR(RC[-1]),MONTH(RC[-1]),DAY(RC[-1]))) = TRUE,"""" _
,IF(RC[-1] "" Then
rSuche.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
Else
rSuche.EntireRow.Copy Sheets(2).Range("A1")
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address strErste
Else
MsgBox "Keine Treffer", vbInformation, "Treffer"
End If
Set rSuche = Nothing
Set rFinde = Nothing
End Sub
Hier wird in IV eine Formel eingetragen, die überprüft, ob das Datum das in IU steht kleiner als das heutige ist, wenn ja wird diese Zeile in der anschließenden Suchroutine nach Sheet(2)[anpassen!] kopiert.
Gruß
Chris