suye hat gesagt.: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
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
suye hat gesagt.:Dazu müsste ich wissen, wie genau das Excel Sheet aufgebaut ist.
Stehen alle Nummern untereinander in der ersten Spalte?
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