Thema Datum  Von Nutzer Rating
Antwort
05.11.2010 23:42:35 Marcel
NotSolved
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
Blau Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Summe unter einer Schleife
 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:
Marcel		 Datum:
07.11.2010 21:13:29		 Views:
1023		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Summe unter einer Schleife
Severus schrieb am 06.11.2010 19:31:28:

Wenn ich Deinen Code richtig verstanden habe, sollte es so gehen:

Private Sub CommandButton1_Click()
Dim SUMME As Double
Dim z As Long
SUMME = 0#
ActiveWorkbook.Worksheets("Kundendaten").Select
z = ActiveSheet.[A65536].End(xlUp).Row + 1
Cells(z, 1) = Date


Cells(z, 1).Select


i = 0
Do
i = 1 + i
Loop Until ActiveCell.Offset(0, i) = ""


ActiveCell.Offset(0, i).Value = Leistungstabelle
ActiveCell.Offset(1, i).Value = Leistungstabelle1
ActiveCell.Offset(2, i).Value = Leistungstabelle2
ActiveCell.Offset(3, i).Value = Leistungstabelle3
ActiveCell.Offset(4, i).Value = Leistungstabelle4
ActiveCell.Offset(5, i).Value = Leistungstabelle5
ActiveCell.Offset(6, i).Value = Leistungstabelle6
ActiveCell.Offset(7, i).Value = Leistungstabelle7
ActiveCell.Offset(8, i).Value = Leistungstabelle8
ActiveCell.Offset(9, i).Value = Leistungstabelle9


Cells(z, 2).Select
i = 0
Do
i = i + 1
Loop Until ActiveCell.Offset(0, i) = ""

ActiveCell.Offset(0, i).Value = Faktor
ActiveCell.Offset(1, i).Value = Faktor1
ActiveCell.Offset(2, i).Value = Faktor2
ActiveCell.Offset(3, i).Value = Faktor3
ActiveCell.Offset(4, i).Value = Faktor4
ActiveCell.Offset(5, i).Value = Faktor5
ActiveCell.Offset(6, i).Value = Faktor6
ActiveCell.Offset(7, i).Value = Faktor7
ActiveCell.Offset(8, i).Value = Faktor8
ActiveCell.Offset(9, i).Value = Faktor9

Cells(z, 3).Select
i = 0
Do
i = i + 1
Loop Until ActiveCell.Offset(0, i) = ""

If Leistungstabelle = "" Then ActiveCell.Offset(0, i).Value = "" Else ActiveCell.Offset(0, i).Value = Application.WorksheetFunction.VLookup([B11], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle1 = "" Then ActiveCell.Offset(1, i).Value = "" Else ActiveCell.Offset(1, i).Value = Application.WorksheetFunction.VLookup([B12], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle2 = "" Then ActiveCell.Offset(2, i).Value = "" Else ActiveCell.Offset(2, i).Value = Application.WorksheetFunction.VLookup([B13], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle3 = "" Then ActiveCell.Offset(3, i).Value = "" Else ActiveCell.Offset(3, i).Value = Application.WorksheetFunction.VLookup([B14], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle4 = "" Then ActiveCell.Offset(4, i).Value = "" Else ActiveCell.Offset(4, i).Value = Application.WorksheetFunction.VLookup([B15], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle5 = "" Then ActiveCell.Offset(5, i).Value = "" Else ActiveCell.Offset(5, i).Value = Application.WorksheetFunction.VLookup([B16], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle6 = "" Then ActiveCell.Offset(6, i).Value = "" Else ActiveCell.Offset(6, i).Value = Application.WorksheetFunction.VLookup([B17], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle7 = "" Then ActiveCell.Offset(7, i).Value = "" Else ActiveCell.Offset(7, i).Value = Application.WorksheetFunction.VLookup([B18], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle8 = "" Then ActiveCell.Offset(8, i).Value = "" Else ActiveCell.Offset(8, i).Value = Application.WorksheetFunction.VLookup([B19], Sheets("Leistungen").[A2:B60], 2, False)
If Leistungstabelle9 = "" Then ActiveCell.Offset(9, i).Value = "" Else ActiveCell.Offset(9, i).Value = Application.WorksheetFunction.VLookup([B20], Sheets("Leistungen").[A2:B60], 2, False)

Cells(z, 4).Select
i = 0
Do
i = i + 1
Loop Until ActiveCell.Offset(0, i) = ""

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

End Sub

Severus

Hallo Severus,

vielen vielen lieben Dank Dir erst einmal für deine Bemühungen.
Leider klappt es nicht, das die Werte beim zweiten Ausführen unter einander geschrieben werden.

Ich habe die Datei mal hochgeladen, vielleicht hilft dir das ja
http://www.file-upload.net/download-2954127/Mappe1.xls.html .

vielen Dank nochmals,

Marcel

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
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
Blau Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Summe unter einer Schleife
 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