Hallo Rob,
Option Explicit lasse ich nie weg.
In der finalen Datei: ich auch nicht. War ja nur zum testen.
mag sein, so wie es aussieht tippst du das manuell ein!?
Denn in den anderen Modulen steht es nicht drinne.
Stlle in Extras–Otionen ein:
[X] Variablendeklaration erforderlich
20 Zellen und 25 sek? Hä, wie watt?
Zeig mal die Mappe.
http://www.file-upload.net/download-3564326/test.xls…
Issoch ächt was zu lang, ne!?
Hallo Rob,
kann ich nicht nachvollziehen, hier in der Tabelle siehst du „meine“ Werte wenn ich das nachfolgende Makro „test“ laufen liess.
In sind die Zeilenanzahlen in B die zeit in Sekunden die der dir vorliegende Code brauchte.
Wenn ich das für 65536 zeilen hochrechnen lasse komme ich auf etwas über 10 sek. und deine Kiste ist sicher schneller 
Tabellenblatt: C:\DOKUME~1\ich2\LOKALE~1\Temp\[test.xls]!Tabelle2
│ A │ B │
──┼──────┼──────┤
1 │ 200 │ 0,05 │
──┼──────┼──────┤
2 │ 600 │ 0,13 │
──┼──────┼──────┤
3 │ 1000 │ 0,16 │
──┼──────┼──────┤
4 │ 1400 │ 0,22 │
──┼──────┼──────┤
5 │ 1800 │ 0,28 │
──┼──────┼──────┤
6 │ 2200 │ 0,33 │
──┼──────┼──────┤
7 │ 2600 │ 0,39 │
──┼──────┼──────┤
8 │ 3000 │ 0,45 │
──┴──────┴──────┘
Festgelegte Namen:
Kramfarbe : =Tabelle1!$H$2:blush:H$3800
Zahlenformate der Zellen im gewählten Bereich:
A1:A8
haben das Zahlenformat: Standard
B1:B8
haben das Zahlenformat: 0,00
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Gruß
Reinhard
Option Explicit
Sub GelbAusblenden(ByVal N As Long)
Dim KramRange As Range, KramIndex As Range
Application.ScreenUpdating = False
ActiveWorkbook.Names.Add Name:="Kramfarbe", RefersToR1C1:= \_
"=Tabelle1!R2C8:R" & N & "C8"
Set KramRange = Range("Kramfarbe")
For Each KramIndex In KramRange
If KramIndex.Value "gelb" Then KramIndex.EntireRow.Hidden = True
Next KramIndex
Application.ScreenUpdating = True
End Sub
Sub test()
Dim wks1 As Worksheet, N As Long, Zei As Long, T As Single
Set wks1 = Worksheets("Tabelle1")
Worksheets.Add after:=Worksheets(Worksheets.Count)
With ActiveSheet
For N = 200 To 4000 Step 400
wks1.Rows.Hidden = False
T = Timer
Zei = Zei + 1
Call GelbAusblenden(N)
.Cells(Zei, 1) = N
.Cells(Zei, 2) = Timer - T
.Cells(Zei, 3) = .Cells(Zei, 2) / .Cells(Zei, 1)
Next N
.Columns("B:B").NumberFormat = "0.00"
.Cells(Zei + 1, 1) = 65536
.Cells(1, 5) = "65536 Zeilen = " & \_
Format(.Cells(Zei + 1, 1) \* Application.Average(.Range("C1:C" & Zei)), "0.00")
.Range("A1").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=.Range("A1:B" & Zei + 1), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=.Name
.Range("A1").Select
End With
End Sub
