ich habe zwei Dateien geöffnet und möchte mit folgender Pozedur Daten übertragen. Bei der ausgeremten Zeile "Workbooks" steckt das Problem. Wie hätte diese Zeile auszusehen damit es laufen würde?
Vielen Dank für eure Hilfe
Detlef
Sub DateiOeffnen()
Dim vFile As Variant
Dim zeile As Integer
Dim spalte As Integer
zeile = 1
spalte = 1
vFile = Application.GetOpenFilename
'Aktualisierung im Hintergrund
Application.ScreenUpdating = False
If vFile = False Then Exit Sub
Workbooks.Open vFile
Do Until zeile = 97
spalte = 1
Do Until spalte = 40
'Workbooks("New Item Registration 2003").Worksheets("Input").Cells(zeile, spalte) = vFile.Worksheets("ZuSp").Cells(zeile, spalte)
spalte = spalte + 1
Loop
zeile = zeile + 1
Loop
ActiveWindow.Close
'Aktualisierung im Hintergrund
Application.ScreenUpdating = True
End Sub