VBA - Lave liste med tal der står i specifik kolonne

Public Sub FindKonto()
    Dim Data As Variant, Gruppe As Variant, UdData As Variant, X As Integer, I As Integer, V As String
    Data = Range([Ark1].[a2], [Ark1].[a2].End(xlDown))
    Gruppe = Range([Ark1].[N2], [Ark1].Cells([Ark1].[a2].End(xlDown).Row, "N"))
    ReDim UdData(UBound(Data))
    For I = 1 To UBound(Data)
        If IsEmpty(Gruppe(I, 1)) Then    ' der er kun 1 i denne gruppe
            UdData(I) = Data(I, 1)
            Data(I, 1) = Empty
        End If
    Next

    For I = 1 To UBound(Data)
    V = Data(I, 1)
   
        For X = 1 To UBound(Data)

            If Not IsEmpty(Data(I, 1)) Then
                If Gruppe(I, 1) = Gruppe(X, 1) Then
                    UdData(X) = UdData(X) & V & ","
                End If
            End If
        Next X
        Data(I, 1) = Empty
    Next I
[Ark1].[q2].Resize(UBound(UdData), 1) = Application.WorksheetFunction.Transpose(UdData)
End Sub

Hej Kabbak

Nu har jeg testet den i mit system, men kan ikke få den til at virke.

Hvis jeg indsætter den i et alm. modul, kører den koden igennem uden at der sker noget i arket og uden af den melder fejl.

Hvis jeg indsætter den i arkets kodemodul får jeg følgende fejl:
Runtime error '1004'
Application-defined or objekt defined error.

Men den viser mig ikke yderligere, hvor det er gået galt.
Er det fordi jeg mangler  at installere et plugin eller noget.

Mit ark hvor koden kører hedder "TEMP1"
Jeg har forsøgt at rette nanvet i koden, men det kunne jeg ikke få til at virke.

Der manglede den 1. linje, koden skal i et modul

Ark1 skal rettes til det navn der står til venstre for dit kaldte arknavn, hvis du har engelsk version, hedder det "Sheet" og så et tal.
Du kan se det i kodemodulet

Kode:

Option Base 1
Public Sub FindKonto()
    Dim Data As Variant, Gruppe As Variant, UdData As Variant, X As Integer, I As Integer, V As String
    Data = [Ark1].Range([Ark1].[a2], [Ark1].[a2].End(xlDown))
    Gruppe = [Ark1].Range([Ark1].[N2], [Ark1].Cells([Ark1].[a2].End(xlDown).Row, "N"))
    ReDim UdData(UBound(Data))
    For I = 1 To UBound(Data)
        If IsEmpty(Gruppe(I, 1)) Then    ' der er kun 1 i denne gruppe
            UdData(I) = Data(I, 1)
            Data(I, 1) = Empty
        End If
    Next

    For I = 1 To UBound(Data)
    V = Data(I, 1)
   
        For X = 1 To UBound(Data)

            If Not IsEmpty(Data(I, 1)) Then
                If Gruppe(I, 1) = Gruppe(X, 1) Then
                    UdData(X) = UdData(X) & V & ","
                End If
            End If
        Next X
        Data(I, 1) = Empty
    Next I
[Ark1].[q2].Resize(UBound(UdData), 1) = Application.WorksheetFunction.Transpose(UdData)
End Sub

Jeps.
Så gør den lige det den skal.
Denne kode skal nok give mig en nemmere hverdag.
Mange tak for hjælpen.

Vil du give et svar, så jeg kan afgive point.

;-))