Spaltenvergleich & ausblenden
03.02.2005 21:45:23
Peter
wer kann helfen? Mein Versuch gelingt nicht.
Ich habe in Spalte 4 Datumsangaben die mehrfach vorkommen,
und in Spalte 15 die dazugehörigen Werte.
Jetzt möchte ich nur die Zeile mit der Datumsangabe welche den größten Wert hat,
eingeblendet haben.
z.B.
Spalte 4----Spalte15
01.02.05----10
01.02.05----22- 01.02.05----11
Sub test()
Dim x As Long
For x = 1 To Range("d65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("D3:D" & x), Cells(x, 4)) > 1 And _
WorksheetFunction.Max(Range("D3:D" & x).Offset(0, 11), Cells(x, 15)) Then
Rows(x).Hidden = True
End If
Next x
End Sub
Peter