Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1208to1212
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
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige