Function SplitName(rng As Excel.Range, Optional Nachname As Boolean = False) As Variant
Dim i As Integer
Dim s() As String
s = Split(StrConv(rng.Text, vbUnicode), Chr$(0))
For i = 1 To UBound(s) - 1
Select Case Asc(s(i))
Case 65 To 90
SplitName = IIf(Nachname = False, Mid(rng.Text, 1, i), Mid(rng.Text, i + 1, Len(rng.Text)))
Exit Function
End Select
Next
SplitName = CVErr(xlErrNA)
End Function