Изменение цвета ячейки по значению - значение typin: вручную и пасты/клон

Question

я решить мою проблему на этом THEMA: If value will change, change few cells color

Но теперь у меня есть новый вопрос. Если я набираю числа «вручную» в столбце А, все в порядке. Но если я хочу значение пасты/клон для нескольких ячеек У меня есть ошибка Laufzeitfehler 13 ; Typen unverträglich

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim LastRow As Long 

LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

If Not Intersect(Target, Range("A1:A" & LastRow)) Is Nothing Then 
    Select Case Target.Value 
     Case "1" '<-- put the rest of your cases here 
      Range("B" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 4 'green 
      Range("I" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 15 'grau 
     Case "2", "3" '<-- put the rest of your cases here 
      Range("B" & Target.Row & ":D" & Target.Row & ",E" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 4 'green 
      Range("H" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 15 'grau 
     Case Else 
      Range("B" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 0 
    End Select 
End If 

End Sub 

Как решить эту проблему?

Answer 1

Ваша проблема в том, что у вас есть Select Case Target.Value, и вы даете многосерийный ассортимент. Наверное, вы попробуете что-то вроде Select Case Target.Cells(1).Value вместо Select Case Target.Value и посмотрите, отвечает ли ответ тем, что вы ожидаете.

Редактировать: Изменение Target.Row на Target.Rows в вашем скрипте.