Nachricht aus dem Archiv

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

• Excel 2003 - Spezialfilterung?? Planitzer - 26.August.2010, 09:47:46 - (pc.sw.office)
  • Danke effeff - Danke manes: Beides KLASSE!! Planitzer - 27.August.2010, 17:48:32
  • Excel 2003 - Spezialfilterung?? Howie - 26.August.2010, 16:30:52
    • Excel 2003 - Spezialfilterung?? Planitzer - 27.August.2010, 07:50:21
  • Excel 2003 - Spezialfilterung?? manes - 26.August.2010, 12:22:56
    • Excel 2003 - Spezialfilterung?? Planitzer - 26.August.2010, 12:47:47
      • Excel 2003 - Spezialfilterung?? manes - 26.August.2010, 14:20:05
        • Excel 2003 - Spezialfilterung?? Planitzer - 27.August.2010, 07:53:28
          • Excel 2003 - Spezialfilterung?? manes - 27.August.2010, 12:28:47
            • Excel 2003 - Spezialfilterung?? manes - 27.August.2010, 15:32:55
  • Excel 2003 - Spezialfilterung?? effeff - 26.August.2010, 10:23:57
    • Excel 2003 - Spezialfilterung?? Planitzer - 26.August.2010, 11:05:58
      • Excel 2003 - Spezialfilterung?? effeff - 26.August.2010, 12:24:32
        • Excel 2003 - Spezialfilterung?? Planitzer - 27.August.2010, 07:58:06
          • Excel 2003 - Spezialfilterung?? effeff - 27.August.2010, 15:05:18
        • Danke effeff - ich probiere es aus Planitzer - 26.August.2010, 12:48:28