was soll das programm machen:
wenn eine 0 in einer bestimmten zelle steht soll er von dieser zeile an bis 200 alle ausblenden
aber wen eine 1 drin steht soll er sie wieder einblenden
sobald er die erste 0 gefunden hat kann er aufhören, da dannach auch alle zu überprüfenden zellen eine 0 enthalten
hab mir in der letzten stunde bisschen was zusammen kopiert und das kam raus:
das hier war mein erster versuch bei dem er immer alle 17 zellen ausgeblendet hat bis zur nexten zu überprüfenden zelle
klappt auch schön dauert nur ewig
also dacht ich mir vielleicht gibts ja so einen befehl
aber das will er nicht
und wie schaff ich es das er nach der ersten 0 aufhört
schon mal vielen dank für die hilfe
wenn eine 0 in einer bestimmten zelle steht soll er von dieser zeile an bis 200 alle ausblenden
aber wen eine 1 drin steht soll er sie wieder einblenden
sobald er die erste 0 gefunden hat kann er aufhören, da dannach auch alle zu überprüfenden zellen eine 0 enthalten
hab mir in der letzten stunde bisschen was zusammen kopiert und das kam raus:
das hier war mein erster versuch bei dem er immer alle 17 zellen ausgeblendet hat bis zur nexten zu überprüfenden zelle
klappt auch schön dauert nur ewig
Visual Basic-Quellcode
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim zeile As Integer
- Dim bereich As Integer
- Dim lRow As Long
- lRow = 13
- For zeile = lRow To 67 Step +18
- If Range("c" & zeile).Value = "0" Then
- For bereich = 0 To 17
- Rows(zeile + bereich).Hidden = True
- Next bereich
- Else
- For bereich = 0 To 17
- Rows(zeile + bereich).Hidden = False
- Next bereich
- End If
- Next zeile
- End Sub
also dacht ich mir vielleicht gibts ja so einen befehl
aber das will er nicht
und wie schaff ich es das er nach der ersten 0 aufhört
schon mal vielen dank für die hilfe