Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Lottozahlen finden und in rot anzeigen

Lottozahlen finden und in rot anzeigen
07.01.2005 10:03:16
Polo
Wir spielen eine Art Lottobingo. Jeder tippt 6 Zahlen und das Spiel wird mit den Lottozahlen (ohne Zusatzzahl) verglichen und geht so lange bis einer 6 Richtige hat. Ich möchte die gezogenen 6 Zahlen auswerten und wenn die Zahlen vorhanden sind in rot einfärben. Die sollen aber auch rot bleiben da das spiel ja über mehrere wochen geht.
https://www.herber.de/bbs/user/15744.xls
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lottozahlen finden und in rot anzeigen
HerbertH
probier das einmal:


Sub färben()
Dim i%, s%, z%, c As Range
Dim ber As Range
Set ber = [c1:h52,k1:p35]
Application.ScreenUpdating = False
 For Each In ber
   For s = 11 To 16
    For z = 40 To 49
     If c = Cells(z, s) Then
       c.Interior.ColorIndex = 3
     End If
   Next
 Next
Next
Application.ScreenUpdating = True
End Sub

     gruß Herbert
Anzeige
AW: Lottozahlen finden und in rot anzeigen
07.01.2005 13:57:33
Polo
Danke war genial. Es ist mir eine große Hilfe gewesen.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige