Code verfeinern
06.06.2004 19:26:51
Ulf
Mit diesem Code, wurde mir schon sehr weitergeholfen.
Der Code ist von Josef Ehrensberger .
Private Sub Worksheet_selectionChange(ByVal target As Range)
If target.Column = 5 And target.Row > 6 Then
If Not IsDate(target.Offset(0, -1)) Then target.Offset(0, -1) = target.Offset(-1, -1)
End If
End Sub
Wenn links von der activen Zelle ein Datum steht, wird der Code nicht ausgeführt.
Ich hätte nun auch noch gerne weiterhin, das der Code auch nicht ausgeführt wird, wenn über der activen Zelle keine Zahl steht.
Also der Code darf nur ausgeführt werden wenn links kein Datum und darüber eine Zahl steht.
Danke im voraus
Ulf