Hallo,
gibt es eine Möglichkeit den folgenden Code weiterzuschreiben ohne händisch die jeweilige Zahl anzupassen? Sodass sich dieser selbstständig, wie beim herunterziehen einer Formel über viele Zeilen fortschreibt?
Private Sub Worksheet_Activate()
' W1
If Worksheets("Verteilung").Range("C18").Value = "" Then
Rows(18).Hidden = True
Else
Rows(18).Hidden = False
End If
' Z19
If Worksheets("Verteilung").Range("C19").Value = "" Then
Rows(19).Hidden = True
Else
Rows(19).Hidden = False
End If
End Sub
usw... bis Zeile 117
Vielen Dank !
|