Herbers Excel-Forum - das Archiv

Schleife zum Ausblenden von Zeilen

Bild

Betrifft: Schleife zum Ausblenden von Zeilen
von: nsodw

Geschrieben am: 27.12.2006 22:53:47
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
Bild

Betrifft: AW: Schleife zum Ausblenden von Zeilen
von: marcl

Geschrieben am: 28.12.2006 06:28:04
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
Bild

Betrifft: AW: Schleife zum Ausblenden von Zeilen
von: Luschi

Geschrieben am: 28.12.2006 09:22:50
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
 Bild
Excel-Beispiele zum Thema "Schleife zum Ausblenden von Zeilen"
In einer Schleife auf Elemente einer UserForm zugreifen CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen UserForm-Optionsfelder über eine Schleife zurücksetzen
Fehlermeldung #NV ausblenden Spalten einer Mehrbereichsauswahl ausblenden.
Symbolleisten ein-/ausblenden Zeilen und Spalten über ein Drehfeld ein- und ausblenden
Excel für die Zeit eines Dialogaufrufes ausblenden ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden