値によって変更セルの色 - 値typin：手とペースト/クローン

Question

で、私はこのTHEMAに私の問題を解決する：If value will change, change few cells color

しかし、今私は新しい問題があります。列Aに「手で」数字を入力すると、すべてがOKです。私はより多くの細胞にペースト/クローンの値をしたい場合しかし、私はエラーが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.Valueの代わりに Select Case Target.Cells(1).Valueのようなものを試して、その答えがあなたの期待通りかどうかを確認してください。

編集： 変更スクリプトTarget.RowからTarget.Rowsに変更してください。