ich brauche dringend Eure Hilfe!
Wie geht das?
Ich habe eine Tabelle erstellt, in der mehrere Blöcke untereinander stehen. Jeder Block besteht aus 6 Zeilen und 2Spalten! Die Zellen in den Zeilen 1-5 sind zusammengefastt, nur die letzte Zeile nicht. Davon die rechte Zeile steht in Abhängigkeit mit der ersten Zeile deren Hintergrundfarbe. Ich habe mehrere dieser Blöcke untereinanderstehen und möchte nun in Abhängigkeit der Hintergrundfarbe z.B. rot (colorindex 3), den Wert in der letzten Zeile eines Blockes rechts irgendwo summiert haben.
Private Sub Worksheet_SelectionChange(byval target as Excel.Range)
If Range("A1:B1").interior.colorindex=3 then
Range("D9").value = Range("B6")
Else
Range("D9").value = 0
End IF
End Sub
Wenn ich das für jeden Block mache, dann wird der Code unter VBA zu lang! Besteht vielleicht die Möglichkeit ein Funktion zu programmieren, die in Abhängigkeit der Farbe den Wert in einer anderen Zelle (Position des Wertes in allen Blöcken gleich) summiert???
Gruß André