Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Toggle Button zum Aus-/Einblenden von Zellen

VBA: Toggle Button zum Aus-/Einblenden von Zellen
28.01.2019 18:49:55
Zellen
Hallo zusammen!
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
Und zum ändern der Beschriftung:
Private Sub ToggleButton2_Click()
If ToggleButton1.Caption = "Berechnung anzeigen" Then
ToggleButton1.Caption = "Berechnung nicht anzeigen"
Else
ToggleButton1.Caption = "Berechnung anzeigen"
End If
End Sub
Für einen Tipp wäre ich sehr dankbar!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Toggle Button zum Aus-/Einblenden von Zellen
28.01.2019 19:17:54
Zellen

Private Sub ToggleButton2_Click()
Dim i
For i = 52 To 92
Rows(i).Hidden = False
If Cells(i, 1) = "" Then
Rows(i).Hidden = ToggleButton2.Value
End If
Next
ToggleButton2.Caption = "Berechnung nicht anzeigen"
If ToggleButton2.Value Then ToggleButton2.Caption = "Berechnung anzeigen"
End Sub

Anzeige

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige