Office: (Office 365) Semikolon via VBA in einzelne Zellen separieren

Hallo zusammen,

ich benötige eure Hilfe.

Ich habe eine Zelle mit mehr als 260 Informationen. Die sind durch ein Semikolon getrennt. Bis jetzt habe ich diese über die Funktion "Daten-Text in Spalten" getrennt. Nun möchte ich das Ganze in VBA darstellen, da die Datei auch von anderen genutzt wird. Leider sind hier meine VBA Kenntnisse am Ende und ich benötige Hilfe.
Die Infos kommen in einer Exceldatei. Kann es also nicht über mit dem Weg über CSV öffnen.

Einen kleinen Ausschnitt aus der Datei habe ich in einem Bild festgehalten.


Danke für eure Hilfe
Rainer

 

Hi Rainer,

z.B. so:

Code:

Sub Splitten()
    Dim lngZeile As Long
    Dim arrWerte
    For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If InStr(Cells(lngZeile, 1), ";") > 0 Then
            arrWerte = Split(Cells(lngZeile, 1), ";")
            Cells(lngZeile, 2).Resize(1, UBound(arrWerte) + 1) = arrWerte
        End If
    Next lngZeile
End Sub

oder so:

Code:

Sub Splitten2()
    Dim lngLetzte As Long
    lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(2, 1), Cells(lngLetzte, 1)).TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote
End Sub

---

 

Hallo,

da du Excel365 hast, gibt es dafür eine ganz simple Formel:
in Zelle B2: =TEXTTEILEN(A2;";")
Diese Formel hinunter kopieren, so weit wie du sie benötigst.

 

Zur Info....
Zelle mit über 260 Semikolon separieren in einzelne Zellen | HERBERS Excel Forum