Zeilen ausblenden die 2te
21.09.2005 10:01:11
Sebastian
Es gut um folgendes Problem: Ich will auf dem Blatt("Act_Kst") prüfen ob die Zeilen von Spalte "W" bis Spalte "AM" Nullen enthalten. Falls die ganze Zile im genannten Bereich Nullen enthält will ich die Zeile ausblenden.
Die Makros von gestern sehen wie folgt aus:
Sub Ausblenden()
For intZählerZeile = intZeileStart To intZeileEnde
For intZählerSpalte = intSpalteStart To intSpalteEnde
If ActiveSheet.Cells(intZählerZeile, intZählerSpalte) = 1 _
And ActiveSheet.Cells(intZählerZeile, intZählerSpalte) <> "" Then
intCounter = intCounter + 1
If intCounter = intZählerSpalte Then
ActiveSheet.Rows(intZählerZeile).Hidden = True
End If
End If
Next
Next
End Sub
Sub Ausblenden()
For i = 1 To 1000
If ActiveSheet.Cells(i, 1) = 0 And ActiveSheet.Cells(i, 1) <> "" Then
ActiveSheet.Rows(i).Hidden = True
End If
Next
End Sub
Vielleicht könnt ihr damit etwas anfangen.
Hoffe ihr könnt mir weiterhelfen. Das wäre spitzenmässig.
Viele Grüße Sebastian