Office: (Office 365) In Userform Daten splitten

Hallo Zusammen,

ich wäre um Hilfe sehr dankbar!!!

Ich möchte über die Textbox1 Daten splitten. Mit den Komas funktioniert es ganz gut. Leider gibt es in dem Datensatz noch 2 Bindestriche und daher bekomme ich immer eine Fehlermeldung.
Habe mir zwar schon einige Beispiele rausgesucht, aber ich bekomme es einfach nicht hin.
Die Aufteilung soll dann in den vorgesehenen Labels eingetragen werden.

Der Datensatz sieht folgendermaßen aus und ist ein fester Bestandteil in SAP.

Vorname Nachname, Firma, G-EDJ/PPI-J550, Tel: 123456, Kst: 123456
Der Datensatz soll folgendermaßen aufgeteilt sein:

Teil 1: Vorname und Nachname
Teil 2: Firma
Teil 3: G-EDJ/PPI
Teil 4: J550
Teil 5: Tel:
Teil 6: Kst:

Vielen Dank nochmal im Voraus!
Gruß
Chris

 

Hallo Chris,

eigentlich werden die SAP-Daten bereits beim Import entsprechend aufbereitet, also besteht keine Notwendigkeit, diese im Nachhinein trennen zu wollen.

Wenn du aber einen String mit einem Trennzeichen trennen möchtest, ist das schon so mit Split richtig, aber du mußt natürlich nicht nur prüfen, ob eine Mindestanzahl an Werten vorhanden ist, sondern auch darauf achten, das der Index die max. Anzahl an Werten überschreitet. In deinem Fall gibt es 4 Werte mit dem Indizes 0..3 und damit muss natürlich die Zuweisung "Me.Label6 = Trim(dataArray(4))" einen Fehler generieren, da es "dataArray(4)" nicht mehr gibt.
Abhilfe:
Das dataArray in einer Schleife durchlaufen 0..ubound(dataArray) und dann die Zuweisungen machen.

Wenn du Fragen dazu hast, einfach nochmal melden.

Knobbi38

PS:
Du solltest dir angewöhnen, "sprechende" Bezeichner für deine Steuerelemente zu wählen. Angaben wie Textbox1 oder Label2 erhöhen die Lesbarkeit für Außenstehende nicht gerade.

 

Danke für Deine Antwort.
Wie gesagt, hatte schon ein paar Beispiele gefunden, wo ab Komma und auch bei Bindestrich getrennt wurde.
Soweit mit VBA bin ich leider nicht und bekomme es nach mehreren Versuchen nicht hin. Ist aber kein Problem, dann lass ich mir was anderes einfallen.

Gruß Chris

 

Hola,
warum machst du denn jetzt woanders weiter?
In Userform Daten splitten | HERBERS Excel Forum
Gruß,
steve1da

 

Dachte nicht, dass das ein Problem ist. War der Meinung, dass ich mein Problem nicht gut genug erklärt hatte.
Das ist keine Böswilligkeit.

 

Hallo,

z.B. folgender VBA-Code für das CommandButton3-Click-Ergeignis:

Code:

Private Sub CommandButton3_Click()

    Dim dataArray() As String, wwArr() As String
    Dim rawData As String
  
    ' 1. Daten aus der Eingabe-TextBox holen
    rawData = Me.TextBox1.Value
  
    ' 2. Prüfen, ob Daten vorhanden sind
    If rawData = "" Then
        MsgBox "Bitte Daten eingeben!", vbExclamation
        Exit Sub
    End If
  
    ' 3. Daten splitten (Beispiel: Trennzeichen ist ein Komma ",")
    '    Vorname Nachname, Firma, G-EDJ/PPI-J550, Tel: 123456, Kst: 123456
    '    dataArray    (0),   (1),     (2)       ,      (3)   ,   (4)
    '    wwArr                    (0)- (1) -(2)
    dataArray = Split(rawData, ",")
    wwArr = Split(Trim(dataArray(2)), "-")
  
    ' 4. Gesplittete Daten in die Ziel-TextBoxen schreiben
    ' UBound prüft, ob genügend Teile vorhanden sind, um Fehler zu vermeiden
    If UBound(dataArray) >= 2 Then
        Me.Label2 = Trim(dataArray(0))        ' Vor- und Nachname
        Me.Label3 = Trim(dataArray(1))        ' Company
        Me.Label4 = Trim(wwArr(0) &"-"& wwArr(1)) ' G-EDJ/PPI
        Me.Label5 = Trim(wwArr(2))            ' J550
        Me.Label6 = Trim(dataArray(3))        ' Tel
        Me.Label7 = Trim(dataArray(4))        ' Kst
    Else
        MsgBox "Datenformat ist falsch. Erwartet: Vorname,Nachname,Stadt", vbCritical
    End If
End Sub

 

Super, vielen vielen Dank dafür.
Klappt perfekt!!
Gruß Chris

 

Hallo Chris,

ich hatte eigentlich schon eine VBA Lösung für dich, aber nachdem du bereits in dem anderen Forum eine Lösung erhalten hast und du das Crossposting hier nicht gekennzeichnet hast, bin ich hier raus. Ich arbeite doch nicht in meiner Freizeit für den Papierkorb! Beim nächsten mal werde ich mich dann ganz dezent zurückhalten.

Crossposting | Excel ist sexy!

 

Hallo Knobbi,

es tut mir leid, es war mir so nicht bewusst. Ich wollte das Thema auch schließen, habe aber nichts gefunden, wie ich das machen soll. Entschuldige bitte diese Unannehmlichkeit. Wird nicht mehr vorkommen.

 

Und warum dann noch ein Forumsbeitrag im Clever Excel Forum, anstatt hier nochmal nachzufragen, wenn noch nicht alles rund läuft?

Wieder Crossposting ohne gegenseitige Verlinkung - geht gar nicht!