Zeilen Ausblenden
05.12.2007 15:06:00
Maiks
ich habe hier ein Makro. irgendwie funktioniert es nicht.
der Makro soll jede Zelle der Spalte A prüfen (zelle 7 bis 67).
wenn eine Zelle leer ist, denn die ganze Zeile ausblenden, sonst einbleiden lassen.
hier ist der Makro
Sub Zeile_Auto_Ausblenden()
Dim p As Integer
For p = 7 To 67
If Cells(p, 1) = "" Then
Rows("p:p").EntireRow.Hidden = True
Else
Rows("p:p").EntireRow.Hidden = False
End If
Next p
End Sub
kann mir jemand hier helfen.
dank im voraus.
Maiks
Anzeige