Marcel schrieb am 06.11.2010 00:59:46:
Severus schrieb am 06.11.2010 00:43:45:
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
ActiveSheet.Range("D65536").End(xlUp).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(9, i + 1).Value = SUMME
Hallo Severus,
vielen Dank für die schnelle Antwort, es funktioniert super!!
Ist es vielleicht auch möglich, dass die Summe nicht unter die Werte geschrieben wird sondern rechts neben den letzten Wert?
Ich habe jetzt noch ein Problem, wenn ich die Schleife ein zweites mal ausführe, wird der Wert rechts neben alle Werte geschrieben und nicht drunter.
Hat da vielleicht auch noch jemand Abhilfe?
vielen Dank im voraus.
LG
Marcel
Severus |