Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Die ersten 5 Zeichen nach einem "+" separieren

Gruppe

Vba

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