|
Hallo zusammen,
ich habe eine Herausforderung in VBA, bin blutiger Anfänger und hoffe ihr könnt mir helfen.
Ich habe eine Soll und eine Ist Tabelle. Vom Aufbau sind beide identisch. Nun sind aber in der Soll-Tabelle bestimmte Zellen rot eingefärbt. Die Zellenfarbe sollen nun per Makro in die IST-Tabelle übernommen werden. Also wenn D4 in der Soll-Tabelle rot ist, dann soll sie auch in der IST-Tabelle rot werden.
Nun sollen noch die Werte der roten Zellen miteinander verglichen werden. Sollte ein "roter" Wert in der IST-Tabelle gößer sein, als in der Soll-Tabelle, dann wird diese Zelle zu grün.
Die Farbe und die Bezeichnung aus der entsprechenden A-Spalte sollen in eine neue Tabelle geschrieben werden.
Mein Code sieht bisher so aus, aber ich komme einfach nicht weiter:
[CODE]Private Sub cmdAktualisieren_Click()
Sheets("Matrix-Soll").Range("D7:AJ40").Copy
Sheets("Matrix-Ist").Range("D7").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Dim Soll As Range
Dim Ist As Range
For Each Soll In Sheets("Matrix-Soll").Range("D7:AJ40")
For Each Ist In Sheets("Matrix-Ist").Range("D7:AJ40")
If Soll < Ist Then Ist.Interior.ColorIndex = 43
Next Ist
Next Soll
End Sub
[/CODE]
Vielen Dank für eure Zeit.
|