Hallo effeff!
Funktioniert einwandfrei - aber, wie fast immer, die Datei bzw. der Datenbankbereich beginnt nunmehr in Zelle A 7738 mit den Feldnamen (ID .... Name ..etc) darunter die DAtensätze.
HAbe mit meinem gefährlichen Halbwissen aus \"A2\" A7738, bzw A7739 gemacht, dann haut es aber nicht so hin, als wenn ich die DS, wie zuvor von mir geschildert und von dir im code übernommen - bei A2, bzw A1.
Ist es zeitaufwendig für Dich dies zu ändern - wenn nicht trotzdem danke, denn auch manes Zählenwenn-Variante ist für mich auch praktikabel - deine wäre aber \"einen Tick eleganter\"
Danke im voraus
Kurt
> OK, hier ist dein \"Spezialfilter\":
>
>
Sub Spezialfilter_ala_ff()
>
> Selection.Sort Key1:=Range(\"A2\"), Order1:=xlAscending, Header:=xlYes,
> _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
> DataOption1:=xlSortNormal
>
> Dim l As Long
>
> l = 3
>
> Do While Cells(l, 1).Value <> \"\"
>
> If Cells(l, 1).Value <> Cells(l - 1, 1).Value And Cells(l, 1).Value <>
> Cells(l + 1, 1).Value Then
> Rows(l).Hidden = True
> End If
>
> l = l + 1
>
> Loop
>
> End Sub