Lister: Split tal og tekst indsat i samme celle

må vi se et eks. på nr. og tekst

Gerne:

      A                      B          C
120000 Omsætning          (105.000)
120005 Rabatter            25.000
130000 Vareforbrug          70.000

Jeg modtager filen som en csv-fil, når jeg lægger den ind i excel.

Nå, det blev selvfølgelig skævt. Kontonr. og kontotekst er begge i kolonne A og beløb i kolonne B. Kolonne C er tom.

Jeg har brug for at få kontonr. og kontotekst i hver sin celle, dvs. kontonr. i A og teksten i B.

hvis kolonne >> B << er tom så prøv denne -

Sub tst()

rk = ActiveSheet.Cells(65000, 1).End(xlUp).Row
For t = 1 To rk
dele = Cells(t, 1)
tal = Mid(dele, 1, 6)
tekst = Trim(Mid(dele, Len(tal) + 1, Len(dele)))
Cells(t, 1) = tal
Cells(t, 2) = tekst
Next

End Sub

du kan også anvende
Data > Tekst til kolonner > Afgrænset
klik mellemrum som afgrænser

Du kan da sagtens bruge mellemrum som dataadskiller, når du importerer filen

Væld Demilited i stedet for fixed Width, tryk next, og vælg space som delimiter

Hej begge,

Jeg har prøvet begge dele nu - og begge dele virker delvist.

Problemet ved mellemrumsadskilleren er, at den også putter hvert ord i en ny celle. Hvis jeg har flere ord og tekst i samme celle, skubber den altså alle kolonnerne til højre for at skabe plads til alle ordene.

Problemet ved makroen er, at der foran nogle af tallene er mellemrum og det ikke er det samme antal mellemrum. I nogle af talle indgår også et punktum. Eksempel:

  1600      CURRENT ASSETS   
  1650      INVENTORY   
    1660        INVENTORY   
    1660.2        IFO    72.416,13
    1660.3        IFO, OFF-HIRE    1.986,89

Nogle gode idéer?

Tjaa, du kan ændre din inputfil før du importere den.

Det er let gjort med fx. Textpad, hvor du kan lave en macro, der sætter et ; ind efter hvert tal. Herefter importere du med ; som adskiller.

Textpad er gratis.

Du kan prøve at maile txt-filen til mig martin_moth snabela yahoo.com så kan jeg se om det kan lade sig gøre. Hvis det kan, tager det max 10 sek ;o)

Hvis udtræk er i kolonne A og kolonne B er tom
tal skrives i kolonne A og tekst i kolonne B


Sub test()

For t = 1 To Cells(65000, 1).End(xlUp).Row
v = Cells(t, 1)
If v <> "" Then
tal = Val(v)
tekst = Trim(Mid(v, Len(tal) + 1, Len(v)))
Cells(t, 1) = tal
Cells(t, 2) = tekst
End If
Next

End Sub

Excelent, det virker nu - om ikke perfekt, så ihvertfald, så jeg kan bruge det.
Martin, jeg kan desværre ikke udlevere mit materiale, da det er fortroligt. Men tak for tilbuddet :-) Pointene må retfærdigvis gå til excelent, men jeg skal have et svar, før jeg kan tildele dem. Tak for hjælpen, begge.

ok
hvordan skulle den i såfald være ?

Som den ser ud nu, har den blot kopieret tallene ud og sat dem ind i kolonne A. Så nu har jeg kontonr. i kolonne A, og kontonr. og kontotekst i kolonne B. Det vigtigste var dog, at jeg fik kontonr. ud i særskilte celler for at kunne lave v-lookup, og det har jeg nu.