Zeilen ausblenden
06.08.2005 11:06:08
Andreas
Ich habe mir aus der Recherge folgenden Code kopiert, mit dem ich alle Zellen von Zeile 6 bis 50 ausblende, die in Spalte C keinen Wert haben.
Nun meine Frage: Wie muss der Code verändert werden, wenn auch alle Zeilen ausgeblendet werden sollen, die in Spalte C den Wert 0 haben. Dieser Wert wird aber aus einem anderen Blatt geholt (=KJH!$K$10) (wenn das wichtig ist?).
Sub ausblenden()
Dim BoI As Byte
For BoI = 6 To 50
Rows(BoI).EntireRow.Hidden = Cells(BoI, 3) = ""
Next BoI
End Sub
Danke für die Hilfe!
mfg Andreas