Office: (Office 2007) nächste Freie Zahl finden

s_p_0_0_k_y · 5. März 2007

Hallo zusammen,
ich habe einen bestimmten Bereicht (D5*biggrin.gif*423) in einer Excel-Tabelle der nur mit Zahlen gefüllt ist.

keine Zahl darf doppelt belegt werden darum haben wir die Zahl einfach immer um eins Hochgezählt. Leider ist der Zahlenbereich vorgegeben und wir sind nun am Ende angekommen. Durch wildes hin und her schieben gibt es auch keine Reihenfolge bei den Zahlen. es kann also sein, dass eine solche Reihenfolge besteht:
1,2,3,19,43,7,5,...
Zwischendurch wurden auch einige Zahlen wieder frei, und aus der Liste gelöscht.

Gibt es eine eine Funktion diese nächste freie Zahl in Excel ausgeben zu lassen ??
beim Beispiel: 1,2,3,19,43,7,5 dann also z.B. die 4, da ich diese als nächstes nutzen könnte.

Wie bekomme ich sowas hin?

:)

chris-kaiser · 6. März 2007

hiho

gebe mal folgendes in einer freien Zelle ein

Code:

{=MIN(WENN(ISTFEHLER(VERGLEICH(ZEILE(1:500);KKLEINSTE(D5:D505;ZEILE(1:500));0));ZEILE(1:500)))}
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die {} NICHT eingeben sondern die Formel mit Strg+Umschalt+Enter abschließen!

losgehts · 6. März 2007

Hi Spooky!
Ich habe nur die Idee mit zwei ineinanderverschachtelten Schleifen:
Code:

Sub fehlende_Zahl()
Dim i As Integer
Dim j As Integer
With ActiveSheet 'evtl. sheet anpassen
For i = 1 To 419
For j = 5 To 423
If .Cells(j, 4).Value = i Then Exit For
Next j
If j = 424 Then
If MsgBox("Eine freie Zahl ist " & i, vbOKCancel, "Freie Zahlen") _
= vbCancel Then Exit Sub
End If
Next i
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich freue mich immer über Feedback.
Grüße, Ulrich

losgehts · 6. März 2007

Der Chris, ja der Chris hat einfach super Lösungen *boah

s_p_0_0_k_y · 6. März 2007

\@chris-kaiser

ähm... ich verstehe zwar nicht was ich da getan habe aber es funktioniert...

Was bedeutet denn dieses zeile(1:500) ???

OfficeUser · 7. März 2007

hi @ all
und danke für das Lob

hier noch eine Lösung

wenn du diese Formel eingibst
(wieder ohne {} und mit Strg+Umschalt+enter abschließen)

hast Du eine Liste der nächsten freien Zahlen!

[parsehtml]<table border=3 cellpadding=1><tr><td> </td><td align=center bgcolor=#C0C0C0>B</td><td align=center bgcolor=#C0C0C0>C</td><td align=center bgcolor=#C0C0C0>D</td></tr><tr><td align=center bgcolor=#C0C0C0>2</td><td bgcolor=#FFFF00>nächsten freien</td><td> </td><td> </td></tr><tr><td align=center bgcolor=#C0C0C0>3</td><td>4</td><td> </td><td> </td></tr><tr><td align=center bgcolor=#C0C0C0>4</td><td>7</td><td> </td><td> </td></tr><tr><td align=center bgcolor=#C0C0C0>5</td><td>8</td><td> </td><td>6</td></tr><tr><td align=center bgcolor=#C0C0C0>6</td><td>10</td><td> </td><td>9</td></tr><tr><td align=center bgcolor=#C0C0C0>7</td><td>12</td><td> </td><td>5</td></tr><tr><td align=center bgcolor=#C0C0C0>8</td><td> </td><td> </td><td>1</td></tr><tr><td align=center bgcolor=#C0C0C0>9</td><td> </td><td> </td><td>2</td></tr><tr><td align=center bgcolor=#C0C0C0>10</td><td> </td><td> </td><td>3</td></tr><tr><td align=center bgcolor=#C0C0C0>11</td><td> </td><td> </td><td>11</td></tr><tr><td align=center bgcolor=#C0C0C0>12</td><td> </td><td> </td><td>15</td></tr></td></tr></table>[/parsehtml]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

{=KKLEINSTE((WENN(ISTFEHLER(VERGLEICH(ZEILE(1:600);KKLEINSTE($D$5:$D$605;ZEILE(1 :600));0));ZEILE(1:600)));ZEILE(A1))}

und diese Formel einfach nach unten kopieren

das zeile(1:500) ist nichts anderes als ein Zähler
im obigen Bsp. habe ich 600 genommen müsste auch gehen

s_p_0_0_k_y · 8. März 2007

super...
danke...

Office: (Office 2007) nächste Freie Zahl finden

nächste Freie Zahl finden

nächste Freie Zahl finden

nächste Freie Zahl finden

nächste Freie Zahl finden - Similar Threads - Zahl

Exel Farbige Zahlen addieren

Sonnabende zählen

X in die Zahl 1 Umwandeln

In einer Zelle Zahlen erkennen und trennen

Während der Eingabe überprüfen ob Zahl oder Text

Spalten Sortieren nach Zahlen mit Buchstaben (1a,1b usw)

Inhaltsverzeichnis mit römischen Zahlen und der Rest in arabischen Zahlen