Gruppe
Funktion
Problem
Wie kann ich die jeweils ersten 5 Zeichen nach einem Plus-Zeichen in einer langen Zeichenfolge in Variablen speichern und dann in ein Tabellenblatt eintragen?
StandardModule: basMain
Sub StringFiltern()
Dim arr(1 To 10)
Dim iCounter As Integer
Dim sTxt As String
For iCounter = 1 To 10
sTxt = Cells(iCounter, 1).Value
If InStr(sTxt, "+") Then
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, "+"))
sTxt = Left(sTxt, 5)
arr(iCounter) = sTxt
End If
Next iCounter
For iCounter = 1 To 10
Cells(iCounter, 2).Value = arr(iCounter)
Next iCounter
End Sub