Hallo,

z.B. so:
=Tabelle1!C1

Musst du natürlich entsprechend anpassen.

Gruß

M.O.

Hallo waldi42..

erst mal eines vorweg:
Ein 'Hallo' am Anfang und ein Gruß am Ende eines Beitrag's wäre sehr höflich!
Das dürfte auch ein Grund sein, warum bislang noch keiner geantwortet hat... vermute ich.


Nun zu Deiner Frage:
Voraussetzung ist ein fertiger Lottoblock auf Tabelle2 von
A1 bis G7 in dem wie im Vordruck alle Zahlen drinstehen.

Mit dem folgenden Code (Makro) werden die Vorgabezahlen auf dem Blatt Tabelle2 im Bereich A1-G7 grün hinterlegt.

Option explicit
Dim i as integer
Dim zeile as integer
Dim zahl as integer

Sub Rueber()
' ------------------- erst die alte Einfärbung löschen -------
  For i = 1 To 7
    For zeile = 1 To 7
      Sheets("Tabelle2").Cells(zeile, i).Interior.ColorIndex = xlNone
    Next zeile
  Next i
' ----------------- Die Zahlen aus Tabelle1 in Zeilen und Spalten zerlegen -----
' -------------------- die Felder A1 bis G7 als Lottoblock ------
  For i = 1 To 6
   zahl = Sheets("Tabelle1").Cells(i, 3)
    zeile = 1
    Do While zahl > 7
      zahl = zahl - 7
      zeile = zeile + 1
    Loop
    Sheets("Tabelle2").Cells(zeile, zahl).Interior.ColorIndex = 4
  Next i
End Sub

Wenn Du nicht weißt, wie der Code einzubinden ist, mußt Du halt noch mal nachfragen.

Gruß
Andreas

Eine herzliche Begrüssung und ein Hallo.
Nochmals vielen Dank von mir für die freundliche Mitteilung von den Support Excel Freunden M.O. und Freund Kauz.
Wäre es noch einmal möglich mit meinen vorhandenen Formeln eine Überprüfung und Änderung vorzunehmen.
z.B. die mit einen Zufallsgenerator auf dem Blatt Tabellen A in C1-C6 werden durch die Funktionstaste F9 immer andere Inhaltswerte ausgegebenen werden, diese sollten dann jedesmal wieder auf dem Blatt Tabelle1 im Bereich A1-G7 mit Wertangabe in den entsprechenden Feldern zugeortnet und angezeigt werden.

Im Blatt Tabelle A -Eingabe- steht in:
C1 = KKleinste(B1:B6,1)
C2-C6 steht =Wenn(KKleinste(B$1:B$6,Zeile()),=C1,C1+1,KKleinste(B$1:B$6,Zeile()))

Im Blatt Tabelle B -Ausgabe- steht in:
A1 =Wenn (A!$C$1:$C$6=1,1,""
A2 =Wenn (A!$C$1:$C$6=2,2,"" usw. bis 49

alles geht nur bedingt so, es werden auch nicht alle 6 Werte wieder gegeben, viele Dank für eine Lösung. MfG Waldi42

Hallo Waldi,

lade doch mal eine Beispieldatei hoch, z.B. hier und poste den entsprechenden Link. Dann kann man sich die Datei mal ansehen und dir wahrscheinlich auch besser helfen.

Gruß

M.O.

Hallo M.O.
ich habe die Excel-Datei bereitgestellt, vielen Dank für deine tolle Idee wie man so etwas machen kann, und hier der Link
http://.upload.npcfighter.de/files/37/8287/Lotto.xls
Gruß
waldi42

Hallo waldi42

ich schlage folgende Änderungen vor:

Auf <Tabelle A> in Spalte D 1-6 Formel: =C1
=C2... usw.

Im Lottokasten die Zellenformeln so abändern:

Für den Kasten mit der EINS:

=WENN(ZÄHLENWENN('Tabelle A'!$D$1:$D$6;1)>0;1;"")

Kasten ZWEI:

=WENN(ZÄHLENWENN('Tabelle A'!$D$1:$D$6;2)>0;2;"")

Probier mal aus...

Gruß
Andreas

Hallo,

die formel von @Kauz, etwas abgewandelt

=WENN(ZÄHLENWENN('Tabelle A'!$C$1:$C$6;(ZEILE()-1)*7+SPALTE())>0;(ZEILE()-1)*7+SPALTE();"")

in alle Zellen

Gruß

Helmut

Hallo...

@Helmut
Es ist doch erstaunlich, wieviele Wege nach Rom führen :-)

Noch ein Vorschlag für die Zufallszahlen:

=GANZZAHL(ZUFALLSZAHL()*49)+1

Damit gibt es gleich ganze Zahlen von 1 bis 49.

Gruß
Andreas