ich vermute, Du gibst die Werte manuell ein. Dann könnte man über das WorksheetChangeEreignis automatisch die Spielarten ergänzen. Ich würde diese allerdings in die Spalte A verlegen und die Vorausanzeige auch in dieser vornehmen.
Dann funktioniert folgender Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Long, Zeile As Long
On Error Resume Next
If Target.Column < 2 Or Target.Column > 4 Or Target.Row < 4 Or Not (IsNumeric(Target.Value)) Then Exit Sub
If Target.Value <= 100 Then Exit Sub
Application.EnableEvents = False
Zeile = WorksheetFunction.Max(Target.Row, Cells(Rows.Count, 1).End(xlUp).Row)
For C = 1 To 6
Cells(Zeile + C, 1) = Mid("BBBRRR", C, 1)
Next
Application.EnableEvents = True
End Sub
Farbspiele kannst Du einfach einfügen (Zeile einfügen).
Ich maile Dir die Beispielmappe.
Gruß Coach