voor unieke namen een apart werkblad maken

[franzeman]

Beste VBA-vrienden,

Ik wil uit een kolom met meerdere namen de unieke namen filteren en voor die personen een speciaal voorbewerkt werkblad reserveren en daar die unieke naam aan geven.
Krijg het niet voor elkaar :evil:!

Graag jullie hulp,

Met vr. gr.,
Franzeman

 

[Jan van Asseldonk]

Met onderstaande macro werkt het bij mij.

Sub uniektabblad()
'
' uniektabblad Macro
'

'
    Columns("A:A").Select
    Range("A1:A36").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "H1"), Unique:=True
    For i = 1 To Range("H1").End(xlDown).Row
        Sheets("blad_leeg").Copy After:=Sheets("blad_leeg")
        ActiveSheet.Name = Sheets("namenlijst").Range("H" & i).Value
    Next
End Sub

 

[franzeman]

Met onderstaande macro werkt het bij mij.

Sub uniektabblad()
'
' uniektabblad Macro
'

'
    Columns("A:A").Select
    Range("A1:A36").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "H1"), Unique:=True
    For i = 1 To Range("H1").End(xlDown).Row
        Sheets("blad_leeg").Copy After:=Sheets("blad_leeg")
        ActiveSheet.Name = Sheets("namenlijst").Range("H" & i).Value
    Next
End Sub

Beste Jan,
De code werkt bij mij ook! Dank je wel voor de moeite.
Wat mij vooral aanspreekt is dat je er maar weinig regels code voor nodig hebt. Prima.

Hij blijft bij mij echter nog wel hangen op de laatste regel met de bekende Fout 1004 (Kan de naam van een blad niet wijzigen in de naam van een ander blad...), maar dat vang ik wel af met de Application.DisplayAlerts=False. Er wordt tevens bij bij nog een extra werkblad "blad_leeg(2)" aangemaakt, maar die verwijder ik gewoon.

Ik zal de vraag afmelden.
Nogmaals bedankt en groetjes van

Franzeman