Fehler in VBA-Code?
22.09.2008 12:14:00
David
Und schon wieder mit einem sehr "mysteriösen" Fehler:
Option Explicit
Sub test()
Dim zeile, i As Long
Dim wks As Worksheet
Dim wkb As Workbook
Dim quelle As String
For Each wkb In Workbooks
If Right(wkb.Name, 4) = ".csv" And InStr(wkb.Name, "Pliste") > 0 Then quelle = wkb.Name
Next
For Each wks In ThisWorkbook.Worksheets
With wks
zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To zeile
.Range("H" & i).FormulaArray = _
"=INDEX('" & quelle & "'!R2C7:R6C7,MATCH(RC1,'" & quelle _
& "'!R2C2:R6C2&""_""&'" & quelle & "'!R2C3:R6C3,0))"
.Range("I" & i).FormulaArray = _
"=INDEX('" & quelle & "'!R2C6:R6C6,MATCH(RC1,'" & quelle _
& "'!R2C2:R6C2&""_""&'" & quelle & "'!R2C3:R6C3,0))"
.Range("J" & i).FormulaArray = _
"=INDEX('" & quelle & "'!R2C5:R6C5,MATCH(RC1,'" & quelle _
& "'!R2C2:R6C2&""_""&'" & quelle & "'!R2C3:R6C3,0))"
Next
End With
Next
End Sub
Der Code läuft bei mir einwandfrei. Beim User bricht er mit aber Fehler ab. Testhalber habe ich das .FormulaArray durch .FormulaR1C1 ersetzen lassen, anschließend die Formel MANUELL in eine Array-Formel umwandeln lassen und das GEHT. Ich verstehe die Excel-Welt nicht mehr!
Hat jemand eine Idee?
Gruß
David