Gruppe
Funktion
Bereich
Vba
Thema
Die ersten 5 Zeichen nach einem + separieren
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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