VBA: Toggle Button zum Aus-/Einblenden von Zellen
28.01.2019 18:49:55
Zellen
als VBA Anfänger komme ich leider nicht weiter und wäre für einen Tipp sehr dankbar.
Ich möchte gerne Folgendes erreichen:
Wenn ich einen Toggle Button drücke, dann sollen
1) alle Zeilen eines gewissen Bereiches ausgeblendet werden, wenn die erste Zelle der jeweiligen Zeile leer ist und
2) soll der Button dann seine Beschriftung ändern
Wenn ich den Button dann erneut drücke, dann sollen
1) die ausgeblendeten Zeilen wieder eingeblendet werden und die Beschriftung des Buttons erneut geändert werden.
Es gibt dabei zwei Probleme:
Erstens habe ich bereits zwei Code-Teile. Allerdings schaffe ich es nicht, die beiden zusammenzufügen.
Zweitens weiß ich leider nicht, wie ich den Bereich zum Ausblenden der Zellen korrekt definiere (aktuell habe ich dort die Zeilen 52 bis 92 ausgewählt, es sollen aber eigentlich die Zeilen 52-57, 64-67 und 88-92 sein)
Ich habe aktuell folgenden Code zum aus-/einblenden:
Private Sub ToggleButton2_Click()
Application.ScreenUpdating = False
For i = 52 To 92
If Cells(i, 1) = "" Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton1.Caption = "Berechnung anzeigen" Then
ToggleButton1.Caption = "Berechnung nicht anzeigen"
Else
ToggleButton1.Caption = "Berechnung anzeigen"
End If
End Sub
Anzeige