AW: Zeilen ausblenden nur wie ?
10.09.2010 23:08:32
fcs
Hallo Otto,
mit nachfolgenden Anpassungen sollte es passen.
Es wird ein Ausblenden-Status für die Gruppenzeile auf True gesetzt und die Zeilennummer zwischengespeichert, wenn der Zeilenzähler auf eine Gruppenzeile trifft. Sobald in den nachfolgenden Zeilen eine Bestellmenge auftaucht wird der Status auf False=nicht ausblenden gesetzt. Wenn der Zeilenzähler auf die nächste Gruppenzeile trifft wird der Status geprüft und ggf. die vorherige Gruppenzeile noch auseblendet.
Gruß
Franz
Sub ZeilenAusblenden()
Dim lngZeile As Long, stZeile As Long
Dim DatSp As Long
Dim MaxDatenZeile As Long
Dim bGruppeAusblenden As Boolean, ZeileGruppe As Long
' Start Zeile *** ANPASSEN ***
stZeile = 15
' Spalte mit der letzten Datenzeile, wird für MaxDatenZeile Benötigt. *** ANPASSEN ***
DatSp = 2
' Maximale Daten Zeile in DatSp Ermitteln, Leerzeilen können auch dazwischen sein.
MaxDatenZeile = ActiveSheet.Cells(Rows.Count, (DatSp)).End(xlUp).Row
bGruppeAusblenden = False
For lngZeile = stZeile To MaxDatenZeile
'Prüfen, ob Gruppenzeile
If Cells(lngZeile, 2) >= 1 And Cells(lngZeile, 2) 50 _
And Cells(lngZeile, 10) "xyz" And Cells(lngZeile, 10) = 0 Then
Rows(lngZeile).Hidden = True
Else
bGruppeAusblenden = False 'in Gruppe wurde was bestellt
End If
End If
Next lngZeile
End Sub