Hallo
Folgende Funktion geht nicht
Fehler >>>If Target.Column = 2 And IsNumber(Target.Value) Then
In spalte B tragen ich eine Nummer dann soll mir die formell und Formatierung von spalte C bis G übernehmen.

Wer kann mir Helfe?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And IsNumber(Target.Value) Then
Range("C" & Target.Row - 1 & ":G" & Target.Row - 1).Copy _
Destination:=Range("C" & Target.Row)
For I = 3 To 7
If Not (Cells(Target.Row, I).HasFormula) Then Cells(Target.Row, I) = ""
Next I
End If
End Sub
Danke
Gruß Kai