Mit Worksheet_SelectionChange kopieren
02.10.2007 15:15:00
edie
benötige Hilfe für folgendes Problem:
Wenn in Zelle F2 eine Wert eingegeben wird
soll der Wert nach unten kopiert werden und
zwar soweit wie in der Spalte A Zahlen stehen.
Habe schon mal probiert funktioniert nix.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column 6 Then Exit Sub
If Target.Column = 6 And IsNumeric(Target.Value) Then
On Error Resume Next
Application.EnableEvents = False
Range(Target.Row - 1).Copy _
Destination:=Range("F" & Target.Row)
End If
Application.EnableEvents = True
End Sub
Kann mir jemand dabei helfen?
Vielen Dank im Voraus
Grüße