Zeilen ausblenden mit mehreren Bedingung
21.12.2021 08:31:49
Bastian
ich habe folgende Aufgabenstellung:
In einer Kostenübersicht stehen je Position (Zeile) mehrere Werte (Spalte H bis AJ).
Wenn in den genannten Spalten H bis AJ nur Nullen eingetragen sind, sollen diese Zeilen ausgeblendet werden.
Die Tabelle umfasst über 2500 Zeilen, sodass ich das gerne mit VBA lösen möchte,
Jedoch komme ich nicht weiter und benötige eure Hilfe.
Hier mein VBA Code mit dem ich angefangen habe. Mein Problem ist allerdings, dass ich nicht weiß, wie ich die Schleifen kombinieren muss, damit er jeden Zellinhalt der jeweiligen Zeile überprüft und dann entweder die Zeile ausblendet und in die nächste Zeile springt und da das ganze wieder von vorne macht.
Sub RowHide01()
Dim col, row As Integer
Dim lnglastrow, lnglastcol As Long
lnglastrow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).row
lnglastcol = ActiveSheet.Cells(5, Columns.Count).End(xlToLeft).Column
MsgBox lnglastrow
MsgBox lnglastcol
For col = 8 To 29
col = 8
For row = 5 To lnglastrow
For col = 9 To lnglastcol
If Cells(row, col) 0 Then
row.EntireRow.Hidden = False
End If
Next col
End Sub
VG
Bastian
Anzeige