In diesem Artikel erfahren Sie, wie Sie die Farbe der Zeile mit einem Klick ändern.

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code Visual Basic

img1

aus Geben Sie den folgenden Code in das aktuelle Arbeitsblatt ein (in unserem Beispiel Blatt1)

Private Sub Worksheet_SelectionChange (ByVal-Ziel als Bereich)

Dim rownumber As Integer

rownumber = ActiveCell.Row

Wenn ActiveCell.Value <> „“ Dann

Bereich („A“ & rownumber & „: D“ & rownumber) .Interior.ColorIndex = 6

End If

End Sub

img2

Das SelectionChange-Ereignis wird jedes Mal aktiviert, wenn der Benutzer eine Zelle auswählt und die Farbe von weiß in gelb ändert.

Wenn die aktive Zelle leer ist, wird der Code nicht ausgeführt.

Wenn wir dann auf Zelle B3 klicken, wird die Zeile gelb hervorgehoben. Siehe unten gezeigten Schnappschuss

img3

Hier können Sie sehen, dass die Formelleiste die ausgewählte Zelle anzeigt, d. H. Zelle B3. Wenn wir Zelle A8 auswählen, wird Zeile 8 hervorgehoben. Siehe unten gezeigten Schnappschuss.

img4

Wenn Sie jeweils nur eine Zeile markieren möchten, müssen Sie dem vorherigen Code eine Zeile hinzufügen.

Code hinzugefügt:

Bereich („A1: D13“). Interior.ColorIndex = xlNone

Der Code lautet:

Private Sub Worksheet_SelectionChange (ByVal-Ziel als Bereich)

Dim rownumber As Integer

rownumber = ActiveCell.Row

Wenn ActiveCell.Value <> „“ Dann

Bereich („A1: D13“). Interior.ColorIndex = xlNone

Bereich („A“ & rownumber & „: D“ & rownumber) .Interior.ColorIndex = 6

End If

End Sub

Jetzt wird nur eine Zeile zu einem bestimmten Zeitpunkt hervorgehoben.

Auf diese Weise können Sie die Zeilen mit einem einzigen Klick mithilfe von VBA-Code hervorheben.