Wer kann mir den versteckten Fehler zeigen
24.06.2004 21:14:13
marc
vor 2 Tagen habe ich 'ne Hilfestellung aus dem Forum bekommen.
Nachdem die zweite Mappe geoeffnet wurde springt der Code zum Anfang
und will weder kopieren noch einfuegen.
marc :o(
'Option Explicit
Sub CopyFromTo()
Dim wb1 As Workbook
Dim wb2 As Workbook
Workbooks.Open Filename:="C:\Gera\Hal_01.xls"
Set wb1 = Workbooks("Hal_01.xls")
Workbooks.Open Filename:="C:\Gera\Hall_02.xls"
Set wb2 = Workbooks("Hall_02.xls")
For i = 1 To wb1.Worksheets.Count
wb1.Worksheets(i).Range("A1:B15").Copy
wb2.Worksheets(i).Range("B2").PasteSpecial Paste:=xlValues, _
Paste:=xlFormats
Next i
Application.CutCopyMode = False
wb1.Save
wb2.Save
wb1.Close
wb2.Close
End Sub
Anzeige