Thema: Zeichenfolgen vervollständigen

StandardModule: basMain

Function InsertStrings(sTxt As String, bln As Boolean)
   Dim iRow As Integer, sA As String, sB As String
   iRow = 1
   With Worksheets("Tabelle1")
      Do Until IsEmpty(.Cells(iRow, 1))
         If bln Then
            If InStr(.Cells(iRow, 1), sTxt) Then Exit Do
         Else
            If .Cells(iRow, 1) = sTxt Then Exit Do
         End If
         iRow = iRow + 1
      Loop
      If IsEmpty(.Cells(iRow, 1)) Then
         InsertStrings = ""
      Else
         sA = .Cells(iRow, 1)
         Do While InStr(sA, ",")
            sB = sB & "Nummer " & _
               Left(sA, InStr(sA, ",") - 1) & ", "
            sA = Right(sA, Len(sA) - InStr(sA, ","))
         Loop
         sB = sB & "Nummer " & sA
         InsertStrings = sB
         Exit Function
      End If
   End With
End Function

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