Office: (Office 2010) Zufällig eine Zahl auswählen und fixieren

Grüßt euch,
erstmal vorweg: Das ist ein tolles Forum! :D
Ich habe mir hier schon oft für meine Excel Problemchen echt gute Anregungen holen können.
Aber jetzt komme ich einach nicht weiter. Es geht um folgendes.

Wir müssen bei uns in der Firma jeden Tag eine Inventur von einem Teil durchführen. Die Tabelle wird laufend fortgesetzt, damit man auch nach ein paar Monaten noch mal gucken kann was wann gezählt wurde. Wir haben bis jetzt die Möglichkeit uns selbst eine Teilenummer mit einem Dropdown aus einer Liste auszusuchen. Ich hätte aber gerne das Excel eine Teilenummer aussucht.
Die muss dann z.B. in "B4" geschrieben werden, wenn man in "A4" das heutige Datum einsetzt. Das Problem ist, wenn ich einfach mit dem Zufallsbereich eine Teilenummer aus der Liste wähle wird sie wieder verändert wenn ich am nächsten Tag in "A5" das Datum eintrage.

P.S. Die Teilenummern bei uns sind als Text formatiert, weil die meisten mit einer 0 anfangen...

Ich hoffe das war einigermaßen verständlich.
Würde mich freuen wenn mir jemand hier helfen kann.

Grüße,
Hitsch

 

Hallo!

Dann reicht dir vielleicht schon dies?
Formeln durch Festwerte ersetzen

Falls das nicht reichen sollte und du nach einem Makro suchst, welches den Wert aus deiner Liste wählt, dann müsstest du uns zumindest verraten, wo Excel diese Liste finden kann.

 

Hallo,
das ist nicht genau das was ich suche...
Ein Makro wäre auch gut. Wenn es hilft. ;)
Die Liste ist in dem gleichen Arbeitsblatt in Spalte I.

 

Hallo!

Kopiere diesen Code ins Modul des Tabellenblatts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 1 Then
        If IsEmpty(Target) Then
            Target.Offset(0, 1) = ""
        Else
            Target.Offset(0, 1) = Cells(Int((Cells(Rows.Count, 9).End(xlUp) * Rnd) + 1), 9)
        End If
    End If
End Sub

Dieser Code geht von einer Liste aus, die sich in I1:I?? befindet.
Wird nun in einer Zelle in Spalte A ein Wert eingetragen, so erscheint rechts daneben in Spalte B ein zufälliger Wert aus der Liste.
Wird ein Eintrag aus Spalte A gelöscht, so wird auch der dazugehörige Eintrag in Spalte B gelöscht.

 

Hi,
ich bekomme diese Fehlermeldung:

Laufzeitfehler '13'
Typen unverträglich

Schuld ist laut dem Debugger diese Zeile:
Target.Offset(0, 1) = Cells(Int((Cells(Rows.Count, 9).End(xlUp) * Rnd) + 1), 9)

Trotzdem vielen Dank für deine Mühe. :)

Grüße,
Hitsch