Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen in/aus ein Array verwenden

Zahlen in/aus ein Array verwenden
karl
Hallo Leute,
mit einem Zufallsgeneratormakro ziehe ich Lottozahlen.
Würde jetzt gerne einige Zahlen ...ausklammern.
Mach dies momentan mit einer langen IF Abfrage.
Habe versucht diese Zahlen in ein Array zu schreiben, kriegs aber nicht hin.
Hier die Beispielmappe
https://www.herber.de/bbs/user/81252.xls
Könnte mir hier jemand von euch helfen
Besten Dank
karl

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zahlen in/aus ein Array verwenden
02.08.2012 18:32:49
Uduuh
Hallo,
das Vorhandensein von zuf im Array kanst du per Match-Funktion testen.
if not iserror(application.match(zuf,zahlenraus,0)) then ...
Gruß aus’m Pott
Udo

AW: Zahlen in/aus ein Array verwenden
02.08.2012 19:14:22
karl
Hi Udo,ersteinmal danke
nun bin ich völlig überfordert.
Was ich möchte ist, das diese genannten Zahlen nicht gezogen werden.
Ich bemühe mich durchaus vba zu verstehen/lernen, aber nur häppchenweise.
karl
AW: Zahlen in/aus ein Array verwenden
02.08.2012 19:33:20
Uduuh
Hallo,
mal den relevanten Teil: 
zahlenraus = Array(20, 30, 5, 7, 12, 17, 8, 22, 33)
Randomize
Do While zei  6 Then
zei = zei + 1
Sheets("Lottogenerator").Range("B" & zei, "H" & zei) = arr
za = 0
Sheets("Lottogenerator").Range("B" & zei, "G" & zei).Sort Key1:=Sheets("Lottogenerator"). _
Range("A" & zei), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End If
Loop
Gruß aus’m Pott
Udo

Anzeige
AW: Zahlen in/aus ein Array verwenden
02.08.2012 19:39:46
karl
ja, hab ich eingebaut.
Es werden trotzdem diese Zahlen -20, 30, 5, 7, 12, 17, 8, 22, 33- gezogen.
AW: Zahlen in/aus ein Array verwenden
02.08.2012 19:51:25
Uduuh
Hallo,
mein Fehler. Hab ein NOT zu viel.
Außerdem sollte man das Zahlenarray leeren, wenn es eingetragen wurde. 
zahlenraus = Array(20, 30, 5, 7, 12, 17, 8, 22, 33)
Randomize
Do While zei  6 Then
zei = zei + 1
Sheets("Lottogenerator").Range("B" & zei, "H" & zei) = arr
za = 0
Erase arr
Sheets("Lottogenerator").Range("B" & zei, "G" & zei).Sort Key1:=Sheets("Lottogenerator").  _
_
Range("A" & zei), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End If
Loop

Gruß aus’m Pott
Udo

Anzeige
AW: Zahlen in/aus ein Array verwenden
02.08.2012 20:01:33
karl
Recht herzlichen dank, so stimmts.
Irgendwann (hoffe ich) sehe ich solche Kleinigkeiten wie dieses Not auch mal selbst.
karl

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige