Zellen ausblenden und wieder einblenden
27.04.2006 19:01:57
C.R.
ich hoffe ihr könnt mir helfen. Ich habe ein Makro, das die leeren Zeilen ausblendet. Wenn aber in die ausgeblendeten Zeilen etwas hineinkommt (durch eine Privot Tabelle) dann werden diese Zeilen nicht automatisch wieder eingeblendet. Hier mein Makro:
Sub AusblendenderLeerenZeilen()
Dim Datenfeld(1, 6) As Integer
With Sheets("Tabelle1")
For intz = 3 To .UsedRange.Rows.Count
If IsEmpty(.Cells(intz, 3).Value) Then
.Cells(intz, 3).EntireRow.Hidden = True
End If
Next intz
End With
End Sub
Kann mir jemand helfen? Vielen Dank C.R.
Anzeige