VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

In eine InputBox eingegebene Daten in Elemente aufteilen

Gruppe

Allgemein

Bereich

Zeichenfolge

Thema

In eine InputBox eingegebene Daten in Elemente aufteilen

Problem

Wie kann ich in eine InputBox eingegebene Daten in Variablen aufteilen? Als Trennzeichen ist ein Semikolon vorgesehen.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub Aufteilen()
   Dim col As New Collection
   Dim iCounter As Integer
   Dim sTxt As String, sPart As String
   sTxt = InputBox( _
      prompt:="Zeichenfolge:" & vbLf & _
      "(Semikoli als Feldtrenner)", _
      Default:="ab;cd;ef;gh")
   Do
      col.Add Left(sTxt, InStr(sTxt, ";") - 1)
      sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
      If InStr(sTxt, ";") = False Then
         col.Add sTxt
         Exit Do
      End If
   Loop
   For iCounter = 1 To col.Count
      MsgBox col(iCounter)
   Next iCounter
End Sub

    


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