Office: Zeilen ein/ausblenden mit Checkbox

Helfe beim Thema Zeilen ein/ausblenden mit Checkbox in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Tag, in einem Excel sollen je nach aktivierter Checkbox die Zeilen mit bestimmten Inhalten ein- bzw. ausgeblendet werden. Die Abkürzungen stehen... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von juliagmx, 9. Januar 2023.

  1. juliagmx Neuer User

    Zeilen ein/ausblenden mit Checkbox


    Guten Tag,

    in einem Excel sollen je nach aktivierter Checkbox die Zeilen mit bestimmten Inhalten ein- bzw. ausgeblendet werden. Die Abkürzungen stehen für Niederlassungen / Bereiche. Für alle außer für "GRF", "G22" und "Tankstelle" jedoch nicht? Vielleicht hat jemand hierzu eine Lösungsidee - Danke!

    Private Sub CheckBox1_Click()
    Dim i As Long

    If CheckBox1 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "WDS" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "WDS" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub

    Private Sub CheckBox12_Click()
    Dim i As Long

    If CheckBox12 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "P1" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "P1" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox13_Click()
    Dim i As Long

    If CheckBox10 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "Tankstelle" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "Tankstelle" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox15_Click()
    Dim i As Long

    If CheckBox10 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "G22" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "G22" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox2_Click()
    Dim i As Long

    If CheckBox2 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "SBG" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "SBG" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox4_Click()
    Dim i As Long

    If CheckBox4 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "LPD" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "LPD" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox5_Click()

    Dim i As Long

    If CheckBox5 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "W71" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "W71" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox6_Click()
    Dim i As Long

    If CheckBox6 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "G16" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "G16" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox7_Click()
    Dim i As Long

    If CheckBox7 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "W51" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "W51" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox8_Click()
    Dim i As Long

    If CheckBox8 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "P2" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "P2" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox9_Click()
    Dim i As Long

    If CheckBox9 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "W83" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "W83" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox10_Click()
    Dim i As Long

    If CheckBox10 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "W66" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, 1).Value = "W66" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub
    Private Sub CheckBox11_Click()
    Dim i As Long

    If CheckBox10 = True Then
    For i = 11 To 200
    If Cells(i, 1).Value = "GRF" Then
    Rows(i).Hidden = False
    End If
    Next i
    Else
    For i = 11 To 200
    If Cells(i, l).Value = "GRF" Then
    Rows(i).Hidden = True
    End If
    Next i
    End If
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    End Sub
     
    juliagmx, 9. Januar 2023
    #1
  2. Hendrik Neuer User
    Moin,

    dazu habe ich eine Verständnisfrage:
    12 Checkboxen, jeweils nur eine gewählt (Radio-Button) oder auch mehrere möglich?

    Gruß Hendrik
     
    Hendrik, 9. Januar 2023
    #2
  3. juliagmx Neuer User
    Es sind mehrere möglich (die Excel enthält Bescheidauflagen im Überblick: welche sind notwendig, wann erfolgte die letzte Überprüfung, berechnet die nächsten Fälligkeitstermine für mehrere Niederlassungen / Anlagen)
    Meine Aufgabe war es eben die Excel um "GRF", "G22" und "Tankstelle" zu ergänzen, was eben leider nicht funktioniert...?
    (Die "normale" Filterfunktion ist mir bekannt, mein Vorgesetzter möchte aber gerne weiterhin die Checkboxen haben...)
     
    juliagmx, 9. Januar 2023
    #3
  4. HKindler
    HKindler hat Ahnung

    Zeilen ein/ausblenden mit Checkbox

    Hi,

    den Sinn des Wunsches lass ich jetzt mal außen vor. Zeilen ein/ausblenden mit Checkbox o_O
    Dir ist schon aufgefallen, dass die Routinen, die funktionieren so aufgebaut sind:
    Code:
    Private Sub CheckBox1_Click()
    Dim i As Long
    If CheckBox1 = True Then
    ...
    Während deine neuen Routinen so lauten
    Code:
    Private Sub CheckBox13_Click()
    Dim i As Long
    If CheckBox10 = True Then
    ...
    Wenn du schon auf einen Klick in Checkbox13 reagierst, solltest du auch diese und nicht Checkbox10 bei der Auswertung berücksichtigen.

    Übrigens könnte man den Code auch einfacher gestalten. Aus
    Code:
    Private Sub CheckBox1_Click()
    Dim i As Long
    If CheckBox1 = True Then
        For i = 11 To 200
            If Cells(i, 1).Value = "WDS" Then
                Rows(i).Hidden = False
            End If
        Next i
    Else
        For i = 11 To 200
            If Cells(i, 1).Value = "WDS" Then
                Rows(i).Hidden = True
            End If
        Next i
    End If
    End Sub
    wird
    Code:
    Private Sub CheckBox1_Click()
    Dim i As Long
    For i = 11 To 200
        If Cells(i, 1).Value = "WDS" Then
            Rows(i).Hidden = Not Checkbox1
        End If
    Next i
    End Sub
     
    HKindler, 9. Januar 2023
    #4
  5. juliagmx Neuer User
    Vielen vielen Dank - vor allem auch für die einfachere Variante!
    Manchmal sieht man wirklich den Wald vor lauter Bäumen nicht mehr!
     
    juliagmx, 9. Januar 2023
    #5
