Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen per Makro ausblenden

Zeilen per Makro ausblenden
Sascha
Hallo an alle....
dieser Code steht in einem Modul, wie muss ich diesen anpassen sodass er ausschließlich auf Tabelle 1 angewendet wird?
Sub Makro_ZeilenAusblenden()
For i = 44 To 84
Rows(i).Hidden = Cells(i, 1) > [R25]
Next
For i = 85 To 100
Rows(i).Hidden = Cells(i, 1) > [R26]
Next
For i = 101 To 111
Rows(i).Hidden = Cells(i, 1) > [R28]
Next
For i = 112 To 142
Rows(i).Hidden = Cells(i, 1) > [R24]
Next
For i = 143 To 183
Rows(i).Hidden = Cells(i, 1) > [R23]
Next
End Sub
mit besten Grüßen
Sascha
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Zeilen per Makro ausblenden
31.03.2011 16:43:00
Hajo_Zi
Hallo Sascha,
Option Explicit
Sub Makro_ZeilenAusblenden()
Dim I As Long
With Worksheets("Tabelle1")
For I = 44 To 84
.Rows(I).Hidden = .Cells(I, 1) > .Range("R25")
Next
For I = 85 To 100
.Rows(I).Hidden = .Cells(I, 1) > .Range("R26")
Next
For I = 101 To 111
.Rows(I).Hidden = .Cells(I, 1) > .Range("R28")
Next
For I = 112 To 142
.Rows(I).Hidden = .Cells(I, 1) > .Range("R24")
Next
For I = 143 To 183
.Rows(I).Hidden = .Cells(I, 1) > .Range("R23")
Next
End With
End Sub
[] macht den Code nur langsam.

Anzeige
AW: Zeilen per Makro ausblenden
31.03.2011 16:44:48
Sascha
Hallo Hajo,
super vielen Dank für die schnelle Hilfe!
Gruß
Sascha
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige