Routine nachträglich verändern
03.05.2005 11:15:01
Jens
habe vor einigen Tagen von Frank folgende Routine zum Ergebnisübertrag in nachfolgende Zellen erhalten. Funktioniert auch ganz prima. Nun meine Frage: Wie kann ich diese Routine nachträglich so verändern, dass der Ergebnisübertrag nicht zeilenweise, sondern von oben nach unten erfolgt.
Hier die Routine:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.AddressLocal = "$A$3" Then
Target.Copy (Cells(3, ActiveSheet.Cells(3, Columns.Count).End(xlToLeft).Column + 1))
End If
End Sub
Über Eure Hilfe würde ich mich sehr freuen. Sage schon einmal vielen Dank für die Unterstützung.
Grüße Jens