if 6 zellen nebeneinander leer, dann
27.08.2020 14:53:59
Christiane
ich habe ein kleines Problem:
Ich möchte gerne, jeweils eine Zeile ausblenden, wenn in dieser Zeile alle Zellen von B..G leer sind.
So war meine Idee dazu, läuft aber nicht.
Sub ausblenden2()
For i = 38 To 348
If Worksheets("P1").Range(Cells(i, 2), Cells(i, 6)).Value = "" Then
Range(Cells(i, 2), Cells(i, 6)).EntireRow.Hidden = False
End If
Next i
End Sub
--------------------------------------------------------
Wenn ich stattdessen nur eine Zelle in der Zeile anspreche, geht das ohne Probleme.
Sub ausblenden()
For i = 38 To 348
If Worksheets("P1").Cells(i, 2) = "" Then
Range(Cells(i, 2), Cells(i, 6)).EntireRow.Hidden = False
End If
Next i
End Sub
über jede Anregung bin sehr dankbar.
Gruß Christiane