code vereinfachen
06.09.2023 09:49:47
print
Sub ausblenden()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Angebot")
With sh
'Zelle A19 kein Wert ausblenden
If .Range("A19").Value = "" Then
.Rows("19").EntireRow.Hidden = True
End If
'Zelle A20 kein Wert ausblenden
If .Range("A20").Value = "" Then
.Rows("20").EntireRow.Hidden = True
End If
'Zelle A21 kein Wert ausblenden
If .Range("A21").Value = "" Then
.Rows("21").EntireRow.Hidden = True
End If
End With
Set sh = Nothing
'alle zeilen einblenden
ActiveSheet.Rows.Hidden = False
End Sub