[Excel / Access]belegte nummern -> freie anzeigen

[RobTuT]

Dazu müsste ich wissen, wie genau das Excel Sheet aufgebaut ist.
Stehen alle Nummern untereinander in der ersten Spalte?

jo stehen alle unterinander in der ersten spalte

 

[Julian Maicher]

Ok, also ich habe es gerade programmiert und ich muss leider sagen: Excel kann mit soviel Daten nicht umgehen.
Du kannst keine 999999 Zeilen untereinander schreiben. Irgendwann gibt es, zumindest bei mir, einen Überlauf.
Trozdem hier mal der Code. Er funktioniert soweit (kannst die Grenzen start und max ja entsprechend zu Testzwecken ändern. Das Excelsheet habe ich auch mal angehängt.

Sub getFreeNumbers()
    Dim i, j As Integer
    Dim start, ende, number, counter As Long
    
    j = 2
    i = 2
    start = 5000000
    ende = 5999999
    counter = start
    
    Do While Cells(i, 1) <> ""
        number = Cells(i, 1)
        If number <> counter Then
            Do While number <> counter
                Cells(j, 2) = counter
                counter = counter + 1
                j = j + 1
            Loop
        End If
            
        counter = counter + 1
        i = i + 1
    Loop
    
    If counter <> ende Then
        Do While counter <> ende + 1
            Cells(j, 2) = counter
            counter = counter + 1
            j = j + 1
        Loop
    End If
End Sub

 

[RobTuT]

wahnsinn vielen dank ! werd ich am we mal probieren
vielen vielen dank :> du rettest mich *g*