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
Es wäre sehr nett, wenn mir irgendwer weiterhelfen könnte.Viele Grüße
Zaz