[Bib]

Hallo, ist es möglich, sich bei Excel die falsch geschriebenen Wörter wie bei Word gleich orange unterstrichen anzeigen zu lassen?

Ich habe nur die Möglichkeit der manuellen Rechtschreibprüfung gefunden.

bei Excel 2000 + 2003

[DPXone]

Hallo

also eine Funktion hierfür gibt es leider nicht.
Hab hier mal schnell ein Makro erstellt, welches aber leider nicht ganz genau deinen Anforderungen entspricht.
Man kann in Excel m.W. nach keine gezackte orangene Unterstreichung machen.Nur gerade Linie und das komplette Wort orange (was aber mit gedruckt werden würde).


Das Makro hier markiert die Wörter, die nicht im Wörterbuch stehen, mit einer doppelten Unterstreichung.
Einen anderen Weg seh ich leider nicht. Zum Drucken ist es leider nicht geeignet. Man könnte höchstens noch ein Makro schreiben, um die doppelten Unterstreichungen vor dem Drucken zurückzusetzen.


Den Makro-Code im VBA-Editor (In Excel die Tastenkombination: [ALT] + [F11] drücken) in die entsprechende Tabelle links im Projekt Explorer einfügen. z. B. in "Tabelle 1".

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
	Dim Wert, Werte, FalseWörter(1 To 1000), i As Long, j As Long
	
	Werte = Split(Target.Value)
	
	For Each Wert In Werte
			With Target.Characters(InStr(Target, Wert), Len(Wert)).Font
				If .Underline = xlUnderlineStyleDouble Then .Underline = xlNone
			End With
	Next
	
	For Each Wert In Werte
		If Application.CheckSpelling(Wert) = False Then
			i = i + 1
			FalseWörter(i) = Wert
		End If
	Next
	
	For j = 1 To i
		Target.Characters(InStr(Target, FalseWörter(j)), Len(FalseWörter(j))).Font.Underline = xlUnderlineStyleDouble
	Next

End Sub