1 Frage zu Selectcase

Um in einer For-Next-Schleife in VBA die Zeilen von 11 bis 73 zu durchlaufen und die Zeilenhöhe auf 1 zu setzen, wenn der Wert in Spalte H (Spalte 8) gleich Null ist, kannst du den folgenden Code verwenden. Der Code nutzt eine Select Case-Anweisung, um die Bedingung zu überprüfen: ```vba Sub SetRowHeight() Dim i As Long For i = 11 To 73 Select Case Cells(i, 8).Value Case 0 Rows(i).RowHeight = 1 Case Else ' Hier kannst du andere Fälle behandeln, falls nötig End Select Next i End Sub ``` Dieser Code durchläuft die Zeilen 11 bis 73 und prüft den Wert in Spalte H. Wenn der Wert Null ist, wird die Zeilenhöhe auf 1 gesetzt. Andernfalls passiert nichts.