Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen formatbedingt ausblenden

Zeilen formatbedingt ausblenden
05.02.2004 10:58:43
Ralf.P
Hallo zusammen,
ich möchte über VBA Zeilen ausblenden, wenn sie in Spalte A nicht einer bestimmten Farbe entsprechen.
Folgender Code funktioniert, dauert aber extrem lange.
Gibt`s evtl. eine schnellere Lösung???

Sub filter()
Application.screenupdating = False
For Each cell in Range("A5:A8000")
If Not cell.Interior.ColorIndex = 8 Then
x = cell.Row
Rows(x & ":" & x).Hidden = True
End If
Next
Application.screenupdating = True
End Sub

MfG Ralf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen formatbedingt ausblenden
05.02.2004 11:55:09
K.Rola
Hallo,
Schleifen dauern nun mal, diese ca. 3 Sekunden:
Option Explicit

Sub aus_wenn()
Dim z As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
On Error GoTo ende
For z = 5 To 8000
Rows(z).Hidden = Not Cells(z, 1).Interior.ColorIndex = 8
Next
ende:
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub


Gruß K.Rola
Besten Dank o.T.
05.02.2004 13:32:49
Ralf.P
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige