Automatisches Kopieren eines Zellbereiches
30.07.2007 14:19:02
Bernd
ich habe hier folgende Prozedur, die dafür sorgt, dass bei Eingabe in Zelle G21 der Wert nach Zelle C21 geschrieben wird:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("G21").Address Then
Debug.Print Target.Address
Range("C21") = Range("G21")
End If
End Sub
Nun meine Frage; Wie muss ich die Prozedur anpassen, damit ich z.B. bei Eingabe in G21- G60 der Wert nach C21 - C60 übertragen wird?
Gruß
Bernd