code ändern!?
26.02.2005 16:03:19
mayk
ich habe diesen code (danke noch einmal)aus diesem Forum
er läuft super.
Kan man diese Code auch so umschreiben das er für mehrere Zeilen steht?
wenn ich zum Beispiel A1:A100 eingebe funktioniert`s nicht.
Original Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2]) Is Nothing Then Exit Sub
If Not IsEmpty([a2]) Then [a1] = [a2]
End Sub
Abgeänderter Code der nicht läuft:
[
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2:v2]) Is Nothing Then Exit Sub
If Not IsEmpty([a2:v2]) Then [a1:v1] = [a2:v2]
End Sub
Mayk