Hallo miteinander,
EntireRow funktioniert nicht, wie krieg ich die Zeile ausgeblendet?
Transl = Cells(z, 2)
Select Case Transl
Case Is = "D"
EntireRow.Hidden = True
End Select
z = z + 1
Loop

Danke
Winfried