Konvertering af tekststreng til rækker

Jeg har lige lidt bonus info :
Ikke alle rækker i Excel arket er ens, så man det kunne se sådan her ud :
test1    192.168.135.1  b2 bc e3 4a,dlfi382k,sj031ke,294kfs03
test2    192.168.135.2 
test3    192.168.135.3  1564kfa12

/Jan

Bonus info?
Men det hjalp dog efter min mening ikke til at tydeliggøre opgaven.

I hvilke celler har du den tekst der skal opdeles.
I hvilke celler skal resultatet vises.
Er strukturen altid den samme for såvidt angår de "tal" der står først.
Alt der der står efter "tallene" skal det opdeles efter hvor der er komma, og hvis ikke, hvad er så kriteriet for opdelingen.

Det er uklart, hvad det er du vil. For eksempel, hvor kommer de
"1564kfa12" du nævner under test3 i post #1? Og under test2, hvordan skal man her kunne vide, at der ikke skal stå noget efter "tallet"?

Det kan godt være at det ikke fremgik af posten hvad celle referancen var, beklager, det tog jeg for givet.
  A        B              C
1 test1    192.168.135.1  b2 bc e3 4a,dlfi382k,sj031ke,294kfs03
2 test2    192.168.135.2 
3 test3    192.168.135.3  1564kfa12

Forventet output er:
  A        B              C
1 test1    192.168.135.1  b2 bc e3 4a
2 test1    192.168.135.1  dlfi382k
3 test1    192.168.135.1  sj031ke
4 test1    192.168.135.1  294kfs03
5 test2    192.168.135.2
6 test3    192.168.135.3  1564kfa12
osv.

Hvad der står i kolonne C er trukket ud fra et andet system og er én tekststreng adskilt af komma. Hvor det data er fremkommet, er ikke relevant for løsningen.
Jeg er sikker på at der ikke står noget i det tomme felt C2.
Kolonne A & B er begge ligeledes tekststrenge.

Jeg trækker mig. Måske der er en VBA-ekspert der kan hjælpe.
Hans

prøv denne, marker data først, den skriver i C og D kolonnen.

Public Sub udflet()
    Dim C As Range, Dat As Variant, R As Integer, I As Integer, X As Long
    X = 2
    For Each C In Selection
        R = InStr(1, C, " ")
        Dat = Split(Left(C, R - 1) & Replace(Mid(C, R, 1), " ", ",") & Right(C, Len(C) - R), ",") ' splitter ved komma
        For I = 1 To UBound(Dat)
            Cells(X, 3) = Dat(0) 'skriver ip nummer i kolonne 3 = C
            Cells(X, 4) = Dat(I) ' skriver det andet i en sløjfe i kolonne 4 = D
            X = X + 1 ' holder øje med rækken
        Next
    Next
End Sub

ser med... finb

Hej Jabbak

Tak for koden!!

Kan nogenlunde læse og forstå koden, men når jeg kører makroen får jeg en "Invalid procedure call og argument" og her er jeg så lidt på glat is. Jeg har kørt makroen med F8 (debug/step) og det ser ud til at være når den går ind i "For I = 1 To UBound(Dat)", lige efter jeg har trykket F8 på den foregående linie, at fejlen kommer.

Ok, det må være hvor der kun står et IP nummer, denne skulde fange det.

Public Sub udflet()
    Dim C As Range, Dat As Variant, R As Integer, I As Integer, X As Long
    X = 2
    For Each C In Selection
        R = InStr(1, C, " ")
        If R > 0 Then
        Dat = Split(Left(C, R - 1) & Replace(Mid(C, R, 1), " ", ",") & Right(C, Len(C) - R), ",") ' splitter ved komma
        For I = 1 To UBound(Dat)
            Cells(X, 3) = Dat(0) 'skriver ip nummer i kolonne 3 = C
            Cells(X, 4) = Dat(I) ' skriver det andet i en sløjfe i kolonne 4 = D
            X = X + 1 ' holder øje med rækken
        Next
        Else
        Cells(X, 3) = C.Value
        X = X + 1
        End If
    Next
End Sub

sæt lige den ind aller øverst i modulet, uden for alle sub's

Option Base 1

Option Base 1
Gør at alle array variabler starter ved 1 i stedet for ved 0

se bort fra Option Base 1, det skal ikke bruges