title image


Smiley Re: Name doppelt ?


Hallo!



So?











Option Explicit





Sub DoppelteEintraegeDerErstenSpalteDerErstenTabelleRotMarkieren()

    

    ' Alle mehrfachen Vorkommen werden rot markiert

    

    Dim a1                      As String   ' ganze erste Spalte der ersten Tabelle

    Dim aCell                   As Cell     ' eine Zelle der ersten Spalte

    Dim strSuchwort             As String   ' Suchwort der Schleife

    Dim intPosErstesVorkommen   As Integer  ' Position erstes Vorkommen

    

    

    ActiveDocument.Tables(1).Columns(1).Select

    a1 = Selection.Range.Text

    

    For Each aCell In ActiveDocument.Tables(1).Columns(1).Cells

        ' Suchwort dieses Schleifendurchgangs

        strSuchwort = aCell.Range.Text

        ' Position des ersten Vorkommens ermitteln

        intPosErstesVorkommen = InStr(1, a1, strSuchwort)

        ' Gibt es ein zweites Vorkommen? (ist die Position ab dem ersten Vorkommen > 0 ?)

        If InStr(intPosErstesVorkommen + Len(strSuchwort), a1, strSuchwort) > 0 Then

            ' Ja:

            ' MsgBox "Doppelt: " & strSuchwort

            aCell.Range.Font.Color = wdColorRed

        End If

    Next

    

    Selection.Collapse wdCollapseStart

    

End Sub





Code eingefügt mit Syntaxhighlighter 2.5





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: