Fehlende Werte - VBA-Lösung
02.06.2009 16:01:55
Erich
Hi André,
oben hattest du geschrieben "mehrere Tausend" - jetzt sind es "Zigtausend Zahlen". Kleiner Unterschied!
Probier mal (ich habs jetzt nicht mit zigtausend Zahlen getestet...):
Option Explicit
Sub Fehlende() ' (Basis: unsortierte Liste von Nummern)
Dim lngZ As Long, arrL, arrN() As Long, arrE() As Long, ii As Long, jj As Long
Dim lngM As Long
lngZ = Cells(Rows.Count, 1).End(xlUp).Row - 1 ' 1 Zeile Überschrift
arrL = Application.Transpose(Cells(2, 1).Resize(lngZ))
lngM = Application.Max(arrL)
ReDim arrN(1 To lngM), arrE(1 To lngM)
For ii = 1 To lngZ
arrN(arrL(ii)) = 1
Next ii
For ii = Application.Min(arrL) + 1 To lngM
If arrN(ii) = 0 Then jj = jj + 1: arrE(jj) = ii
Next ii
If jj > 0 Then
ReDim Preserve arrE(1 To jj)
Worksheets.Add
Cells(1, 1).Resize(jj) = Application.Transpose(arrE)
End If
ReDim arrL(0), arrN(0), arrE(0)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort