Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Suchen von Nachnamen in Zeichenfolgen
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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