Office: Text auslesen

Hi,

habe in einer Zelle Text in folgender Form MUSTER Max, Maria MUTTER, Heinz FREUND, usw.

Ich will dass die Zellen ausgelesen werde und die Wörter die komplett großgeschrieben sind in die Nachbarzelle kopiert werde.

Gibt es hierfür eine Funktion?

 

Hallo!

Das wäre mit einer benutzerdefinierten Funktion machbar:

Code:

Function NurGross(Zelle As Range)
Dim Arr, i As Integer
Arr = Split(Zelle, " ")
For i = LBound(Arr) To UBound(Arr)
If Arr(i) = UCase(Arr(i)) Then Exit For
Next i
NurGross = Arr(i)
End Function

Der Aufruf erfolgt dann in der Tabelle über
=nurgross(A1)