Excel VBA, WM Tipspiel

[Wexel]

Hallo zusammen,

ich habe im Freundeskreis ein WM Tipspiel ins Leben gerufen.

Wir tippen alle 48 Vorrundenspiel.
Ist das Ergebnis richtig gibt es Punkte, ist die Tendenz, also Sieger bzw. Unentschieden richtig gibts Punkte.

Jetzt habe ich versucht das als Makro zu basteln.
Mit dem richtigen Ergebnis, das klappt.
Mit der Tendenz, bisher nicht.

Kann mir jemand helfen wie ich bei richtiger Tendenz die Zelle färben kann ??

Hier mein Code, anbei die Tabelle

Danke


Sub A()
Sheets("Gesamt").Range("G5").Select
Do
If ActiveCell.Value = ActiveCell.Offset(0, -2).Value And ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, -1) Then
ActiveCell.Interior.ColorIndex = 4
ActiveCell.Offset(0, 1).Interior.ColorIndex = 4
Else
ActiveCell.Interior.ColorIndex = 0
ActiveCell.Offset(0, 1).Interior.ColorIndex = 0
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Offset(0, -6) = ""
End Sub

[RPP63]

Moin!
Was beabsichtigst Du mit Farben?
Excel kann rechnen; mit Farben sieht es eher mau aus.
Warum überhaupt VBA?
Auswertungen gehen (natürlich) besser mit Zahlen!
Ich habe letztens von Lupo eine interessante Variante gesehen, in der von Uhrzeiten ausgegangen wird, weil man so locker auch zweistellige Ergebnisse auswerten kann, wenn man weiß, dass 1 Stunde 1/24 und eine Minute 1/1440 ist.

Gruß Ralf

[Wexel]

Moin,

die verschiedenen Farben geben mir entweder gleiches Ergebnis bzw richtige Tendenz an..
VBA, fiel mir jetzt etwas einfacher..

[RPP63]

Und dann arbeitest Du mit einer Sub x() und ActiveCell?
Mit Verlaub:
Schaue doch erst mal, was Formeln bewirken können.
Dazu (Fußballergebnis) gibt es fantastilliarden Treffer im Internet.
Das Ganze iVm bedingter Formatierung sogar hübsch in bunt!
Und später, viel später, verwurschtelst Du das (unnötigerweise) mittels VBA.

Ach so!
Zeig mal Deine bisherigen Mühen in Form einer Excel-Datei!
(denn helfen will ich Dir schon)

Gruß Ralf

[chris-ka]

Hi,

ggf. kannst du das ja auch brauchen, oder jemand anderes
https://www.wintotal.de/kostenloser-spie...l-wm-2018/
Wobei der letzte Link mal gut aussieht
http://www.wm-tippspiel-2018.de/

lg

[Wexel]

Danke für Eure konstruktive Kritik.

Natürlich gibt es zahlreiche Vorlagen im Netz, natürlich muss das nicht in VBA sein,..

Aber wer will denn schon einfach ?