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
|