Ecxelkalender - Zufall

Question

Ist es möglich in einer Excel-Kalendervorlage -zufalls Teilnehmer- einzubinden.
Es sind 11 Teilnehmer und jeden Tag sollte eine anderer im Kalender stehen.
Wenn möglich an Sonn- und Feiertagen keine Zulosung.
Vielen Dank für eure Hilfe.

Mona

Answer 1

Hallo Mona,

da gibt es verschiedene Möglichkeiten.

Um zu entscheiden, was die beste ist, müsste man aber Deinen Kalender kennen.

Vielleicht kannst Du ihn hochladen, den weitere Erklärungen dazu würden nicht viel nützen, da wahrscheinlich niemand an einem Nachbau interessiert ist.

Gruss
Rainer

Answer 2

Hallo Rainer,

Ich habe noch keinen Kalender. Bräuchte den Kalender von 2011.
Kenn mich leider mit Excel nicht so gut aus.
Es sind 11 Teilnehmer die zufällig ausgewählt werden sollen. Jeden Tag soll ein anderer im Kalender stehen.
Wäre Super wenn du mir helfen könntst.................................

Mona

Answer 3

Hallo Mona,

einen Kalender werde ich Dir nicht erstellen, da es diese schon wie Sand am Meer gibt, Du brauch nur mal zu googeln.

Wenn Du dan einen hast, der Dir gefällt, kannst Du ihn ja zwecks der Zufallseintragungen hochladen.

Gruss
Rainer

Answer 4

Hallo Rainer,

den Kalender hab ich.

nur wie bekomme ich den im Forum hochgeladen????

Danke.............................
?????????

Answer 5

Hallo Mona,

über diesen Link , kannst Du den Kalender ins Netz stellen und mittels der gezeigten Adresse nach hier verlinken.

Gruss
Rainer

Answer 6

Das hat geklappt.

http://www.file-upload.net/download-3008119/2011.xls.html

Answer 7

Hallo Mona,

dieser Kalender bleibt der privaten Nutzungg vorbehalten.
D. h., das VBA-Projekt ist geschützt, somit dürfen keine Veränderungen vorgenommen werden.

Gruss
Rainer

Answer 8

hi all :-)

ein einfacher kalender

a1 das gewuenschte jahr eingeben,dann das makro starten

gruss nighty

Sub Kalender1()
Dim intTage As Integer
Dim rngB As Range
intTage = DateSerial(Range("A1").Value + 1, 1, 0) - DateSerial(Range("A1").Value, 1, 1)
Set rngB = Worksheets("Tabelle1").Range("A2:A" & intTage + 2)
With rngB
.Cells(1).Value = DateSerial(Range("A1").Value, 1, 1)
.Cells(1).AutoFill rngB
.NumberFormat = "dd.mm.yyyy, ddd "
.HorizontalAlignment = xlLeft
End With
End Sub

Answer 9

Hallo Mona,

mit dem Kalender von nighty habe ich Dir ein Besipiel hochgeladen.

Es ist nur eine von vielen Möglichkeiten die Teilnehmer durchzumischen, genau so gut könnte man auch würfeln, aber Zufall bleibt Zufall.

Ich spiele damit manchmal Lotto.


Zufall


schöne Grüße

Paul1

Answer 10

Hallo Paul1,

mit folgender Formel ist keine Hilfsspalte erforderlich

=WAHL(ZUFALLSZAHL()*10+1;"paul";"karl";"peter";"Erika";"Eva";"Gabi";"Michael";"Mizi";"Jacob";"Julius";"Wolfgang")

Gruss
Rainer