Hallo, Möchte mit VBA aus Buchstabensalat gültige Wörter auslesn.Im Netz gefunden:
Public Sub Check_Spelling_Mistake()
Sheets("Tabelle6").Activate
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Application.CheckSpelling(Word:=Zelle.txt) Then
Zelle.Interior.Color = vbRed
End If
Next Zelle
End Sub
In Tabelle 6 in Spalt 1 und Spalte 3 jeweils 900 ggebastelte Worte. Die Funktion zeigt keine Wirkung. Kann mir jemand helfen? Betriebsystem Windows 10 und Office12
|