Also als erstes fällt mir auf, daß Deine Do..Loop Schleifen nicht korrekt deklariert sind. Müßte m.E. heißen (ein Beispiel)
i = 0
Do
i = i + 1
If Leistungstabelle = "" Then ActiveCell.Offset(0, i).Value = "" Else ActiveCell.Offset(0, i).Value = Application.WorksheetFunction.VLookup([B11], Sheets("Leistungen").[A2:B60], 2, False) * Faktor
SUMME = SUMME + ActiveCell.Offset(0, i).Value
If Leistungstabelle1 = "" Then ActiveCell.Offset(1, i).Value = "" Else ActiveCell.Offset(1, i).Value = Application.WorksheetFunction.VLookup([B12], Sheets("Leistungen").[A2:B60], 2, False) * Faktor1
SUMME = SUMME + ActiveCell.Offset(1, i).Value
If Leistungstabelle2 = "" Then ActiveCell.Offset(2, i).Value = "" Else ActiveCell.Offset(2, i).Value = Application.WorksheetFunction.VLookup([B13], Sheets("Leistungen").[A2:B60], 2, False) * Faktor2
SUMME = SUMME + ActiveCell.Offset(2, i).Value
If Leistungstabelle3 = "" Then ActiveCell.Offset(3, i).Value = "" Else ActiveCell.Offset(3, i).Value = Application.WorksheetFunction.VLookup([B14], Sheets("Leistungen").[A2:B60], 2, False) * Faktor3
SUMME = SUMME + ActiveCell.Offset(3, i).Value
If Leistungstabelle4 = "" Then ActiveCell.Offset(4, i).Value = "" Else ActiveCell.Offset(4, i).Value = Application.WorksheetFunction.VLookup([B15], Sheets("Leistungen").[A2:B60], 2, False) * Faktor4
SUMME = SUMME + ActiveCell.Offset(4, i).Value
If Leistungstabelle5 = "" Then ActiveCell.Offset(5, i).Value = "" Else ActiveCell.Offset(5, i).Value = Application.WorksheetFunction.VLookup([B16], Sheets("Leistungen").[A2:B60], 2, False) * Faktor5
SUMME = SUMME + ActiveCell.Offset(5, i).Value
If Leistungstabelle6 = "" Then ActiveCell.Offset(6, i).Value = "" Else ActiveCell.Offset(6, i).Value = Application.WorksheetFunction.VLookup([B17], Sheets("Leistungen").[A2:B60], 2, False) * Faktor6
SUMME = SUMME + ActiveCell.Offset(6, i).Value
If Leistungstabelle7 = "" Then ActiveCell.Offset(7, i).Value = "" Else ActiveCell.Offset(7, i).Value = Application.WorksheetFunction.VLookup([B18], Sheets("Leistungen").[A2:B60], 2, False) * Faktor7
SUMME = SUMME + ActiveCell.Offset(7, i).Value
If Leistungstabelle8 = "" Then ActiveCell.Offset(8, i).Value = "" Else ActiveCell.Offset(8, i).Value = Application.WorksheetFunction.VLookup([B19], Sheets("Leistungen").[A2:B60], 2, False) * Faktor8
SUMME = SUMME + ActiveCell.Offset(8, i).Value
If Leistungstabelle9 = "" Then ActiveCell.Offset(9, i).Value = "" Else ActiveCell.Offset(9, i).Value = Application.WorksheetFunction.VLookup([B20], Sheets("Leistungen").[A2:B60], 2, False) * Faktor9
SUMME = SUMME + ActiveCell.Offset(9, i).Value
ActiveCell.Offset(9, i + 1).Value = SUMME
Loop Until ActiveCell.Offset(0, i) = ""
Den Rest muß ich mir genauer anschauen, wenn ich mehr Zeit habe.
Severus |