Habe hier mal eine Beispieldatei in der ich zeilen ausblenden möchte nur weiss ich leider nicht wie ich dies machen soll .
https://www.herber.de/bbs/user/71465.xls
Hoffe ihr könnt mir helfen
Option Explicit
Sub arrBestellen()
Dim zae1 As Integer, arrBestellung
With ThisWorkbook.Worksheets("Tabelle1")
arrBestellung = .Range("B16:J" & .Range("B1000").End(xlUp).Row)
For zae1 = 1 To UBound(arrBestellung)
If arrBestellung(zae1, 1) > 50 And arrBestellung(zae1, 9) = "" Then
.Rows(15 + zae1).EntireRow.Hidden = True
End If
Next zae1
End With
End Sub
Sub ZeilenAusblenden()
Dim lngZeile As Long
Dim DatSp As Long
Dim MaxDatenZeile As Long
Dim dblSum As Double, iOffset As Integer
Dim stZeile As Long
' Start Zeile *** ANPASSEN ***
stZeile = 16
' 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
For lngZeile = stZeile To MaxDatenZeile
If Cells(lngZeile, DatSp) 50
dblSum = dblSum + Cells(lngZeile + iOffset, 10)
iOffset = iOffset + 1
Loop
If dblSum = 0 Then Range(Rows(lngZeile), Rows(lngZeile + iOffset)).Hidden = True
End If
lngZeile = lngZeile + iOffset - 1
Next lngZeile
End Sub
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
Next lngZeile
If bGruppeAusblenden = True Then
Rows(ZeileGruppe).Hidden = True
End If
End Sub