Hallo zusammen,
vielleicht kann mir einer helfen.Ich bringe mir im Moment selber VBA bei und habe mir eine vermeindlich einfache Aufgabe gestellt, bekomme aber die Fehlermeldung: "Fehler beim Kompilieren - ungültiger Bezeichner".
Ich spiele kein Lotto, möchte aber einemfreund zeigen, dass Lotto die "Steuer der Armen ist". Dafür habe ich mir beim Euro Lotto 6 Spielscheine mit je 8 Feldern mit je 5 Zahlen zzgl. der 2 Gewinnzahlen ausgedacht. Über den 6 Spielscheinen trage ich die Aktuellen Gewinnzahlen in einer Zeile von der betreffenden Woche ein.
Ziel des Makros: Die Zahlen aus den Spielscheinen, die mit den Gewinnzahlen
überienstimmen sollen einfach farblich hervorgehoben werden. Bei Übereinstimmung soll hier die Hintergrundfarbe grün werden. Mehr nicht.
Wo liegt der Fehler? (Hmmm? ich verschachtele For-NextSchleifen mit I-Then-Els-Abfrage - Zulässig???)
Hier der Code:
Sub Lottozahlen()
Dim T(6 To 68, 2 To 6) As Integer, U(2 To 2, 2 To 6) As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer
For k = 2 To 2
For l = 2 To 6
For i = 6 To 68
For j = 2 To 6
If T(i, j).Value = U(k, l).Value Then
T(i, j).Interior.ColorIndex = vbGreen
Else
T(i, j).Interior.ColorIndex = vbWhite
End If
Next j
Next i
Next l
Next k
End Sub
didio Gast |