VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeichenfolgen vervollständigen

Gruppe

UDF

Bereich

Zeichenfolge

Thema

Zeichenfolgen vervollständigen

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

    


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