Office: Zufallszahlen

Excel 2000 Hallo zusammen, für die Reklmationsbearbeitung möchte ich jedem Vorgang in einer Zeile einen neutrale Nummer vergeben. Damit man keine Rückschlüsse auf die Reklamationshäufigkeit ziehen kann, soll diese Nummmer zufällig sein. Hierfür habe ich mir eine Formel mit Ideen aus dem Internet zusammengebastelt. =RUNDEN(ZUFALLSZAHL()*(1995-1121)+1221;0) Das funktioniert soweit prima, wenn ich diese Formel durch kopieren in die nächste Zeile ziehe. Diese Formel hat allerdings eine Haken. Durch die Kopie in die nächste Zeile verändern sich auch die vorher vergebenen Zahlen. Das darf natürlich nicht passieren! Eine einmal vergebene Nummer, darf sich nicht mehr ändern. Hat jemand eine Idee, wie ich das erreichen kann??

 

Hallo,

ZUFALLSZAHL() ist eine volatile Funktion und wird somit immer neu berechnet.
Würde aber auch mit Zelle kopieren>Inhalt einfügen>Werte funktionieren. Dies müsste ich so machen, da ich zu doof für VBA bin!

 

Hallo Silex,

vielen dank für Deine Tip.

Habe ich so verstanden: wenn ich eine 2. Spalte mache und die Zufallszahlen der ersten Spalte in die 2. Spalte kopiere, nur Werte, dann ändern sich diese Zahlen nicht mehr. Stimmt, funktioniert.
Falls ich aber irgendwann weitere Zufallszahlen benötige, muss ich meine o.s. Formel so umschreiben, bzw. ergänzen, dass die bereits vergebenen Zahlen in der 2. Spalte nicht wieder verwendet werden.
Dafür habe ich noch keine Formel. Fällt Dir was ein?

 

Hallo Silex,

ich muss meine vorherige Antwort revidieren.

Wenn ich die Zahlen kopiere und einfüge, erhalte ich neue Zahlen. Im Prinzip egal. Aber diese Zahlen können mehrfach erscheinen, habe ich getestet.
Also keine Lösung.

Gruß

 

Hallo roller,

schau mal hier nach, das wird dir gewiss weiter helfen.

 

Hallo!

Ich fürchte, die Formel von excelformeln.de verliert ihre Wirkung bei Festwerten...
So richtig sicher wird das wohl nur mit VBA funktionieren:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim z As Long
    Cancel = True
    Do
        z = WorksheetFunction.Round(Rnd * (1995 - 1121) + 1221, 0)
    Loop Until WorksheetFunction.CountIf(Range("A:A"), z) = 0 'zu überwachenden Bereich anpassen!
    Target = z
End Sub

Hier wird per Doppelklick eine passende Zufallzahl eingefügt.
Aus Sicherheitsgründen würde ich hier aber noch einen Abfang gegen Endlos-Schleifen einbauen, falls keine Werte mehr möglich sind, da die Liste schon zu lang ist und es keine passenden Zahlen mehr geben kann...

 

Hallo Cpt. Nemo,

wie in meiner oben beschriebenen Antwort, ändern sich die Werte bei Benutzung dieser Formel (Zufallszahl)
Trotzdem Danke!!

Hallo Schatzi,

vielen Dank für den VBA Code.
Da ich aber keine Ahnung von VBA habe, reicht diese Information nicht aus.
Wenn ich das so reinkopiere in VBA, erhalte ich Fehlermeldungen.
Wenn's nicht zuviel Mühe macht, bitte in Einzelschritten. :)

Gruß

 

Hallo!

Mache einen Rechtsklick unten auf deinen Tabellenreiter und wähle "Code Anzeigen".
Den Code kopierst du dann ins Codefenster oben rechts.
Das war's schon.

 

Hallo Schatzi,

es funktioniert, auch keine Zahl doppelt bei 200 Zeilen. DANKE!!

Noch 2 Fragen
1. wenn ich zu einem späteren Zeitpunkt die Zahlen ergänzen möchte, weiß das Programm, welche Zahlen schon vergeben sind?
2. In Deinem VBA sheet hast Du folgendes geschrieben: "zu überwachenden Bereich anpassen!"
Muss ich dafür noch etwas machen??

Gruß

 

Hallo!

1. Ja, das Programm checkt die bereits vorhandenen Zahlen bei jeder neuen Eingabe.
2. Range("A:A")
Damit wird z.B. Spalte A überprüft.
Möchtest du lieber den Bereich B2:B999 überwachen, dann schreibe stattdessen
Range("B2:B999")

 

Allen Beteiligten großen Dank!

Gruß Andi