Office: Doppelte Wörter

Hallo! Wissen Sie ob es möglich ist innerhalb
eines Excel-Sheets alle doppelt vorkommenden Wörter bzw. Silben farbig hervorzuheben??
Achtung: Ich meine nicht einen Vergleich der Zellen sonder wirklich der Silben .Bei mir kommen innerhalb von einer Zelle mehrere Worte vor. Dies muss ich aus bestimmten Gründen so einhalten.

z.B. erste Zelle "ein kleines haus"
zweite zelle"acht kleine berge
dritte zelle "bergsee"

also sollten folgende Markierungen auftreten...(in Blockbuckstaben)
"ein KLEINEs haus"
"acht KLEINE BERGe"
"BERGsee"

 

Hallo!

Das ist IMHO wohl nicht möglich.
Vielleicht könnte ein VBA-Spezialist sowas programmieren, aber auch dann bleibt die Frage, woher Excel wissen soll, was eine Silbe ist.
Über die bedingte Formatierung wäre es allerdings möglich, in eine (oder mehrere) bestimmte Zelle(n) eine (oder mehrere) "Such-Silbe(n)" einzutragen, so dass alle Zellen, die diese(n) Begriff(e) enthalten, farbig markiert werden.
Falls das auch eine Option wäre, einfach mal ausprobieren und/oder hier wieder melden.

 

Hallo!

Ich habe jetzt doch nochmal was gebastelt.
Es hat zwar wenig mit SILBEN zu tun (sozusagen gar nichts...), aber es werden zumindest alle Wortteile geprüft, die eine vorgegebene Mindestlänge haben. Je mehr Wörter geprüft werden müssen, desto länger dauert's natürlich leider auch...

Der Code gehört ins Codefenster des Tabellenblatts.

Code:

Sub TeileFärben()
Dim Bereich As Range, Zelle As Range, SuchZelle As Range
Dim i As Integer, j As Integer, MinZeichen As Integer
Dim Teil As String
MinZeichen = InputBox("Bitte die minimale Länge" & _
vbLf & "der Zeichenkette eingeben:")
Set Bereich = Application.InputBox("Bitte den Bereich eingeben" _
& vbLf & "oder den Bereich mit der Maus markieren.", Type:=8)
For Each Zelle In Bereich
For j = MinZeichen To Len(Zelle)
  For i = 1 To Len(Zelle) - j + 1
    Teil = UCase(Mid(Zelle, i, j))
    If InStr(Teil, " ") = 0 Then
      For Each SuchZelle In Bereich
        If Zelle <> SuchZelle And InStr(UCase(SuchZelle), Teil) Then
          With SuchZelle.Characters(InStr(UCase(SuchZelle), Teil), Len(Teil)).Font
            .Bold = True
            .ColorIndex = 3
          End With
          With Zelle.Characters(InStr(UCase(Zelle), Teil), Len(Teil)).Font
            .Bold = True
            .ColorIndex = 3
          End With
        End If
      Next SuchZelle
    End If
  Next i
Next j
Next Zelle
End Sub

Vielleicht trifft das ja in etwa deinen Geschmack.