Thema:

Zeilen ein/ausblenden mit Checkbox

Die Seite wird geladen...
  1. Zeilen ein/ausblenden mit Checkbox - Similar Threads - Zeilen ausblenden Checkbox

  2. Zeile ausblenden anhand bestimmter Werte

    in Microsoft Excel Hilfe
    Zeile ausblenden anhand bestimmter Werte: Hallo Community! Ich habe mal wieder ein Excel- bzw. VBA-Problem *:)* Da ich mithilfe von Google leider nicht weitergekommen bin, habe ich mich entschlossen, mich in diesem Forum anzumelden *:)*...
  3. Pivot - einzelne Zeilen ausblenden

    in Microsoft Excel Hilfe
    Pivot - einzelne Zeilen ausblenden: Moin zusammen, ich arbeite aktuell an einer Kontaktliste (bspw.: Name, Telefonnummer, Fax, Adresse in der Reihenfolge). Nun stellt sich mir folgendes Problem: Ich hab Kontakte, die haben keine...
  4. Zeile Ausblenden wenn Bedingung erfüllt ist

    in Microsoft Excel Hilfe
    Zeile Ausblenden wenn Bedingung erfüllt ist: Guten Morgen, ich habe mir schon vieles durchgelesen - finde aber leider nicht das passende für mich. Ich habe auch eine Excel Mappe mit Kundenanfragen. Um die Mappe übersichtlich zu halten...
  5. Zeilen an Bedingung geknüpft ein- oder ausblenden

    in Microsoft Excel Hilfe
    Zeilen an Bedingung geknüpft ein- oder ausblenden: Guten Morgen zusammen, ich bin seit dieser Woche etwas am Verzweifeln.. Ich bin dabei für meine Kollegen eine neue Eingabemaske für ein Prüfprotokoll in Excel zu bauen, bzw. die meines Vorgängers...
  6. Zeilen über Kontrollkästchen und abhängig von Zelleninhalt ausblenden

    in Microsoft Excel Hilfe
    Zeilen über Kontrollkästchen und abhängig von Zelleninhalt ausblenden: Hallo, ich habe eine Liste mit 30 Platzhaltern (=Zeilen 11:41) um Nutzer anzulegen. In Zelle C7 wird mir automatisch die Summe der Nutzer angezeigt, wenn die Nutzernamen in die Zeilen eingetragen...
  7. checkbox, WENN abfrage und Zeilen ausblenden

    in Microsoft Excel Hilfe
    checkbox, WENN abfrage und Zeilen ausblenden: Hallo liebe Leute, seit Tagen lese ich hier asber komme auf keinen grünen zeig. Habe eine xmls Datei mit einigen Tabellen. Im fixierten Bereit (Zeilen 1-5) habe ich einige Dinge die man...
  8. Zeilen, inkl. Checkboxen / Optionsfelder ausblenden

    in Microsoft Excel Hilfe
    Zeilen, inkl. Checkboxen / Optionsfelder ausblenden: Hallo, ich nutze folgenden Code: Code: Private Sub CheckBox1_Click() Select Case CheckBox1.Value Case False Rows("1:4").Hidden = False Case True Rows("1:4").Hidden = True End Select...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden