Gruppe
Feature
Problem
Es soll in Spalte A:B immer nur die Zeile sichtbar sein, die das höchste Datum enthält. Lösung über Bedingte Formatierung.
StandardModule: basMain
Sub DatenFiltern()
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value >= 1000 And _
Cells(iRow, 1).Value <= 2000 And _
Cells(iRow, 2).Value = "Hose" Then
iRowT = iRowT + 1
Worksheets("Ziel").Rows(iRowT).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
End Sub