If Else Schleife
28.07.2019 13:08:33
Moritz
aktuell nutze ich folgenden Code und kopiere diesen für die jeweils auszulesende Zelle, ich habe nun von der Möglichkeit von Schleifen gehört und würde so gerne den Code vereinfachen, wie genau stelle ich das an?
Das ist die Grundformel, nun habe ich aber C18 bis C117, die ich auslesen möchte und dementsprechend in dieser Tabelle dann die entsprechende Zeile ausblenden.
If Worksheets("Verteilung").Range("C18").Value = "" Then
Rows(18).Hidden = True
Else
Rows(18).Hidden = False
End If
End Sub
If Worksheets("Verteilung").Range("C19").Value = "" Then
Rows(19).Hidden = True
Else
Rows(19).Hidden = False
End If
End Sub
Ein erster Versuch:
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 18 To 117
If Worksheets("Verteilung").Cells("i, 3").Value = "" Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next
End Sub
Ich bin über jeden Hinweis dankbar :'D