Wie kann man eine Zelle oder Zeile mit einem Kontrollkästchen in Excel hervorheben?

Wie im folgenden Screenshot gezeigt, müssen Sie eine Zeile oder Zelle mit einem Kontrollkästchen hervorheben. Wenn ein Kontrollkästchen aktiviert ist, wird automatisch eine bestimmte Zeile oder Zelle hervorgehoben. Aber wie erreicht man das in Excel? Dieser Artikel zeigt Ihnen zwei Methoden, um dies zu erreichen.

Zelle oder Zeile mit Kontrollkästchen mit bedingter Formatierung hervorheben
Zelle oder Zeile mit Kontrollkästchen mit VBA-Code hervorheben

Zelle oder Zeile mit Kontrollkästchen mit bedingter Formatierung hervorheben

Sie können eine Regel für bedingte Formatierung erstellen, um eine Zelle oder Zeile mit einem Kontrollkästchen in Excel hervorzuheben. Bitte gehen Sie wie folgt vor.

SCHRITT EINS: Verknüpfen Sie alle Kontrollkästchen mit einer bestimmten Zelle

1. Sie müssen Kontrollkästchen manuell einzeln in Zellen einfügen, indem Sie auf Entwickler > Einfügen > Kontrollkästchen (Formularsteuerelement) klicken.

2. Nun wurden Kontrollkästchen in die Zellen der Spalte I eingefügt. Bitte wählen Sie das erste Kontrollkästchen in I1 aus, geben Sie die Formel =$J1 in die Formelleiste ein und drücken Sie dann die Eingabetaste.

Tipp: Wenn Sie keine Werte in benachbarten Zellen mit den Kontrollkästchen verknüpfen möchten, können Sie das Kontrollkästchen mit einer Zelle eines anderen Arbeitsblatts verknüpfen, z. B. =Sheet3!$E1.

3. Wiederholen Sie Schritt 1, bis alle Kontrollkästchen mit den benachbarten Zellen oder Zellen in einem anderen Arbeitsblatt verknüpft sind.
Hinweis: Alle verknüpften Zellen sollten aufeinanderfolgend sein und sich in derselben Spalte befinden.

SCHRITT ZWEI: Erstellen einer Regel für bedingte Formatierung

Jetzt müssen Sie eine Regel für bedingte Formatierung wie folgt Schritt für Schritt erstellen.

1. Wählen Sie die Zeilen aus, die Sie mit Kontrollkästchen hervorheben möchten, und klicken Sie dann unter der Registerkarte Start auf Bedingte Formatierung > Neue Regel. Siehe Screenshot:

2. Im Dialogfeld Neue Formatierungsregel müssen Sie:

Jetzt ist die Regel für bedingte Formatierung erstellt. Wenn Sie die Kontrollkästchen aktivieren, werden die entsprechenden Zeilen automatisch wie im folgenden Screenshot gezeigt hervorgehoben.

Zelle oder Zeile mit Kontrollkästchen mit VBA-Code hervorheben

Der folgende VBA-Code kann Ihnen auch helfen, eine Zelle oder Zeile mit einem Kontrollkästchen in Excel hervorzuheben. Bitte gehen Sie wie folgt vor.

1. Im Arbeitsblatt, in dem Sie eine Zelle oder Zeile mit einem Kontrollkästchen hervorheben möchten. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Blatts und wählen Sie Code anzeigen aus dem Kontextmenü, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Zeile mit Kontrollkästchen in Excel hervorheben

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng        
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With    
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone                  
        Next        
    End If    
    With xRng    
     .Rows.RowHeight = 16    
    End With   
    xRng.ColumnWidth = 5#    
    xRng.Cells(1, 1).Offset(0, 1).Select    
    For Each xChk In ActiveSheet.CheckBoxes   
      xChk.OnAction = ActiveSheet.Name + ".InsertBgColor"      
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes 
  xName = Right(xChk.Name, Len(xChk.Name) - 10) 
  If (xName = Range(xChk.LinkedCell).Row) Then   
   If (Range(xChk.LinkedCell) = "True") Then   
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6    
   Else    
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone  
   End If  
  End If
Next
End Sub

3. Drücken Sie die F5-Taste, um den Code auszuführen. (Hinweis: Sie sollten den Cursor in den ersten Teil des Codes setzen, um die F5-Taste anzuwenden.) Im erscheinenden Dialogfeld von Kutools für Excel wählen Sie bitte den Bereich aus, in den Sie Kontrollkästchen einfügen möchten, und klicken Sie dann auf die Schaltfläche OK. Hier wähle ich den Bereich I1:I6 aus. Siehe Screenshot:

4. Dann werden Kontrollkästchen in die ausgewählten Zellen eingefügt. Aktivieren Sie eines der Kontrollkästchen, und die entsprechende Zeile wird automatisch wie im folgenden Screenshot gezeigt hervorgehoben.

Verwandte Artikel:

• Wie ändert man einen bestimmten Zellenwert oder eine Farbe, wenn ein Kontrollkästchen in Excel aktiviert ist?
• Wie fügt man einen Datumsstempel in eine Zelle ein, wenn man ein Kontrollkästchen in Excel markiert hat?
• Wie macht man ein Kontrollkästchen basierend auf einem Zellenwert in Excel aktiviert?
• Wie filtert man Daten basierend auf einem Kontrollkästchen in Excel?
• Wie versteckt man ein Kontrollkästchen, wenn eine Zeile in Excel ausgeblendet ist?
• Wie erstellt man eine Dropdown-Liste mit mehreren Kontrollkästchen in Excel?