Daten in eine andere Tabelle übertragen

[Schwertträger]

Hallo, ist es möglich Daten von Tabelleblatt 1 zu Tabellenblatt 2 automatisiert zu übertragen. Dabei soll Tabellenblatt 2 gesperrt sein, sodass einmal übertragene Datan nicht mehr gelöscht werden können.
z. B. ich schreibe in Tabelleblatt 1 Daten in A1 - B1 - C1, diese sollen jetzt in Tabellenblatt 2 übertragen werden allerdings sollen die Daten 
       ich schreibe in Tabelleblatt 1 Daten in A2 - B2 - C2  in Tabellenblatt 2 erhalten bleiben auch wenn sie in Tabellenblatt 1 gelöscht worden sind
       ich schreibe in Tabelleblatt 1 Daten in A3 - B3 - C3   um so eine Historie zu erschaffen.
und so weiter.....

Geht so etwas vielleicht mit ActivX Steuerelement?

Ich hoffe es hat hierzu jemand eine Idee?

Vielen Dank im Vorraus!

[Fennek]

Hallo,

für den Anfang ins Code-Teil von Sheet(1)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets(2).Range(Target.Address) = "" Then
    Sheets(2).Range(Target.Address) = Target
    Sheets(2).Range(Target.Address).Locked = True
End If
End Sub

Jetzt muss versucht werden den Code zu überwinden und damit Verbesserungen zu ermöglichen.

mfg