Thema Datum  Von Nutzer Rating
Antwort
05.11.2010 23:42:35 Marcel
NotSolved
Blau Aw:Summe unter einer Schleife bilden.
 06.11.2010 00:43:45 Severus
NotSolved
06.11.2010 00:59:46 Marcel
NotSolved
06.11.2010 03:56:52 Severus
NotSolved
06.11.2010 11:46:12 Marcel
NotSolved
06.11.2010 12:09:39 Severus
NotSolved
06.11.2010 13:08:53 Marcel
NotSolved
06.11.2010 14:29:11 Severus
NotSolved
06.11.2010 19:31:28 Severus
NotSolved
07.11.2010 21:13:29 Marcel
NotSolved
08.11.2010 05:33:24 Severus
NotSolved
08.11.2010 05:36:39 Severus
NotSolved
08.11.2010 06:57:12 Marcel
NotSolved
08.11.2010 07:19:03 Severus
NotSolved
08.11.2010 13:56:57 Marcel
NotSolved
08.11.2010 14:29:58 Severus
NotSolved
08.11.2010 14:33:04 Severus
NotSolved
08.11.2010 14:36:06 Severus
NotSolved
08.11.2010 15:36:05 Marcel
NotSolved
08.11.2010 16:14:44 Severus
NotSolved
08.11.2010 17:41:35 Marcel
NotSolved
08.11.2010 18:03:15 Severus
NotSolved
08.11.2010 18:53:11 Marcel
NotSolved
08.11.2010 19:47:13 Severus
NotSolved
08.11.2010 21:34:25 Marcel
NotSolved
13.11.2010 17:41:06 Marcel
NotSolved
13.11.2010 18:34:26 Severus
NotSolved
13.11.2010 18:45:36 Marcel
NotSolved
08.11.2010 06:09:30 Severus
NotSolved
13.11.2010 17:53:08 Marcel
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
06.11.2010 00:43:45		 Views:
1053		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Summe unter einer Schleife bilden.
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.11.2010 23:42:35 Marcel
NotSolved
Blau Aw:Summe unter einer Schleife bilden.
 06.11.2010 00:43:45 Severus
NotSolved
06.11.2010 00:59:46 Marcel
NotSolved
06.11.2010 03:56:52 Severus
NotSolved
06.11.2010 11:46:12 Marcel
NotSolved
06.11.2010 12:09:39 Severus
NotSolved
06.11.2010 13:08:53 Marcel
NotSolved
06.11.2010 14:29:11 Severus
NotSolved
06.11.2010 19:31:28 Severus
NotSolved
07.11.2010 21:13:29 Marcel
NotSolved
08.11.2010 05:33:24 Severus
NotSolved
08.11.2010 05:36:39 Severus
NotSolved
08.11.2010 06:57:12 Marcel
NotSolved
08.11.2010 07:19:03 Severus
NotSolved
08.11.2010 13:56:57 Marcel
NotSolved
08.11.2010 14:29:58 Severus
NotSolved
08.11.2010 14:33:04 Severus
NotSolved
08.11.2010 14:36:06 Severus
NotSolved
08.11.2010 15:36:05 Marcel
NotSolved
08.11.2010 16:14:44 Severus
NotSolved
08.11.2010 17:41:35 Marcel
NotSolved
08.11.2010 18:03:15 Severus
NotSolved
08.11.2010 18:53:11 Marcel
NotSolved
08.11.2010 19:47:13 Severus
NotSolved
08.11.2010 21:34:25 Marcel
NotSolved
13.11.2010 17:41:06 Marcel
NotSolved
13.11.2010 18:34:26 Severus
NotSolved
13.11.2010 18:45:36 Marcel
NotSolved
08.11.2010 06:09:30 Severus
NotSolved
13.11.2010 17:53:08 Marcel
NotSolved