Workbook öffnen und Makro ausführen will nicht
02.06.2009 23:26:21
Johannes
ich habe noch ein zweites Problem.
Dim i As Integer
Application.ScreenUpdating = False
Workbooks.Open "c:\datenigel-1-1.xls"
<b>With ActiveSheet
For i = 1000 To 2 Step -1
If .Cells(i, 1).Value <> "" Then Range(Cells(2, 54), Cells(2, 72)).Copy _
Range(Cells(i, 54), Cells(i, 72))
Next
End With</b>
Application.ScreenUpdating = True
End Sub
Das Makro wird von einem eigenen Workbook aus aufgerufen. Das 2. Workbook zu öffnen funktioniet. Der fette Teil funktioniert einwandfrei wenn der Code im betreffenden Workbook steht. Von meinem Ausgangsworkbook aus geht er jedoch nicht. Ich vermute es liegt irgendwo ein Problem darin, dass nicht klar ist wo kopiert werden soll (datenigel-1-1 hat 2 Worksheets von denen Top_BN verwendet werden soll). Normalerweise müsste doch eine gerade geöffnete Datei immer aktiv sein?
Nochmal danke für eure Tipps.
Joni