Guten Abend
Bin blutiger Anfänger in sachen VBA & Excel und hoffe hier auf Hilfe...
Folgendes Problem:
Ich habe in einer Mappe verschieden Datenblätter und ein Auswertungsblatt, die Daten werden per Makro von den Daten auf die Auswertungsblätter kopiert. Jedes Datenblatt hat auf dem Auswertungsblatt eine eigene Spalte. In den Zeilen befinden sich die jeweiligen Zahlenwerte von Zielen die es zu erreichen gilt. Es gibt mehrere Ziele mit einem Soll und einem Ist Wert. Der Sollwert kann von Spalte zu Spalte verschieden sein, ebenso natürlich der Istwert.
Diese beiden Werte sollen nun verglichen werden und der jeweilige Istwert soll eingefärbt werden...Dazu habe ich eine For Schleife geschrieben, nun funktioniert diese allerdings nur für das erste Ziel....
Option Explicit
Private 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
Wie muss der Code aussehen wenn Zeile 9 mit 10, 14 mit 15 usw. verglichen werden soll?
Oder ist das mit der For Schleife gar nicht machbar?
Vielen Dank
Grüsse Yves
|