Leere Zeilen verstecken
18.02.2004 10:08:59
Christinchen
Ich würde gerne alle Zeilen verstecken, die leer sind... wenn eine Zelle in der Zeile leer ist, dann ist immer die ganze Zeile leer. Also habe ich folgendes geschrieben:
Workbooks("fehl.xls").Worksheets("Sheet1").Activate
For i = 6 To 47
If Workbooks("fehl.xls").Worksheets("Sheet1").Cells(i, 1) = "" Then
Rows("i:i").Select
Selection.EntireRow.Hidden = True
End If
Next i
Allerdings funktioniert das nicht, weil er Rows("i:i") nicht nimmt.
Weiß jemand, wie ich das lösen kann, ohne jede Zeile einzeln zu testen?
MfG Christinchen