Zeilen ausblenden wenn Bedingung
12.01.2020 01:32:25
Klaus
im aktiven Tabellenblatt kann die Spalte G nur in jede 2te Zeile zwischen Zeile 159 bis Zeile 207
beschrieben werden (Also, G159, G161, G163, G165, G167.....G207).
Es kann vorkommen, das einige Zellen zw. G159, G161, G163, G165, G167.....G207) nicht beschrieben sind.
Nun möchte ich gern die jeweilige Spalten die NICHT beschrieben sind, mit der jeweils nächsten Zeile ausblenden.
z.B. wenn G159 = "", dann 159:160 ausblenden.
Hier werden leider alle Zeilen ausgeblendet, wenn Spalte G leer ist.
Private Sub Worksheet_Change(ByVal Target As Range)
For a = 159 To 207
For b = 7 To 7
If IsEmpty(Cells(a, b)) Then
' Columns(b).ColumnWidth = 0 ' spalte ausblenden
Rows(a).RowHeight = 0 ' zeile ausblenden
End If
Next
Next
End Sub
Anzeige