Ein-/ausblenden von Tabellenzeilen per CheckBox
14.07.2015 10:14:34
Tabellenzeilen
Nachdem mir beim letzten mal schon so hervorragend geholfen wurde, komme ich mit einer neuen Frage zu euch. Ich habe eine Tabelle, welche sich vereinfacht wie folgt darstellen lässt:
Nun ist der Wunsch meines Praktikumsbetreuers, dass mithilfe von Kontrollkästchen sich mehrere "Funktionen" an- und abwählen lassen. Zwei Beispiele:
Wichtig ist, dass mehrere Checkboxen angewählt werden können ohne die Funktion der anderen zurückzusetzen. Für die beiden Beispiele mal meine rudimentären Versuche:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Set CellRange = Range("I5:I188")
For Each Cell In CellRange
If Cell.EntireRow.Hidden = False Then
Cell.EntireRow.Hidden = (Cell.Value = -5000)
End If
Next
Else
Set CellRange = Range("I5:I188")
For Each Cell In CellRange
If (Cell.Value = -5000) Then
Cell.EntireRow.Hidden = False
End If
Next
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Set CellRange = Range("H5:H188")
For Each Cell In CellRange
If (((Cell.Value - Cell.Offset(0, 4).Value) / Cell.Value) = -0.1) And Cell.EntireRow.Hidden = False Then
Cell.EntireRow.Hidden = True
End If
Next
Else
Set CellRange = Range("H5:H188")
For Each Cell In CellRange
If (((Cell.Value - Cell.Offset(0, 4).Value) / Cell.Value) = -0.1) And Cell.EntireRow.Hidden = True Then
Cell.EntireRow.Hidden = False
End If
Next
End If
End Sub
Meine probleme sind nun: Erstens ist der Code nicht sehr elegant und ich suche nach Verbesserungsvorschlägen. Zweitens: Sofern in einer Zeile die Bedingungen für beide CheckBoxen erfüllt sind und beide Checkboxen markiert sind, werden beim entfernen von einem der Haken Zeilen eingeblendet, welche durch die andere CheckBox jedoch ausgeblendet bleiben sollten.
Entschuldigt bitte den langen Text, ich habe versucht präzise zu sein. Und ich erwarte auch nicht zwingend eine vorgekaute Lösung, aber wenn wer Ideen oder Denkanstöße hätte, womit ich mich in diesem Fall am besten was eingehender Beschäftigen sollte, wäre ich sehr dankbar!
Gruß, Jan