Private Sub btnWerteSchreiben_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnWerteSchreiben.Click
        Dim Exc1 As Object, Exc2 As Object
        Dim i As Integer
        Exc1 = GetObject(CurDir() & "\Mappe1.xls")
        Exc2 = GetObject(CurDir() & "\Mappe2.xls")
        For i = 0 To 7
            Exc2.worksheets(1).cells(1, i + 1).Value = _
            Exc1.Worksheets(1).Cells(1, i + 1).Value
        Next
    End Sub