Excel export duidelijke weergeven

Question

Hallo

Hoe kan ik op een simpele manier onderstaande data beter weergeven Ik zou graag:

• in de rijen 1 x de persoon tonen (Bv Adriaens) - in plaats van negen keer onder elkaar en in de kolommen dan de verschillende vragen die nu onder 'vraag' staan. Dit is een export die we heel vak doen, maar op een onzinnige manier uit het systeem komt.

De titels zouden er als volgt uitzien:

Naam - Is jouw doel bereikt - evalueer de leeromgeving - motiveer jouw antwoord ...

id	Persoon	Vraag	Antwoord
8737	Adriaens,	Is het doel van deze opleiding bereikt?	9
8738	Adriaens,	Motiveer jouw antwoord
8739	Adriaens,	Evalueer de leeromgeving (licht, lucht, temperatuur,...)	9
8740	Adriaens,	Motiveer jouw antwoord
8741	Adriaens,	Evalueer het verloop zoals het onthaal, de pauzes, het einde,...	9
8742	Adriaens,	Motiveer jouw antwoord
8743	Adriaens,	Evalueer de lesgever(s)	9
8744	Adriaens,	Motiveer jouw antwoord
8745	Adriaens,	Andere opmerkingen
8845	Chakhummum,	Is het doel van deze opleiding bereikt?	9
8846	Chakhummum,  (V)	Motiveer jouw antwoord
8847	Chakhummum,  (V)	Evalueer de leeromgeving (licht, lucht, temperatuur,...)	9
8848	Chakhummum,  (V)	Motiveer jouw antwoord
8849	Chakhummum,  (V)	Evalueer het verloop zoals het onthaal, de pauzes, het einde,...	9
8850	Chakhummum,  (V)	Motiveer jouw antwoord
8851	Chakhummum,  (V)	Evalueer de lesgever(s)	9
8852	Chakhummum,  (V)	Motiveer jouw antwoord
8853	Chakhummum,  (V)	Andere opmerkingen

Answer 1

Hoi Ellen

Ik ben AnnaThomas en ik help je graag met je vraag. In dit forum zijn we Microsoft-consumenten, net als jij.

Ik denk dat je hiervoor een draaitabel moet gebruiken, dit zou je een draaitabel moeten geven die de naam van elke persoon één keer toont, met de vragen horizontaal vermeld in kolommen en de antwoorden in de bijbehorende cellen.

U kunt vervolgens de opmaak zo nodig aanpassen om het gemakkelijker te maken om te lezen en te exporteren.

Ik hoop dat dit helpt ;-), laat het me weten als dit in strijd is met wat je nodig hebt, ik zou nog steeds behulpzaam zijn om meer van je vragen te beantwoorden.

Hartelijke groeten

AnnaThomas

Geef terug aan de gemeenschap. Help de volgende persoon met dit probleem door aan te geven of dit antwoord uw probleem heeft opgelost. Klik onderaan op Ja of Nee.

Deze reactie is automatisch vertaald. Hierdoor bevat het wellicht gramaticale fouten of vreemde zinnen.

Answer 2

Als de gegevens zoals hierboven getoond, in het blad staat met de naam Blad1, dan worden na uitvoering van onderstaande macro de gewenste gegevens weergegeven in een blad met de naam Blad2. Er wordt van uitgegegaan dat die 2 bladen bestaan.

Sub macro1() 

Dim a As Integer, lr1 As Integer, nr As Integer, sh2 As Worksheet 

Set sh2 = Sheets("Blad2") 

a = 0 

sh2.Cells.ClearContents 

For y = 1 To 4 

sh2.Cells(1, y) = Application.Choose(y, "Naam", "Is jouw doel bereikt?", _ 

"Evalueer de leeromgeving", "Motiveer je antwoord") 

sh2.Range("a1:d1").Font.Bold = True 

Next y 

With Sheets("Blad1") 

lr1 = .Cells(.Rows.Count, 1).End(xlUp).Row 

For x = 2 To lr1 

a = Application.CountIf(.Range(.Cells(2, 2), .Cells(x, 2)), .Cells(x, 2)) 

If a = 1 Then 

nr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 1 

sh2.Cells(nr, 1).Value = .Cells(x, 2).Value 

a = 0 

End If 

Next x 

sh2.Columns("A:E").AutoFit 

End With 

End Sub

Answer 3

Ellen,

Als (altijd) bij elk persoon steeds dezelfde vragen staan en in dezelfde volgorde (dat laatste is waarschijnlijk goed geregeld door het Id veld), dan zou je ook met Power Query iets kunnen maken waarmee je, elke keer als de data worden vernieuwd, eenvoudig het gewenste resultaat kunt krijgen.

Jan