AW: Fehler in der Einschleifregel?
18.12.2015 11:18:53
JoWE
Hallo Florian,
in Deiner Mustertabelle könnte man es so lösen:
Sub versuch()
Dim ze As Long, r As Long
For ze = 2 To 10
r = Application.WorksheetFunction.VLookup(Range("B2"), Range("L2:M6"), 2, False)
r = r + Application.WorksheetFunction.VLookup(Range("C" & ze), Range("L2:M6"), 2, False)
r = r + Application.WorksheetFunction.VLookup(Range("D" & ze), Range("L2:M6"), 2, False)
r = r + Application.WorksheetFunction.VLookup(Range("E" & ze), Range("L2:M6"), 2, False)
r = r + Application.WorksheetFunction.VLookup(Range("F" & ze), Range("L2:M6"), 2, False)
r = r + Application.WorksheetFunction.VLookup(Range("G" & ze), Range("L2:M6"), 2, False)
Range("H" & ze) = r
Next
End Sub
End Sub
Gruß
Jochen