Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge