Hallo,

ich versuche mit VBA in Word in einer Tabelle jeweils eine Zeile einzufärben, wenn die Checkbox in der Zeile aktiviert wird.

Hierzu definiere ich eine Range Variable mit der Zeile. Es wird jedoch immer nur die Zelle mit der Checkbox eingefärbt. Wenn ich jedoch eine andere Zeile auswähle (eine, in der diese Checkbox nicht ist), dann wird die komplette Zeile eingefärbt.

Ich hoffe ihr könnt mir helfen.

Danke im Vorraus

Daniel

Private Sub CheckBox1_Click()
    Dim myCells As Range
    With ActiveDocument
        Set myCells = ActiveDocument.Range(Start:=ActiveDocument.Tables(2).Cell(2, 0).Range.Start, _
            End:=ActiveDocument.Tables(2).Cell(2, 7).Range.End)
    End With
    If CheckBox1.Value = True Then
            myCells.Shading.BackgroundPatternColor = wdColorBrightGreen
            ActiveDocument.Tables(2).Cell(Row:=2, Column:=6).Range.Text = Format(Now(), "dd.MM.yyyy")
            ActiveDocument.Tables(2).Cell(Row:=2, Column:=7).Range.Text = Format(Now(), "hh:mm:ss")
    Else        
myCells.Shading.BackgroundPatternColorIndex = wdNoHighlight
        ActiveDocument.Tables(2).Cell(Row:=2, Column:=6).Range.Delete
        ActiveDocument.Tables(2).Cell(Row:=2, Column:=7).Range.Delete
    End If
        
End Sub