Archiv
Ansicht:   
Suche   erweiterte Suche

Nachricht aus dem Archiv

Planitzer schrieb am 27.August.2010, 07:58:06 in der Kategorie pc.sw.office

Excel 2003 - Spezialfilterung??

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

Archiv
Ansicht:   
Suche   erweiterte Suche
Auf unserer Web-Seite werden Cookies eingesetzt, um diverse Funktionalitäten zu gewährleisten. Hier erfährst du alles zum Datenschutz