lijst doorfilteren met loop in excel?

[Verwijderd]

Ik heb uit een database regels geexporteerd naas Excel. Nu is het de bedoeling om daar een net rapport op te maken middels een soort van template.
Om even toe te lichten wat ik wil heb ik een simpel voorbeeld gebruikt met personen en behaalde cijfers voor toetsen. Waar ik een rapport voor wil maken gaat hier niet over maar het principe is het zelfde.

Ikweet dat zoiets in Pivot tables mogelijk is maar dat wil ik niet. Ik vind deze niet echt bewerkeliijk wanneer een kolom verwijderd moet worden of worden toegevoegd. Ook omdat het zowieso niet als pivot table moet worden uitgeprint maar iets netter.
Daarom wil ik een macro gebruiken maar ik weet nog niet hoe dit moet. Ik denk dat ik de kolommen door moet loopen ofzo...

dit is de "ruwe data"

persoon 1	engels	toets 1
persoon 1	engels	toets 2
persoon 1	engels	toets 3
persoon 1	wisuknde	toets 1
persoon 1	wisunkde	toets 2
persoon 1	frans	toets 1
persoon 1	frans	toets 2
persoon 1	frans	toets 3
persoon 2	engels	toets 2
persoon 2	engels	toets 3
persoon 2	wiskunde	toets 1
persoon 2	wiskunde	toets 2
persoon 2	frans	toets 1
persoon 2	frans	toets 2
persoon 3	engels	toets 1
persoon 3	engels	toets 2
persoon 3	engels	toets 3
persoon 3	wisuknde	toets 1
persoon 3	wisunkde	toets 2
persoon 3	frans	toets 1
persoon 3	frans	toets 2
persoon 3	frans	toets 3

dit moet het worden

persoon 1	engels	toets 1
		toets 2
		toets 3
	wiskunde	toets 1
		toets 2
	frans	toets 1
		toets 2
		toets 3
		toets 2
		toets 1
	wiskunde	toets 1
		toets 2
	frans	toets 1
		toets 2
persoon 3	engels	toets 1
	engels	toets 2
	engels	toets 3
	wisuknde	toets 1
	wisunkde	toets 2
	frans	toets 1
	frans	toets 2
	frans	toets 3

Ik wil de data als het waar dus op dezelde plek hebben, maar dan de overbodige regels niet.

[Verwijderd]

persoon 2 moet er natuurlijk wel tussenin..

Modbreak:

Voor zulke zaken is de edit-knop uitgevonden

[ Voor 47% gewijzigd door gorgi_19 op 15-04-2005 11:41 ]

[gorgi_19]

Je geeft nu een beschrijving wat je wilt hebben en hoe het moet kunnen, maar ik zie geen enkele poging van jouw kant om tot een oplossing te komen Wat heb je zelf geprobeerd, wat lukt er niet, wat zijn eventuele foutmeldingen?

Zie P&W FAQ - De "quickstart"

[ Voor 14% gewijzigd door gorgi_19 op 15-04-2005 11:43 ]

[Verwijderd]

Sub test()
Range("B2").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
While ActiveCell.Address <> "$B$1"
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value And _
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(-1, 1).Value Then
ActiveCell.Offset(0, -1).Value = ""
ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Value = ""
End If
ActiveCell.Offset(-1, 0).Select
Wend
End Sub


Ik heb dit geprobeerd maar hij gaat fout bij

ActiveCell.Offset(1, 0).Select

[Dido]

Je zou misschien met conditional formatting kunen spelen? (Als de waarde gelijk is aan de waarde erboven, textkleur naar wit?)

[Verwijderd]

heb ik gedaan maar de lijsten zijn variabel van lengte...

[Dido]

Erhm... je conditional formatting in A2 goedzetten, de format painter aanklikken en ctrl+a
Als je cellen geformateerd.

Anders pak je alleen de kolommen waar het om gaat.

edit: even geprobeerd, werkt uitstekend... (format painter -> kolommen selecteren)

[ Voor 20% gewijzigd door Dido op 15-04-2005 12:09 ]

[Verwijderd]

wat is de format painter?

[Dido]

Een gele kwast met een blauw handvat. Als ie niet op je toolbar zit moet je hem even toevoegen