Datenvergleich mit auto. Farbe / If Schleife
24.01.2018 17:33:20
Yves
Da ich hier das erste mal einen Beitrag erstelle möge man mir Fehler bitte nachsehen.
Ich habe in der letzten Zeit in diesem Forum viele nützliche Tipps gefunden und hoffe nun auf ein wenig Hilfe. Für mein Anliegen habe ich so direkt keinen Beitrag gefunden Folgendes Problem:
Ich habe eine Arbeitsmappe mit einer Auswertungsseite und einigen Tabellenblättern voller Daten. Bei den Daten handelt es sich um diverse Ziele die Personen erreichen sollten. Die Daten werden per Makro auf das Auswertungsblatt kopiert, so das man die Zielerreichung aller Personen auf einen Blick sehen kann. So weit so gut. Auf dem Auswertungsblatt gibt es Pro Ziel immer eine Soll und eine Ist Zeile diese sollen per "knopfdruck" verglichen werden und bei "erreichen" des Zieles eine Farbe erhalten solange das Ziel nicht erreicht ist, soll eine andere Farbe gesetzt werden.
Für eine Ziel, also 2 Zeilen klappt das mit einer von mir erstellten If Schleife ich komme aber zu keiner Lösung wie der Code aussehen müsste um bei weiteren Zielen (Zeilenpaaren) das selbe zu machen....
Option Explicit
Sub auswerten()
Dim i As Integer
For i = 2 To 4
'Beurteilung Ziel 1
If Cells(4, i).Value >= Cells(5, i) Then
Cells(4, i).Interior.ColorIndex = 43
Else
Cells(4, i).Interior.ColorIndex = 45
End If
Next
End Sub
Die weiteren Zeilen wären 9 >= 10, 14 >=15 usw.
Vielen Dank & freundliche grüsse
ps. ich habe keine Ahnung wie man hier Code einbindet :D