filtern

Forumthread: filtern
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: filtern

filtern

13.01.2009 08:00:00

rokett

hallo excelgemeinde
gesundes neues jahr noch
https://www.herber.de/bbs/user/58325.xls
in der datei können ca. 20 spalten und bis zu 4000 zeilen sein.
an den unterschiedlichsten stellen können zellen eine andere hintergrundfarbe haben.
der zellinhalt kann formel, zahl oder auch text sein.
gibt es eine möglichkeit die zellen mit anderer hintergrundfarbe herauszufiltern
danke im vorraus
rokett

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: filtern

13.01.2009 11:25:00

Wenderhold

AW: filtern

13.01.2009 11:25:00

Wenderhold

hi
Option Explicit


Public Sub filter()
Dim i, x As Long
Dim bExit As Boolean
Application.ScreenUpdating = False
For i = 1 To 4000
bExit = False
For x = 1 To 20
If Sheets(1).Cells(i, x).Interior.ColorIndex  xlNone Then
bExit = True
Exit For
End If
Next x
Sheets(1).Rows(i).Hidden = Not bExit
Next i
Application.ScreenUpdating = True
End Sub


Public Sub unfilter()
Dim i, x As Long
Application.ScreenUpdating = False
For i = 1 To 4000
Sheets(1).Rows(i).Hidden = False
Next i
Application.ScreenUpdating = True
End Sub

greeze
e