☰

Zeilen, die automatisch aktualisiert werden, nachdem die Umschaltfläche aktiviert wurde

tag-icon • tag-icon microsoft-excel vba
Zeilen, die automatisch aktualisiert werden, nachdem die Umschaltfläche aktiviert wurde

Ich versuche, den Code (unten) so zu gestalten, dass die Zeilen eingeblendet werden, wenn auf die Umschaltfläche geklickt wird. Darin gibt es jedoch einige Zeilen, die entsprechend einer anderen Zelle aktualisiert werden sollten, und bestimmte Zeilen sollten je nach Zellenwert ausgeblendet bleiben. Der Code unten funktioniert, aber die Zeilen werden nicht automatisch aktualisiert, und ich muss auf die Umschaltfläche klicken, um die Zeilen auszublenden und dann wieder einzublenden. Gibt es eine Möglichkeit, ihn dynamisch zu verknüpfen, sodass automatisch aktualisiert wird, welche Zeilen ausgeblendet werden sollen? Vielen Dank

Dim xAddress As String
xAddress = "55:136"
If Progress.Value Then
    Application.ActiveSheet.Rows(xAddress).Hidden = False
    If Range("I24").Value = "Yes" Then
        Rows("92:102").EntireRow.Hidden = False
        Rows("103:110").EntireRow.Hidden = True
    ElseIf Range("I24").Value = "No" Then
        Rows("92:102").EntireRow.Hidden = True
        Rows("103:110").EntireRow.Hidden = False
    End If
Else
    Application.ActiveSheet.Rows(xAddress).Hidden = True
End If

Antwort1

Wenn Progresssich der Umschaltknopf auf Blatt1 zusammen mit allen Bereichen befindet, platzieren Sie ihn im Modul Blatt1

Option Explicit

Private Sub Progress_Click()
    Dim rngI24 As Boolean

    rngI24 = Me.Range("I24").Value2 = "Yes"

    Me.Rows("55:136").Hidden = Me.Progress.Value
    Me.Rows("92:102").Hidden = Not rngI24
    Me.Rows("103:110").Hidden = rngI24
End Sub

verwandte Informationen