Das Archiv des Excel-Forums

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

Bild

Betrifft: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!
von: Markus

Geschrieben am: 02.10.2003 18:48:22

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??
Bild


Betrifft: AW: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!
von: ChrisL
Geschrieben am: 02.10.2003 20:18:36

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


Bild


Betrifft: AW: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!
von: ChrisL
Geschrieben am: 02.10.2003 20:21:32

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



Bild


Betrifft: AW: Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!
von: Markus
Geschrieben am: 03.10.2003 20:22:42

danke... ich werd das testen!


 Bild

Excel-Beispiele zum Thema " Aus 5 Zellen 3 per Random auslesen plus ZÄHLER!!!"

Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Text aus Textbox in Zellen aufteilen download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download
Mehrfachauswahl aus ListBox auslesen download Dateien aus Listbox auslesen und öffnen download
Bereich in RefEdit-Element eingeben und auslesen download Auslesen der Arbeitsmappeneigenschaften download
UserName aus der Windows-Registry auslesen download Eintrag aus der Win.ini auslesen download
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen download Ausgewählte Arbeitsblätter auslesen download
Mehrfachauswahl in ListBox auslesen download Auslesen der Mausposition download
Festplatten-Seriennummer auslesen download Cursorposition in der Entwicklungsumgebung auslesen download
Bedingte Formatierung auslesen download Computername auslesen download
Werte aus Zellbereich in eine Matrix übernehmen und auslesen download Auslesen des ausgewählten Optionsfeldes in einer UserForm download
Datum in Registry eintragen und auslesen download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Werte aus einem nicht zusammenhängendem Bereich auslesen download Zahlenstring mit Formel auslesen und Fehlermeldung verhindern download
Arbeitsmappen- und Tabellenblattnamen auslesen download Aus einer Reihe von 10-minütigen Messungen h-Mittelwerte auslesen download
UserForm-Elemente auslesen download Umgebungsvariable aus der autoexec.bat auslesen download
Gültigkeitsauswahl über VBA auslesen download Namen eines ausgewählten Bereiches auslesen download
Bildschirmauflösung auslesen download Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download
VBE-Komponenten der aktiven Arbeitsmappe auslesen download Positionen einzelner Zeichen in langer Zeichenfolge auslesen download
Rechnungsnummer in Registry eintragen, auslesen, löschen download In Array einlesen, sortieren, auslesen download
Tabellenblattinhalt in seqentielle Textdatei ein- und auslesen download Plattenspeicher auslesen download
Ein- und Auslesen der Seiteneinrichtung / Orientierung download Alle geöffneten Tasks auslesen download
Fußzeile ein- und auslesen download Daten in benutzerdefinierten Datentyp ein- und auslesen download
Daten in zweidimensionales Array ein- und in Tabelle auslesen download Auslesen der aktuellen Mausposition download
Installierte Drucker auslesen download Titel einer HTML-Seite auslesen download
Auslesen von Schnittstellenwerten download Textdateien auslesen und in Werte in Zellen eintragen download
Grafik-Dateinamen aus Zelle auslesen und HTML-Datei erstellen download Aus einem String mit Datumsangabe das Jahr auslesen download
Wert aus Optionsfelder in verschiedenen Frames auslesen download Gefilterte Daten in Array ein und aus Array auslesen download
Aus GetOpenFilename-Dialog eine Mehrfachauswahl auslesen download