Herbers Excel-Forum - das Archiv
Schleife zum Ausblenden von Zeilen
- Schleife zum Ausblenden von Zeilen von nsodw vom 27.12.2006 22:53:47
- AW: Schleife zum Ausblenden von Zeilen - von marcl am 28.12.2006 06:28:04
- AW: Schleife zum Ausblenden von Zeilen - von Luschi am 28.12.2006 09:22:50
 |
Betrifft: Schleife zum Ausblenden von Zeilen
von: nsodw
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
 |
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 SubGruß
marcl
|
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 SubGruß von Luschiaus klein-Paris
| |