Automatische Formel

30/03/2008 - 21:04 von Jens Wennemede | Report spam
Hallo NG,

hier wurde mir mit folgender Prozedure schon geholfen:

Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
If Target = "" Then
Cells(Target.Row, "F").ClearContents
Else
Cells(Target.Row, "F") = _
"=B" & Target.Row & "*C" & Target.Row
End If
End If

End Sub

Aber wie bekomme ich das Teil dazu erst ab Zeile 8 zu Arbeiten.

Danke Jens
 

Lesen sie die antworten

#1 Peter Schleif
30/03/2008 - 21:09 | Warnen spam
Jens Wennemede schrieb am 30.03.2008 21:04:

Aber wie bekomme ich das Teil dazu erst ab Zeile 8 zu Arbeiten.



If Target.Column = 1 And Target.Row >= 8 Then

Peter

Ähnliche fragen