Data formatering hvordan?

Prøv at gå over i et nyt ark og sæt en celle således:

=Ark1!A1&" "&Ark1!A2 o.s.v

En modificeret version af mugs. I det nye ark i celle a1 indsætter du ark1!a1 i b1 indsættes ark1!a2,... i d1 indsættes ark1!a4, i celle a2 indsættes ark1!a5,... i d2 indsættes ark1!a8. Marker nu de 8 celler a1..d2 og træk i nederste højre hjørne så langt ned at du har alle personer i det nye ark.

Men under "Ark1!A1" skal der jo stå "Ark1!A5". Hvordan laver jeg ikke spring på 4? kan ikke få den til at akseptere +.

Ok collector - Jeg antog at værdierne skulle indsættes i samme celle derfor &" "&, men det skriver brugeren jo ikke noget om :o)

ikke + men  &.

med + adderer du numeriske værdier. Med & sammenstiller du tekststrenge.

Mugs> Vi ved jo ikke om navn og adresse skal stå i samme celle eller ej. Men det er nok mest brugbart hvis de står i hver deres.

Takker mange gange for de hurtige svar. Problemer er nu løst ;-)

collector -> Helt enig
tak for point.

så lidt. takker for den ekstremt hurtige hjælp

Tak for point

Når jeg laver de nedenstående referencer som beskrevet i de to første svar:

A1  A2  A3  A4  A5  A6  A7  A8
A9  A10  A11  A12  A13  A14  A15  A16
A17  A18  A19  A20  A21  A22  A23  A24
A25  A26  A27  A28  A29  A30  A31  A32
A33  A34  A35  A36  A37  A38  A39  A40
A41  A42  A43  A44  A45  A46  A47  A48
A49  A50  A51  A52  A53  A54  A55  A56
A57  A58  A59  A60  A61  A62  A63  A64

og derefter prøver at markere dem og trække dem ned, fortsætter den ikke med:

A65  A66  A67  A68  A69  A70  A71  A72
A73  A74  A75  A76  A77  A78  A79  A80

som jeg ville mene den skulle, men med:

A9  A10  A11  A12  A13  A14  A15  A16
A17  A18  A19  A20  A21  A22  A23  A24

hvad kan være skyld i dette, og hvad kan jeg gøre for at få den til at gøre det rigtigt???

Du har ret, jeg har lige prøvet det i min OpenOffice. Det ser ud til at den ligger 8 til i dit tilfælde fordi du har otte rækker. Det ser ud til at man så er nødt til at trække ned og så slette overflødige rækker. I sandhed ikke særlig smart.

du kan køre denne makro der fikser det automatisk.
Stil dig i 1. celle der indeholder data og kør makroen
Ret selv Brugerdata til inden du kører den.

Sub Transponer()
' Denne makro transponerer en kolonne med data
' til x nye kolonner
' Bemærk at makroen kører så længe der er data i data-kolonnen
Dim iRow As Integer
Dim iColumn As Integer
Dim iCounter As Integer
Dim IColumn2 As Integer
Dim iRecSize As Integer
Dim xArray As Range
Dim shOutput As Worksheet
Application.ScreenUpdating = False

iRow = ActiveCell.Row        'sætter start-rækken for data
iColumn = ActiveCell.Column    'sætter start-kolonnen for data
'************** Brugerdata **************

Set rgOutput = Sheets("Ark2")
iCounter = 1    'sætter indsættelses-række for tranponerede data
IColumn2 = 1    'Vælger indsættelseskolonne
iRecSize = 8    'vælger Recordstørrelse

'*****************************************
    Do Until IsEmpty(Cells(iRow, iColumn)) = True
        Set xArray = Range(Cells(iRow, iColumn), Cells(iRow + iRecSize - 1, iColumn))
       
        With rgOutput
            .Range(.Cells(iCounter, IColumn2), .Cells(iCounter, IColumn2 + iRecSize - 1)) _
                = WorksheetFunction.Transpose(xArray)
        End With
        'sætter inddata-variabel til næste kopiering (7 rækker længere ned)
        iRow = iRow + iRecSize
        'sætter slut-variabel til næste række
        iCounter = iCounter + 1
    Loop
End Sub


en lidt hurtigere version findes også her
http://www.xldennis.com/array(vba).htm