Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

Forumthread: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

02.10.2003 18:48:22

Markus

moin..

angenommen in A1:A5 steht Hans, Bernd, Bob, Christian, Arndt

dann möchte ich per buttondruck das DREI von diesen ausgewählt werden! und in B1:B3 geschr. werden(wenn bloß vier namen drin stehen sollten aus den vier drei ausgewählt werden..)

also wenn man nen button drückt sollen per script drei namen ausgewählt werden, in eine versteckte zelle in der der anfangswert 0 ist sich um eins erhöhen.. also wenn man einmal drückt steht dort 1, wenn man zwei mal drückt 2 usw.

und es soll automatisch gespeichert werden...

ist das möglich??

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

02.10.2003 20:18:36

ChrisL

Hi Markus

Siehe Anhang
https://www.herber.de/bbs/user/1263.xls

In Spalte E steht die Formel:
=WENN(A1<>"";ZUFALLSZAHL();"")

Und das Makro schaut wie folgt aus:

Option Explicit


Sub Mischen()
Dim i As Byte, ii As Byte
On Error GoTo ErrorHandler:
Calculate
Application.Calculation = xlCalculationManual
For i = 1 To 3
For ii = 1 To 5
If Application.WorksheetFunction.Rank(Cells(ii, 5), Range("E1:E5")) = i Then
Cells(i, 2) = Cells(ii, 1)
Exit For
End If
Next ii
Next i
Range("C1") = Range("C1") + 1
Application.Calculation = xlCalculationAutomatic
Exit Sub
ErrorHandler:
MsgBox ("Fehler: Vermutlich sind nicht genügend Teilnehmer (min. 3) eingetragen.")
Application.Calculation = xlCalculationAutomatic
End Sub

Gruss
Chris

AW: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

02.10.2003 20:21:32

ChrisL

ja und dann das Speichern noch...

Option Explicit


Sub Mischen()
Dim i As Byte, ii As Byte
On Error GoTo ErrorHandler:
Calculate
Application.Calculation = xlCalculationManual
For i = 1 To 3
For ii = 1 To 5
If Application.WorksheetFunction.Rank(Cells(ii, 5), Range("E1:E5")) = i Then
Cells(i, 2) = Cells(ii, 1)
Exit For
End If
Next ii
Next i
Range("C1") = Range("C1") + 1
Application.Calculation = xlCalculationAutomatic
ThisWorkbook.Save
Exit Sub
ErrorHandler:
MsgBox ("Fehler: Vermutlich sind nicht genügend Teilnehmer (min. 3) eingetragen.")
Application.Calculation = xlCalculationAutomatic
End Sub

AW: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

03.10.2003 20:22:42

Markus

danke... ich werd das testen!

Beliebteste Forumthreads (12 Monate)

Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

Forumthread: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

Forumthread: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread