Hallo VBA-Experten,

Ich habe in meinem Word Dokument (Office2003) eine Tabelle mit 4 Spalten von der ich alle Zellen (inhalt Text) der zweiten Spalte miteinander vergleichen will.

Wenn der Text in zwei Zellen gleich ist dann soll eine der beiden Zellen eingefärbt werden.

Habe schon ein Makro geschrieben aber er färbt die eine Zelle leider nicht ein.

Code:

Sub Vergleich()

Dim String1 As String
Dim String2 As String
Dim a As Integer
Dim b As Integer
Dim actdoc As Document
Set actdoc = ActiveDocument

For a = 1 To 500
    String1 = actdoc.Tables(1).Cell(a, 2).Range.Text
    For b = (1 + a) To 500
        String2 = actdoc.Tables(1).Cell(a, 2).Range.Text
        If String1 = Sting2 Then
        actdoc.Tables(1).Cell(a, 2).Shading.BackgroundPatternColor = wdColorBrightGreen
        Else
        End If
    Next b
    Next a
End Sub

Danke für eure Hilfe

Grüße Jo.S