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

Forumthread: Schleife zum Ausblenden von Zeilen

Schleife zum Ausblenden von Zeilen
27.12.2006 22:53:47
Zeilen
Hall Leute,
ich habe folgendes Problem:
Ich würde gerne aus einem Arbeitsblatt mit 50 Zeilen, alle nicht ausgefüllten Zeilen zwischen der 10. und 50. Zeile ausblenden, damit ich beim Druck nicht die leeren Zeilen ausdrucken muss, da alle Zeilen einen Rahmen haben. Kann man die Schleife auf einen Durchlauf zwischen der 10. und 50. Zeile beschränken ?
Für die Hilfe möchte ich mich schon im Voraus herzlich bedanken.
Gruß
nsodw
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Schleife zum Ausblenden von Zeilen
28.12.2006 06:28:04
Zeilen
Hallo nsodw,
versuch mal folgendes:
vorausgesetzt, Deinen Werte stehen in Spalte A:

Sub ausblenden()
Range("A10").Select
Do While ActiveCell.Address <> "$A$51"
If ActiveCell = "" Then
Rows(ActiveCell.Row).EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Gruß
marcl
Anzeige
AW: Schleife zum Ausblenden von Zeilen
28.12.2006 09:22:50
Zeilen
Hallo nsodw,
hier 1 Beispiel ohne den Select-Befehl:
Sub zeilenAusblenden()
Dim rg1 As Range, rg As Range, ok As Boolean
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Set rg1 = ThisWorkbook.Worksheets("Tabelle1").Range("A10:A60")
For Each rg2 In rg1
If rg2.Value = "" Then
ok = True
Else
ok = False
End If
rg2.EntireRow.Hidden = True
Next rg2
Set rg2 = Nothing
Set rg1 = Nothing
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige