Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallsprüfungen - VBA?

Zufallsprüfungen - VBA?
16.01.2009 18:33:08
Tatjana
Hallo zusammen,
das ist mein erster Beitrag, daher bítte ich Euch um Nachsicht, wenn ich das vielleicht nicht ganz richtig mache. Ich beschreibe mein Problem einfach mal.
In Spalte A befinden sich Vorgangsbegriffe (ab Zeile 2, da Zeile 1 die Überschrift trägt). In den Spalten B und folgende dann die Mitarbeiternamen (jeweils Zeile 1, da ja Überschrift)
Jetzt soll per Zufallsgenerator pro Mitarbeiter ein Begriff ausgewählt werden. In dieser Zeile soll ein "x" stehen.
Die Vorgänge in Spalte A und auch die Mitarbeiteranzahl sind variabel.
Könnt Ihr da helfen?
VG
Tatjana

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufallsprüfungen - VBA?
16.01.2009 18:39:00
Oberschlumpf
Hi Tatjana
Könntest du uns eine ausgefüllte Bsp-Datei zur Verfügung stellen?
Wenn du nicht weißt, wie das geht, dann klick mal auf den nächsten Text:
Hier geht es zum File-Upload
Schön wäre es, wenn in der Datei noch mal genau beschrieben ist, was wann wie wo warum geschehen soll.
Ciao
Thorsten
AW: Zufallsprüfungen - VBA?
16.01.2009 20:28:28
Tatjana
Hallo Robert,
genau so hatte ich es mir gewünscht. :-)
Vielen lieben Dank für Deine Hilfe!
VG
Tatjana
Nein da ist noch der Wurm drin !
16.01.2009 20:35:45
Matthias
Hallo Tatjana
Lies Dir meinen Beitrag an Robert durch.
Mach mal Folgendes
Datei öffnen
Zufallszahl generieren
Notiere Dir die Verteilung
Datei schliessen
wenn Du nun ein 2. mal die Datei öffnest und wieder Zufallszahlen generieren willst
kommen immer die gleichen Zahlen
Da muss Randomize mit eingebaut werden.
siehe mein Posting an Robert
Gruß Matthias
AW: Zufallsprüfungen - VBA?
16.01.2009 20:30:00
Matthias
Hallo Robert
ohne Randomize
erhälst Du aber immer die gleichen Zahlen.
Ist Dir das schon aufgefallen ?

und es kann vorkommen, das alle Mitarbeiter die gleiche Vorgangsart zugewiesen bekommen.
Userbild
In E1 habe ich mal nur eine Kontrolle eingebaut für Zeile 2
hier mal zum testen:
https://www.herber.de/bbs/user/58496.xls

Gruß Matthias
Anzeige
AW: Zufallsprüfungen - VBA?
16.01.2009 20:34:00
robert
hallo matthias,
das kann nicht sein, soeben getestet
die X sind immer woanders.
zur zweiten kritik gebe ich dir recht, aber ohne zu wissen wozu das gut ist
habe ich nicht weiter getestet.
gruß
robert
das war keine Kritik !
16.01.2009 20:38:00
Matthias
Hallo robert
... sondern ein Hinweis.
Gruß Matthias
AW: das war keine Kritik !
16.01.2009 20:39:00
robert
hi,
alles ok :-)
aber gibst du mir mit den X recht?
gruß
robert
Nein, Robert
16.01.2009 20:44:00
Matthias
Hallo
Öffne die Datei
starte einmal das Makro
notiere oder merke dir die Positionen vom "X"
Nun schliesse die Datei wieder ohne zu speichern.

nun das gleiche nochmal:
Öffne die Datei
starte einmal das Makro
und es sind die gleichn Positionen!
Glaubst Du es mir nun?
Gruß Matthias
Anzeige
AW: Nein, Robert
16.01.2009 20:50:00
robert
hi,
also ich versteh nicht, was du meinst.
bei jedem klick auf den button ändern sich die X
tut mir leid
gruß
robert
?
16.01.2009 20:42:00
Tatjana
Hallo Ihr beiden,
habe das jetzt mal probiert und es kommen wohl wirklich die gleichen Zahlen raus. Aber Deine Tabellle, Robert, verstehe ich Dich. Bei Deinem Text kommt IMMERdas gleiche raus. Oder mache ich was falsch?
Was könnte man denn man anders machen? Das rando irgendwas ?
Nochmals danke!
VG
Tatjana
Fehler ....
16.01.2009 20:42:49
Tatjana
Falsch, meinte Deine Tabelle Matthias
Randomize muss hier rein ...
16.01.2009 20:48:00
Matthias
Hallo

