0160-93 82 19 37 | Nehmen Sie 
Zeilen abhängig von einer Bedingung ausblenden
101081
Dieses Makro blendet Zeilen abhängig von einer Bedingung aus. In diesem Beispiel wird geprüft ob zwischen den Zeilen 1 und 100 in der Spalte A ein Wert steht oder nicht. Wenn kein Wert in Spalte A steht, wird die Zeile ausgeblendet. Alle anderen Zeilen bleiben unangetastet.
Public Sub Zeilen_ausblenden()
Application.ScreenUpdating = False
For i = 1 To 100
If Cells(i, 1).Value = "" Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Das Makro muss einfach an die gewünschten Bedingungen angepasst werden.
