Hallo Sascha L.,
auf den Rest deines Makro hatte ich bisher nicht gesehen. Du musst
Wbs = Array("1000.xls","2000.xls")
setzen.
Gruß
Holger
Sascha L. schrieb am 01.09.2009 14:49:15:
Hallo Peter,
sorry, das war ein großes ungeschick meinerseits.
Jetzt richtig in der Reihenfolge erhalte ich den Laufzeitfehler 1004
" wurde nicht gefunden. Überprüfen Sie die Rechtschreibung des Dateinamens.....
hier stoppt er dann wenn ich auf Debuggen gehe bei
Workbooks.Open Wb
Wenn ich dann im Array die Anführungszeichen wegnehme habe ich einen Syntaxfehler beim Kompilieren...
Irgendwas mache ich falsch ... ???
Anbei der aktuelle Code
ChDir ThisWorkbook.Path
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iSINW As Integer, iRow As Integer
Dim rZelle As Range, rBereich As Range
Dim sRange As StringWbs = Array("1000.xls,2000.xls")
sRange = "B2,B3,B7,B36,B27,D27,B28,D28,B29,D29,B30,D30,B17,D17,B18,D18,B19,D19"
iRow = 1
iCol = 1
iSINW = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set WS2 = Workbooks.Add.ActiveSheet
Application.SheetsInNewWorkbook = iSINW
Application.ScreenUpdating = False
With WS2
Workbooks.Open Wb
For Each Wb In Wbs
For Each WS1 In Workbooks("Wb").Worksheets
If Len(WS1.Name) > 3 Then
Set rBereich = WS1.Range(sRange)
.Cells(iRow, iCol) = WS1.Name
For Each rZelle In rBereich
iCol = iCol + 1
With .Cells(iRow, iCol)
.Value = rZelle.Value
.NumberFormat = rZelle.NumberFormat
End With
Next
Set rZelle = Nothing
iRow = iRow + 1
iCol = 1
End If
Next WS1
Workbooks(Wb).Close
Next
.Name = "Übersicht"
WS2.Columns.AutoFit
End With
Application.ScreenUpdating = True
MsgBox "Übersicht wurde fertig erstellt.", vbOKOnly, "Info"
Exit Sub
Fehler:
MsgBox "Übersicht konnte nicht vollständig erstellt werden.", vbOKOnly, "Achtung"
Application.ScreenUpdating = True |