VBA kode til text to column i Excel 2002

Prøv at komme med et relevant udsnit af din kode. Txt to column - er det en sub du har fået skrevet, elelr er det en Excel/VBA funktion?


1) hvad er "beløb" osv. Er det et spørgsmål om, at splitte en string op i 2 strings?

2)eren er sikkert let at rette, når vi ser din kode - sikkert et loop, der løber for langt.

3) Det er også let. hvilke celler skal summeres? Er der lige mange linier hver gang, eller er det f.eks. celle A2-Axx, hvor xx varierer, der skal summeres?

Jeg ved ikke hvilken del, der er relevant. Men jeg kan inkludere hele koden, som er skrevet i VBA?

1) Jeg vil gerne ha' detaljerne til at stå under kolonne-overskrifterne. Som det er nu, kommer hele strengen til at ligge i én kolonne

2) Skal jeg så klippe hele VBA koden ind?

3) Det er fx celle A2-AXX der skal summeres

1) Vi aner jo ikke hvad det er for detaljer du taler om. Er det en tekststring, du skal dele op, så noget står på en celle, noget andet i en anden celle? Hvad skal så stå hvor?

2) Nej, kun det der er relevant, der har med problemet at gøre

3) Hvis xx = fx. 30

    Dim SumRow As Long 'Antal rækker der skal summeres
    SumRow = 30
    Cells(SumRow + 1, 1).Select
    ActiveCell.Value = "=SUM(A1:A" & SumRow & ")"

Hov - jeg summerer fra A1, du vil have fra A2 - det ændrer du bare

Men det kan jo være en smule svært at forklare, når man ikke kan vedhæftede filer til spørgsmålet. Men jo, der er tale om en tekststreng, der skal deles op, så noget står i en celle og noget andet i en anden kolonne.

Denne del af koden laver overskrifterne:

arrHeadings = Array("COUNTRY", "SW MEDIA&PUBS EXT", _
                        "SW MEDIA&PUBS INT", _
                        "NON-SW MEDIA&PUBS EXT", _
                        "NON-SW MEDIA&PUBS INT", _
                        "PCCO/SG&A", "TOTAL COST DKK", "TOTAL COST USD")

Og jeg vil tro, at det er denne del, der bestemmer, hvor data skal stå:

Range("B2:B" & LastRow).TextToColumns Destination:=Range("B2"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(17, 1), Array(33, 1), Array(56, 1), Array(67, 1), _
        Array(83, 1), Array(100, 1), Array(117, 1)), DecimalSeparator:=",", _
        ThousandsSeparator:="."

Problemet er, at data ikke kommer til at stå i kolonnen under overskriften. Jeg har forsøgt at rette i Array, men det hjalp heller ikke.

jeg forstår ikek problemet - jeg er nok for dum :o(
Hvis de ikke kommer til at stå under overskrifterne, hvor kommer de så til at stå?

Hele strengen, som fx kan se sådan ud:

75 RSPROD*382,35*0,00*0,00*0,00*0,00*382,35*62,18

kommer til at stå i kolonne B. Stjerne indikerer, hvor der skulle være adskilt.

brug split-kommandoen - brug * som splittrtegn

Prøv at sende mig din kode samt textfilen, så skal jeg se hvad jeg kan gøre

excel snabela tbdl.dk