Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige