Nicht verwendete Zahle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Frohes Neues pabro,
wenn du wirklich nur freien Nummern800 und 900 haben willst, folgender Ansatz
Sub FreieNummern() Dim arrVorhanden, arrTemp(1 To 100) As Integer, arrTemp2 Dim lngV As Long, lngT As Long, lngT2 As Long arrVorhanden = Range("D2:D111") For lngT = 1 To 100 arrTemp(lngT) = lngT + 800 Next For lngV = LBound(arrVorhanden) To UBound(arrVorhanden) For lngT = 1 To 100 If arrTemp(lngT) 0 And arrTemp(lngT) = arrVorhanden(lngV, 1) Then arrTemp(lngT) = 0 lngT2 = lngT2 + 1 Exit For End If Next Next ReDim arrTemp2(1 To 100 - lngT2, 1 To 1) lngT2 = 1 For lngT = 1 To 100 If arrTemp(lngT) 0 Then arrTemp2(lngT2, 1) = arrTemp(lngT) lngT2 = lngT2 + 1 End If Next Range("P1") = "Freie Nummern:" Range("P2:P" & lngT2) = arrTemp2 Erase arrVorhanden Erase arrTemp Erase arrTemp2 End Sub

Kommst Du damit klar?
Gruß aus Berlin von
Roland Hochhäuser

Hi,
"viele Wege führen nach Rom" (;-):
Meine Lösung:

	D	E	F	G	H	I	J	K	L	M	N	O	P
1	Genutzt												Frei
2	800												811
3	801												806
4	802												803
5
6	804
7	805
8
9	807
10	808
11	809
12	810
13
14	812
15	813
16	814
17	815
18	816

Formeln der Tabelle

Zelle	Formel
P2	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P3	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P4	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P5	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P6	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P7	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P8	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P9	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P10	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P11	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P12	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P13	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P14	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P15	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P16	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P17	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}
P18	{=KGRÖSSTE((ZÄHLENWENN($D$1:$D$109;ZEILE($800:$900))=0)*ZEILE($800:$900); ZEILE()-1)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß
Uwe
(:o)

Sub freieZahlen() Dim ze As Long, i As Long Range("P:P").ClearContents ze = 1 Range("P1") = "Freie Nummern" For i = 800 To 900 If WorksheetFunction.CountIf(Range("D2:D111"), i) = 0 Then ze = ze + 1 Cells(ze, "P").Value = i End If Next End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread