For intAnz = 0 To 13
Range("B" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:BA")), varSpArr(intAnz), False)
Range("C" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:AA")), varSpArr(intAnz), False)
Next intAnz
Hier schreibst Du stets alle 13 Vorgänge in dieselbe Zelle -> Range("B" & i)
For intAnz = 0 To 13
Range("B" & i).Offset(0,intAnz).value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:BA")), varSpArr(intAnz), False)
Range("C" & i).Offset(0,intAnz).Value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:AA")), varSpArr(intAnz), False)
Next intAnz
Versuchs mal so oder beschreibe präziser was Du unter "Habs zwar probiert, aber kriegs nicht hin" verstehst.
|