title image


Smiley manchmal ist das Archiv wohl doch nicht...
Hi,



...so perfekt! Denn die Lösung wurde nicht mit ins Archiv übernommen :-(

Hier nochmal die Endlösung zum Problem:



Function WortMarkieren(Suchwort As String, Optional Groß As Boolean, Optional Farbe As Boolean)

Dim c As Object

Set c = Cells.Find(Suchwort, LookIn:=xlValues)

    If Not c Is Nothing Then

        firstAddress = c.Address

        Do

            z = Split(c, Suchwort)

            z = UBound(z) + 1

            a = 1

                For n = 1 To z

                    X = InStr(a, c, Suchwort)

                    For i = X To (X + (Len(Suchwort) - 1))

                        With c.Characters(i, 1)

                            If Farbe Then .Font.ColorIndex = 3

                            .Font.Bold = True

                            If Groß Then .Font.Size = 14

                        End With

                    Next

                    a = a + (Len(Suchwort) - 1)

                Next

            Set c = Cells.FindNext(c)

        Loop While Not c Is Nothing And c.Address <> firstAddress

    End If

End Function



Sub aufruf()

X = WortMarkieren("Kleiderschrank", True, True)

End Sub Code eingefügt mit Syntaxhighlighter 1.16


Der Zugvogel
(mIsCHa Reichelt)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: