Private Sub Worksheet_Change(ByVal Target As Range)
    Dim loZeile As Long
    If Target.Address = "$G$2" Then
        For loZeile = 3 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
            If Cells(loZeile, 1) <> "" And Cells(loZeile, 2) <> "" And Cells(loZeile, 3) <> "" _
                And Cells(loZeile, 4) <> "" And Cells(loZeile, 5) <> "" And Cells(loZeile, 6) <> "" Then _
                Cells(loZeile, 7) = Target
        Next loZeile
    End If
End Sub