Private Sub Worksheet_Change(ByVal Target As Range)
Dim First As Range, Last As Range, Gesamt As Worksheet
Set Gesamt = Sheets("Gesamtdaten")
Set First = Gesamt.Columns(1).Find(Range("B3").Value, SearchDirection:=xlNext)
Set Last = Gesamt.Columns(1).Find(Range("B3").Value, SearchDirection:=xlPrevious)
If Target.Address(False, False) = "B3" Then
If First Is Nothing Then
Range("E8:K19").ClearContents
Set First = Gesamt.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Set Last = First.Offset(19 - 8, 0)
Gesamt.Range(First, Last).Value = Target.Value
Gesamt.Range(First, Last).Offset(0, 1).Resize(, 2).Value = Range("C8:D19").Value
Else
Range("E8:K19").Value = Gesamt.Range(First, Last).Offset(0, 3).Resize(, 7).Value
End If
ElseIf Not Intersect(Target, Range("E8:K19")) Is Nothing Then
If Not First Is Nothing And Not Last Is Nothing Then
Gesamt.Range(First, Last).Offset(0, 3).Resize(, 7).Value = Range("E8:K19").Value
End If
End If
End Sub