Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolgen vervollständigen

Gruppe

Zeichenfolge

Problem

Der Zahlenstring aus Zelle A2 soll in Tabelle1 gesucht werden. Mit dem 2. Paramter ist anzugeben, ob komplette Übereinstimmung oder nicht (0 = komplett, 1 = nicht komplett)

Lösung
Die gefundenen Zahlen sind jeweils mit dem Stirng "Nummer " zu vervollständig

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