Søg
Avatar billede german Nybegynder
26. marts 2007 - 22:29 Der er 10 kommentarer og
1 løsning

Flytte data fra lodret til vandret visning

Jeg får indlæst data i et Excel-ark, hvor disse placeres lodret,
som f.eks

224014       
art    Tekst                    Beløb
1    EL-Entreprise            93225
2    Maler-Entreprise    54916,67
3    Gulvspartel Entreprise    0
4    Fuge Entreprise            0
5    Udtorring af byggeri    3750
6    Element Entreprise    0
7    Tomrer Entreprise    94116
224015       
art    Tekst                    Beløb
1    EL-Entreprise            65290
2    Maler-Entreprise    5900
3    Gulvspartel Entreprise    0
4    Fuge Entreprise    0
5    Udtorring af byggeri    0
6    Element Entreprise    0
7    Tomrer Entreprise    51214,52
224016       
art    Tekst                    Beløb
9    EL-Entreprise            49156
10    Maler-Entreprise    53554
11    Gulvspartel Entreprise    0
12    Fuge Entreprise            0
13    Udtorring              0
14    Element            0
15    Tomrer              76623,99

og jeg vil gerne have dem vist på følgende måde:

                224014    224015    224016
Art    Tekst            Beløb      Beløb    Beløb
1    EL-Entreprise    93225      65290    49156
2    Maler-Entreprise 54916,67 5900    53554
3    Gulvspartel      0      0    0
4    Fuge Entreprise    0      0    0
5    Udtorring    3750      0    0
6    Element        0      0    0
7    Tomrer      94116    51214,52 76623,99

Jeg har forsøgt med for - each - next med videre uden succes -
kan nogen hjælpe?
Avatar billede hugodell Nybegynder
26. marts 2007 - 22:44 #1
Hej
Du kunne jo lave 3 kollonner ved siden af, hvor du i den der skal være 224014
skriver =(cellereference). Gør det med alle sammen, så burde det køre.
Hilsen Hugo
Avatar billede german Nybegynder
26. marts 2007 - 22:49 #2
Der kan være mange værdier og altså ikke kun 3, så jeg havde forestillet mig, at man kunne foretage en eller anden for for et loop til at hente og indsætte data - er det muligt?
Avatar billede hugodell Nybegynder
26. marts 2007 - 22:52 #3
Så skal man til at bruge makro eller vba. til at hente ikke tomme celler, og
placere dem vandret.
Avatar billede excelent Ekspert
27. marts 2007 - 11:57 #4
Send evt. filen til pm@madsen.tdcadsl.dk
så kan jeg prøve om der er en løsning
umiddelbart ser det lidt problematisk ud
når art7 Tomrer Enterprise og art 15 Tomrer skal ende
under art 7 Tomrer !!!!
Avatar billede german Nybegynder
28. marts 2007 - 08:05 #5
Tak excellent - filen er sendt - jeg skrev forkert i eksemplet, det er altid samme art og altså ikke både 7 og 15
Avatar billede excelent Ekspert
28. marts 2007 - 20:03 #6
En forløbig kode


Sub Transponer()

Dim rk, nr, t
Sheets("Ark2").Activate
rk = Cells(65000, 1).End(xlUp).Row
nr = 7

For t = 1 To rk
If IsNumeric(Cells(t, 1)) And Cells(t, 1).Value > 99 Then
nr = nr + 1: Cells(1, nr) = Cells(t, 1)
End If

If Cells(t, 1) < 10 Then
Cells(Cells(t, 1) + 2, 6) = Cells(t, 1)
Cells(Cells(t, 1) + 2, 7) = Cells(t, 2)
Cells(Cells(t, 1) + 2, nr) = Cells(t, 3)
End If
Next

End Sub
Avatar billede german Nybegynder
28. marts 2007 - 20:51 #7
Hej Excelent!
Har løst problemet, men du får naturigvis point for din venlige indsats - se nedenstående og læg et svar:

Sub ommoebler()
k = 8
For yx = 1 To 2000 Step 24

Cells(1, k) = Cells(yx, 1).Value

If Cells(1, k) <> 0 Then
Cells(2, k) = Cells(2, 3)
End If
k = k + 1

Next
Call test


End Sub

Sub test()


k = 7
r = 3

For yx = 1 To 100

  For ix = 3 To 24
   
      Cells(r, k + yx) = Cells(ix + t, 3).Value

      r = r + 1
  Next
  t = t + r - 1
  r = 3
 
Next


End Sub
Avatar billede excelent Ekspert
28. marts 2007 - 22:03 #8
ok vi kan evt. dele
Avatar billede german Nybegynder
28. marts 2007 - 22:51 #9
Nej. du har gjort en indsats og får "puljen" - tak for din interesse og hjælp!
Avatar billede german Nybegynder
28. marts 2007 - 22:54 #10
Excelent - sidste bøn om hjælp - er der noget med at man skal lukke spørgsmål og hvis hvordan gør man lige det?
Avatar billede excelent Ekspert
28. marts 2007 - 23:49 #11
er ok nu
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
I går 16:24 Google driller på MS Edge Af ErikHg i Browsere
I går 15:48 søger pris på en bærbar Af dcedata1977 i PC
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
White papers
Flere white papers »