Hallo zusammen,

ich könnte eure hilfe gebrauchen, da ich mit meinem "Latein" am Ende bin :) 

Ich habe folgendes Makro bereits, das auch funktioniert: wenn in bestimmten Zellen eine Zahl eingetragen wird, sollen in der Zeile darunter automatisch neue Zeilen eingefügt werden, und zwar so viele, wie die Zahl angegeben hat.

Jetzt soll das Makro aber erweitert werden: Das Makro soll nur ausgelöst werden, wenn die Zahl in Zellen mit bestimmter farblicher Markierung eingegeben wird. Meine Frage ist  nun: kann ich als Range die ganze Zeile setzen und dann sagen, dass das Makro nur ausgelöst wird, wenn die Zahl in die farblich markierten Zellen eingetragen wird? 

Ich poste mal das Makro, das ich bisher habe und das auch funktioniert:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    
        If Target.Cells.Count > 1 Then Exit Sub
    
        If Not Application.Intersect(Target, Range("A10:A15")) Is Nothing Then
        'Hier wird darauf geprüft, dass ein numerischer Wert größer 0 enthalten ist.
        If IsNumeric(Target.Value) And Target.Value > 0 Then
        
        'Aufruf des Makros zum Zeilen Einfügen.
        Call NeueZeilen_Anzahl
        End If
   
    End If
End Sub


Sub NeueZeilen_Anzahl()
Dim Anzahl_Zeilen As Byte

    'Aktiviere und  wähle die Zelle mit dem Zahlenwert aus.
    ActiveCell.Offset(-1, 0).Activate
    ActiveCell.Select
    
    'Wert,der in der Zelle steht.
    Anzahl_Zeilen = ActiveCell.Value
    
    'Zelle, wo die neuen Reihen eingefügt werden sollen (unterhalb der aktivierten Zelle).
    ActiveCell.Offset(1, 0).Select
    
    Dim i As Integer
    For i = 1 To Anzahl_Zeilen
    Selection.EntireRow.Insert
    Next i
    
    'Inhalte in der Zelle löschen.
    ActiveCell.Offset(-1, 0).ClearContents

End Sub

Wäre super, wenn ihr mir helfen könntet!! 
Viele liebe Grüße, Lizel