Office: einzelne Zufallszahl in Zelle schreiben

Guten Morgen zusammen,

nachdem ich jetzt einiges in der Suche über Zahlencodes, Zufallszahlen und Passwortgeneratoren gefunden habe, schwirrt mir der Kopf, aber eine Lösung konnte ich nicht finden (ich konnte die Codes nicht nachvollziehen und anpassen)

Ich drucke aus einem Userform nach den Eingaben verschiedene Leistungsbeschreibungen per Knopfdruck aus. Um die Zusammengehörigkeit dieser Ausdrucke nachvollziehen zu können soll eine Zufallszahl, die auf allen Blättern gleich ist eingedruckt werden.

Meine Idee:

Ein VBA Code der nach dem drücken des Druckbuttons erst eine Zufallszahl in eine Zelle schreibt und dann alles ausdruckt.

Ich habe es mit = Zufallszahl() direkt in einer Zelle versucht, aber da beim Drucken noch eine Zelle verändert wird, ändert sich im dritten Blatt auch die Zufallszahl.

Habt ihr eine Lösung für mich ?

Gruß

Olli

:)

 

Hi
setz nach einfuegen der Zufallszahl die Berechnung auf Manuell. Ausdrucken und wieder einschalten
Application.Calculation = xlCalculationManual 'aus
Application.Calculation = xlAutomatic 'ein
gruss hary
muesste funzen

 

Moin,

habe ich versucht, aber die Änderung der Zelle innerhalb des Druckbefehls greift wohl vorher.

 

Hallo
hab ich ueberlesen, das eine zelle waehrend des Druckes geaendert wird.
Und wie sieht es aus wenn Du die zufallszahl als wert uebergibst? bzw. als variable.
Cells(1, 1).Value = Int((100 * Rnd) + 1) ' Zelle anpassen
gruss hary

 

Das ist die Lösung !!!

Nu geit dat !

Ich danke dir für die Hilfe

Gruß

Olli

 

Hi
Gut dat det geit!
Danke fuer die Rueckmeldung.
gruss hary

 

... wenn ich die Datei schliesse und wieder öffne, wird mit der gleichen Zufallszahl gestartet... kann man die nicht an das Datum und die Uhrzeit binden ??

Gruß

Olli

 

Hallo
Fuers oeffnen. Tabellenname und Zelle anpassen.
Code:

gruss hary

 

Hallo Hary,

habe es anders gelöst. Ich übergebe mit dem Druckbefehl das aktuelle Datum mit Uhrzeit in ein Feld, dass als Zahl formatiert ist. Dann bekomme ich eine eindeutige Zahl und brauch die Zufallszahl nicht mehr.

Danke für Deine Hilfe

Olli