Automatisk opdatering af listeværdier

Hej,
Jeg går ud fra at din listbox har A:A som dataområde.
Denne makro tager data fra Ark2 kopier disse over i Ark1, for derefter at fjerne dubletter.

Sub mcrDropDownData()
    'Variable
    Dim varData As String
    Dim n As Double
   
    'Kopier data fra Ark2
    Sheets("Ark2").Select
    Columns("A:A").Select
    Selection.Copy
   
    'Indsæt data i Ark1
    Sheets("Ark1").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   
    'Find data område
    Selection.CurrentRegion.Select
    With Range("A1").CurrentRegion 'Find sidste Row
        n = .Rows(.Rows.Count).Row
    End With

    varData = "A1:A" & n
   
    'Fjern dubletter
    ActiveSheet.Range(varData).RemoveDuplicates Columns:=1, Header:=xlNo
    Range("A1").Select
End Sub

Denne makro er udviklet i Excel 2007

Hilsen
Tue Hellstern
www.F1-support.dk

Hej Tue

Benytter desværre ikke Excel 2007.

RemoveDuplicates er ikke indeholdt i tidligere versioner :-(

Jeg har allerede lignende modulkode som markerer og fjerner dubletter, men denne er for tung til at jeg kan indbygge den som en makro der aktiveres automatisk ved åbning :-(

Derfor søger jeg alternativer.

Måske skulle man overveje at overgå til 2007 :-)

Denne funktion i 2007, fjerner den rækkevis, eller udelukkende data i den enkelte kolonne ???

Endte op med en mere oplagt løsning :

Datagrundlag genereres i forvejen i Access og eksporteres til Excell med et automatiseret VBA-modul.

Samme VBA-modul leverer nu tillige de unikke datoer fra datagrundlaget direkte til mit listbox dataområde ...

Hold kæft hvor kan man være total blind :-)

Hej,
Ja nogle gange ligger løsningen lige for men man kan ikke se den :-)

Funktionen fjerner rækkevis, du kan styre om hvilke koloner den skal checke.

Hilsen
Tue Hellstern
www.F1-support.dk

Ok, så er den løsning ikke anerledes end den jeg har i forvejen

Lukker