Sub Makro3()
Dim lz, lsp, i, x, y, z
lz = Cells(Rows.Count, 1).End(xlUp).Row
lsp = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 2), Cells(lz, lsp)).ClearContents
For z = 2 To lsp 'lsp
Randomize
x = Int((lz * Rnd) + 1)
y = Int((lz * Rnd))
If x


Gruß Matthias

Anzeige
AW: Randomize muss hier rein ...
16.01.2009 20:52:00
robert
hi matthias,
wäre interessant, wie du das mit randomiz löst.
bitte um den code,wenn möglich
danke und gruß
robert
wie soll es ohne Randomization funktionieren ...
16.01.2009 21:32:00
Christian
Hallo Robert,
nichts für ungut, aber ohne dem OS zu sagen, dass es mit einem weiteren Interrupt neue Zufallszahlen generieren soll, wirst du immer nur die schon bekannte Abfolge erhalten.
Matthias hat also recht, das "Randomize" kann aber außerhalb der Schleife erfolgen.
Gruß
Christian
btw: alle Variablen als Variant zu deklarieren ist hier nicht angesagt, 'indention' wäre aber hilfreich...
hast Du denn den Beitrag auch gelesen ?
16.01.2009 21:33:00
Matthias
Hallo
Ich versuche es ein letzte Mal
hier in der Datei verdeutlicht.
https://www.herber.de/bbs/user/58499.xls

und so wären es echte Zufallszahlen und nicht immer die gleichen


Sub Makro3()
Dim lz, lsp, i, x, y, z
lz = Cells(Rows.Count, 1).End(xlUp).Row
lsp = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 2), Cells(lz, lsp)).ClearContents
For z = 2 To lsp 'lsp

Randomize

x = Int((lz * Rnd) + 1)
y = Int((lz * Rnd))
If x



Gruß Matthias
Anzeige
AW: hast Du denn den Beitrag auch gelesen ?
16.01.2009 21:47:12
robert
hi matthias,
es ist mir unerklärlich, aber es passiert- bei mir - nicht das
was du beschreibst. ich schliesse, ich öffne, die X sind immer an anderer stelle.
Tut mir leid... es ist so.
habe aber trotzdem randomize eingebaut !! :-)
danke für die geduld und noch schönen abend
gruß
robert
das kann nicht sein, weil nicht sein darf - (OT)
16.01.2009 22:42:00
Christian
AW: das kann nicht sein, weil nicht sein darf - (OT)
17.01.2009 08:35:00
robert
guten morgen,
wenn ich mit der datei arbeite, habe ich die X zB. auf B5,C3,D8
irgendwann muss ich die datei speichern
somit sind B5,C3,D8 festgeschrieben-gespeichert
wenn ich nun öffne, sind natürlich die X wieder auf B5,c3,D8
wenn ich nun weiterarbeite änder sich die daten,
wenn ich aber schliesse ohne zu speichern,
bleiben die gespeicherten daten immer noch auf B5,C3,D8
was ist daran falsch, bzw. was verstehe ich nicht?
es ist ja nicht gesagt, dass beim öffnen schon eine berechnung erfolgen soll-oder?
gruß
robert
Anzeige
Kuckuck
17.01.2009 16:08:40
Tatjana
Hallo Jungs,
Ihr sollt Euch nicht streiten, sondern mir lieber sagen, was denn nun richtig ist? Bin ein wenig verwirrt (war mein erster Beitrag und dann kommt da so eine Diskussion raus.). :-)
Wäre schön, wenn Ihr das irgendwie schafft, sonst bin ich ja verloren. :-)
Danke!
VG
Tatjana
AW: Kuckuck
17.01.2009 16:36:00
robert
hi,
du hast ja beispieldaten, welche ist denn nun so, wie du willst ?
wenn noch probleme, dann schick deine datei
gruß
robert

299 Forumthreads zu ähnlichen Themen

Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Anzeige
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Datei öffnen und ausblenden (VBA)
David

Folgendes Makro soll einfach nur eine Datei öffnen, die für die aktuelle Tabelle (offen) gebraucht wird und anschließend ausblenden:
Sub auto_open() Workbooks.Open Filename:= _ "X:\Finanz\GP\BV\LE 2008\Zahlen.xls" ActiveWindow.Visible = False End Sub
Komischerweise wird sowohl die hi...
14.08.2008 14:55:00
Thread-ID: 1001877
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
5
3
2
12
16
7
4
4
1
7
2
2
2
1
7
2
14
3
5
2
4
6
3