Makro funktioniert nicht (Indexfehler9)
30.08.2005 18:14:21
Pascal
vielleicht habe ich gerade ein Brett vorm Kopf.
Ich möchte aus einigen Arbeitsmappen jew. bestimmte Zeilen herauslesen. Aber die If Workbook Zeile funktioniert nicht. Indes
Hat jemand eine Idee?
Grußund Danke,
Pascal
Dateiname(1) = "abc .xls"
Dateiname(2) = "def. xls"
...
WS(1) = "abc"
WS(2) = "def"
...
For i = 1 To 18
For j = 12 To 50
If Workbooks(Dateiname(i)).Worksheets(WS(i)).Cells(j, 3) = EA Then
a = a + 1
For k = 1 To 13
Ausgabe(a, k) = Cells(j, k)
Next k
End If
Next j
Next i