Zeilen ausblenden, wenn ... erfüllt
13.08.2018 13:42:43
zaz
als Info vorab: leider habe ich bisher keine Erfahrungen mit VBA sammeln können. Ich möchte jede Zeile ausblenden, bei der alle Zellen der Zeile von Spalte B bis J nur 0en aufweisen. Diese Zellen beziehen sich auf andere Tabellenblätter. Das heißt nach jeder Änderung der anderen Tabellenblätter muss neu überprüft werden, welche Zeilen ausgeblendet und ggf. auch wieder eingeblendet werden müssen.
Mein Versuch:
Option Explicit
Sub Worksheet_SelectionChange(ByVal Target As Range)
'Zeile
Dim i As Long
'Spalte
Dim j As Long
'Hilfsrechnung
Dim z As Long
z = 0
For i = 6 To 73
For j = 2 To 9
If Cells(i, j) > 0 Then
z = z + 1
Next j
If z = 0 Then
Cells(i, 1).EntireRow.Hidden = True
Else
Cells(i, 1).EntireRow.Hidden = False
End If
z = 0
Next i
End Sub
Viele Grüße
Zaz
Anzeige