Zeilen 3verbunden bei 1 Ausblenden

Sub VerbundeneZeilenMit1Ausblenden()

Dim ws As Worksheet

Dim rng As Range

Dim cell As Range

Dim firstRow As Long, lastRow As Long

Dim colToCheck As Integer

Dim i As Long



' Arbeitsblatt festlegen (hier: Aktives Blatt)

Set ws = ActiveSheet



' Spalte, die auf "1" geprüft werden soll (hier: Spalte A)

colToCheck = 1 ' A=1, B=2 usw.



' Bereich festlegen (hier: verwendet Spalte A bis zur letzten befüllten Zelle)

lastRow = ws.Cells(ws.Rows.Count, colToCheck).End(xlUp).Row

Set rng = ws.Range(ws.Cells(1, colToCheck), ws.Cells(lastRow, colToCheck))



Application.ScreenUpdating = False



For Each cell In rng

' Prüfen, ob die Zelle den Wert "1" enthält

If cell.Value = 1 Then

' Prüfen, ob die Zelle Teil einer verbundenen Zelle ist

If cell.MergeCells Then

' Erste und letzte Zeile der verbundenen Zelle ermitteln

firstRow = cell.MergeArea.Row

lastRow = cell.MergeArea.Row + cell.MergeArea.Rows.Count - 1



' Sicherstellen, dass die verbundene Zelle genau 3 Zeilen umfasst

If cell.MergeArea.Rows.Count = 3 Then

' Die 3 Zeilen ausblenden

ws.Rows(firstRow & ":" & lastRow).Hidden = True

End If

End If

End If

Next

End Sub