Office: VBA - Teilstring auslesen

Guten Morgen zusammen,

es wäre toll, wenn mir jemand auf den richtigen Pfad helfen würde, bei folgendem Problem.
Gesucht wird eine Möglichkeit, den Wert aus einem String an einer bestimmten Position auszulesen.

Das sieht in etwa so aus:

Beispiel:
AAA.BBBB.CC
AAAA.BB.CCCC
A.BBB.CCC

Ich würde gerne alle 3 Teile des Strings, die immer mit einem Punkt getrennt sind, von Spalte A auf B, C & D verteilen.

Also, wie im ersten Beispiel (AAA.BBBB.CC) in
AA BBBB CC (ohne die Punkte auf Spalte B,C & D)

Geht das? Hoffentlich habe ich mich verständlich ausgedrückt?

LG,
Lena

 

Hallo Lena,

mit folgender Fkt.:

Function TxtSplit(Txt As String, Trenn As String, Teil As Long) As String
Dim TEILE As Variant
On Error GoTo Blank
TEILE = Split(Txt, Trenn): TxtSplit = TEILE(Teil - 1)
Exit Function
Blank:
TxtSplit = ""
End Function

Gruß Sigi

 

Hallo Sigi,

sorry, wenn ich so doof frage, aber wie nutze ich das in meinem Beispiel?
=TxtSplit(A1) ?

Gruß,
Lena

 

Habs herausgefunden, das ist ja fantastisch!

=TxtSplit(A1;".";1 (2 oder 3))

Vielen Dank, Sigi!