Gruppe
Allgemein
Problem
Wie kann ich in einem Zellbereich einen bestimmten Nachnamen ermitteln? Vor- und Nachnamen stehen gemeinsam in einer Zelle. Es muss zwischen Vor- und Nachnamen unterschieden werden.
StandardModule: basMain
Sub NachName()
Dim rng As Range
Dim iCounter As Integer
Dim sName As String
sName = "hansen"
For Each rng In Range("A1:Z1").Cells
If Not IsEmpty(rng) Then
For iCounter = Len(rng.Value) To 1 Step -1
If Mid(rng.Value, iCounter, 1) = " " Then Exit For
Next iCounter
If iCounter = 0 Then
If LCase(rng.Value) = sName Then
rng.Select
Exit Sub
End If
Else
If LCase(Mid(rng.Value, iCounter + 1, _
Len(rng.Value) - iCounter)) = sName Then
rng.Select
Exit Sub
End If
End If
End If
Next rng
End Sub