zahlen aus excel in wordtabelle farbig einfügen

Sub farbe3()
Dim Farbe(1 To 3, 1 To 1) As Single
Set Word = CreateObject("word.Application")
For i = 1 To 3
Farbe(i, 1) = Worksheets("Tabelle1").Cells(1 + i, 2)
Next
For i = 1 To 3
Cells(i + 9, 2) = Farbe(i, 1)
Next i
Word.documents.Open Filename:="C:\...\Dok1.doc"
Word.Visible = True
Set wordtab = Word.activedocument.tables(1)
For i = 1 To 3
wordtab.cell(i, 1).Select
With Selection.Font
.ColorIndex = 3
Selection.HorizontalAlignment = xlCenter
End With
Word.Selection.Text = Farbe(i, 1)
Next i
End Sub