HALLO

unzwar habe ich folgendes problem:

ich möchte gerne 2 Tabellen so verknüpfen das wenn ich in tabelle eins etwas eintrage es automatisch in tabelle 2 drin ist.
so meine problematik ist (nach dem ich mich an diesem makri versucht habe
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Datum_A1 As Date, Datum_B1 As Date, Zeile_A As Long, Zeile_B As Long
Datum_A1 = Range("A1")
Datum_B1 = Range("B1")
Zeile_A = Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).Row
Zeile_B = Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, 0).Row
If Target.Cells.Address = "$A$1" Then
Sheets("Tabelle2").Cells(Zeile_A, 1) = CDate(Datum_A1)
End If
If Target.Cells.Address = "$B$1" Then
Sheets("Tabelle2").Cells(Zeile_B, 2) = CDate(Datum_B1)
End If
End Sub

das das ja soweit gut funktioniert nur
ich brauche es so das es nicht nur das datum von T1 A1 in die nächste leere zelle der T2 spalte A macht.
sondern auch von A2-A5
und das selbe mit B-G .

ich komm einfach nicht weiter immer wenn ich was an der formel änder geht nichts mehr. bin aber auch nen anfänger vllt kann mir ja jemand helfen.

gruß