So hier mal ein Beispiel. im VBE unter DieseArbeitsmappe einfügen. Der Code geht davon aus, dass es 4 Blätter gibt. Wenn in Blatt 1 bis 3 was geändert wird, wird es automatischin Blatt 4 übertragen. IN den Blätter 1 bis 3 steht in Spalte A jeweils ein Datum. Ein neues Datum in Spalte A wird in Blatt 4 eingefügt
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim suche
Dim ergebnis As Object
Dim ende
If Sh.Index < 4 Then
If Target.Row > 8 Then
suche = Worksheets(Sh.Index).Cells(Target.Row, 1)
Set ergebnis = Worksheets(4).Columns(1).Find(suche, LookIn:=xlValues)
If ergebnis Is Nothing Then
ende = Worksheets(4).Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(4).Cells(ende + 1, 1) = suche
Worksheets(4).Cells(ende + 2, 1) = suche
Worksheets(4).Cells(ende + 3, 1) = suche
Worksheets(4).Cells(ende + 4, 1) = suche
Worksheets(Sh.Index).Rows(Target.Row).Copy Destination:=Worksheets(4).Rows(ende + 1 + Sh.Index)
Else
Worksheets(Sh.Index).Rows(Target.Row).Copy Destination:=Worksheets(4).Rows(ergebnis.Row + Sh.Index)
End If
End If
End If
End Sub
|