Hallo,

Kan er mij iemand zeggen hoe ik het aantal dezelfde woorden in kolom A kan laten tellen in kolom B ??

Groetjes, en alvast bedankt,
Sofie

Bedankt, ik heb het gevonden.

Toch heb ik nog een vraagje: ik zou graag al de lijnen die er meer dan 1 keer inzitten verwijderen, bestaat er een formule om dit te doen?

Groetjes,
Sofie

Hoi Sofie,

Volgens mij moet onderstaande procedure werken. (Bij mij toch )

Zorg dat je tabel gesorteerd is vooraleer je deze uitvoert.

Sub Verwijder_Dubbele_Records()
    For rijteller = 1 To 65536
        Select Case Range("A" & rijteller).Value
            Case ""
                Exit For
            Case Is = Range("A" & rijteller + 1).Value
                 Range("A" & rijteller).EntireRow.Delete
        End Select
    Next rijteller
   
End Sub

Je zou dit nog kunnen uitbreiden zodat ie zelf eerst gaat sorteren vooraleer de rest wordt uitgevoerd.)

groetjes

PS. Test dit eerst eens uit op een copietje van je werkblad. Je weet maar nooit.

Hoi Sofie,

Sorry, maar nu heb ik verdorie tegen mijn eigen regel gezondigd: "leg altijd alles uit , zodat zelfs een computerleek er iets van verstaat."  

Ik ga het proberen te verduidelijken aan de hand van een voorbeeldje met als mapnaam "test.xls". Zonder voorbeeldje van je werkmap is het zeer moeilijk in te schatten, maar ik wil toch wel eens een poging wagen.
Ik ga ervanuit in mijn procedure dat je wilt rangschikken op kolom A, is dit niet het geval moet je in het scripje de lijnen aanpassen met Range("A" & rijteller) . Je veranderd de A door de letter van de kolom die gesorteerd moet worden.

Start in Excel de werkmap op waar deze procedure moet dienen( test.xls), ga dan naar  Extra>Macro>Visual Basic Editor en in het venstertje linksboven zie je een verkennerachtig venstertje waarin je nu minstens 1 map moet zien staan met de naam test.xls en hieronder voor elk werkblad een eigen tabje met de naam van het blad.
Rechtsklik nu op "VBAProject (test.xls)" en ga naar invoegen>module.
Dubbelklik nu in dat venster op "Module1" zodat je in het rechtse venster( het "Codevenster") de code uit mijn vorige berichtje kunt copieren en hierin plakken.
Let op dat je de VOLLEDIGE tekst met inbegrip van "sub" en "endsub" copieert.

Als alles meezit zou je het nu eens kunnen testen met een copietje van je bestand. (Ik wil het niet op mijn geweten dat je vitale informatie zou kwijtspelen door mijn volledig verkeerde uitleg )
Ga daarvoor terug naar je werkblad, sorteer de tabel, ga naar Extra> Macro> Macro's en dubbelklikop de macro "Verwijder_Dubbele_Records".

Normaal gezien zou alles prima verlopen moeten zijn, is dit niet het geval, of als je dit te hoog gegrepen vindt, dan zouden we het op prijs stellen (als er geen staatsgeheimen in je werkmap staan , als je deze eens als bijlage aan je volgende berichtje zou hangen.
Moest dit voor problemen zorgen, mag je het me altijd opsturen via mail, en zorg ik er wel voor dat het op het forum terecht komt.  

groetjes en.................................succes