Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchen von Nachnamen in Zeichenfolgen

Gruppe

Zeichenfolge

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