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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen