Marcel schrieb am 05.11.2010 23:42:35:
Hallo liebe VBA Gemeinde,
ich habe folgendes Problem und brauche dringend eure Hilfe.
ich würde gerne das VBA mir unter diese Schleife automatisch die Summe der angegebenen Werte ausrechnet, aber irgend wie klappt das bei mir nicht.
Dim SUMME as Double
Summe = 0#
Range("D11").Select
i = 0
Do
i = i + 1
Loop Until ActiveCell.Offset(0, i) = ""
ActiveCell.Offset(0, i).Value = Application.WorksheetFunction.VLookup([B11], Sheets("Leistungen").[A2:B60], 2, False) * Faktor
SUMME = SUMME + ActiveCell.Offset(0, i).Value
ActiveCell.Offset(1, i).Value = Application.WorksheetFunction.VLookup([B12], Sheets("Leistungen").[A2:B60], 2, False) * Faktor1
SUMME = SUMME + ActiveCell.Offset(1, i).Value
ActiveCell.Offset(2, i).Value = Application.WorksheetFunction.VLookup([B13], Sheets("Leistungen").[A2:B60], 2, False) * Faktor2
SUMME = SUMME + ActiveCell.Offset(2, i).Value
ActiveCell.Offset(3, i).Value = Application.WorksheetFunction.VLookup([B14], Sheets("Leistungen").[A2:B60], 2, False) * Faktor3
SUMME = SUMME + ActiveCell.Offset(3, i).Value
ActiveCell.Offset(4, i).Value = Application.WorksheetFunction.VLookup([B15], Sheets("Leistungen").[A2:B60], 2, False) * Faktor4
SUMME = SUMME + ActiveCell.Offset(4, i).Value
ActiveCell.Offset(5, i).Value = Application.WorksheetFunction.VLookup([B16], Sheets("Leistungen").[A2:B60], 2, False) * Faktor5
SUMME = SUMME + ActiveCell.Offset(5, i).Value
ActiveCell.Offset(6, i).Value = Application.WorksheetFunction.VLookup([B17], Sheets("Leistungen").[A2:B60], 2, False) * Faktor6
SUMME = SUMME + ActiveCell.Offset(6, i).Value
ActiveCell.Offset(7, i).Value = Application.WorksheetFunction.VLookup([B18], Sheets("Leistungen").[A2:B60], 2, False) * Faktor7
SUMME = SUMME + ActiveCell.Offset(7, i).Value
ActiveCell.Offset(8, i).Value = Application.WorksheetFunction.VLookup([B19], Sheets("Leistungen").[A2:B60], 2, False) * Faktor8
SUMME = SUMME + ActiveCell.Offset(8, i).Value
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(10, i).Value = SUMME |