Makro mit Zwischensummen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thorsten,
meinen Forumsnick habe ich auf Anraten zweier Kollegen geändert. Sie meinten, dass man in Foren nicht den richtigen Namen verwenden sollten. Ob das so ist, weiss ich nicht, hab ja noch keine negativen Erfahrungen gemacht.
Die Formel verstehe ich, obwohl ich folgendes noch nicht verstehe: Die Zuordnung der zu bewertenden Bereiche, in deinem Beispiel ZÄHLENWENN(D8:D13;D8)=ZÄHLENWENN(D8:D13;"""") die Werte aus den Zeilen D8 bis D13, ist ja individuell, da die Anzahl der Zeilen ja abhängig von der Anzahl der Buchungen ist. Wo wird in dem Makro geregelt, dass wenn in einer Zelle J... der Wert berechnet werden soll, die Zeilen .... bis .... herangezogen werden. Hoffe, dass ich mich verständlich ausdrücken konnte.
Kann ich nicht im Code eine Änderung eintragen, dass auch der Anfangsbereich (in der Beispieldatei die Zeile 7) berechnet wird?
Gruß, Jochen

Hi Jochen
Hier nun noch mal die Datei:
https://www.herber.de/bbs/user/60852.xls
Nun steht auch in Spaltee J+K, Zeile 7 der ersten Woche (Zeile 2-6) die Formel.
Allerdings steht in J nun:
J = Summe Nettozeit minus Sonntagsarbeit (aktuelle Woche)
der zweite Teil
plus Sonntagsarbeit (Vorwoche)
wie für die anderen Ergebnis-Zellen, gilt hier nicht, weil es ja keine Vorwoche gibt.
deine Frage:
Die Zuordnung der zu bewertenden Bereiche
ergibt sich aus der For/Next-Schleife.
For loZaehler = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
Die Schleife beginnt in Zeile 2 und endet in der letzten,genutzten Zelle in Spalte C.
If loStart1 = 0 Then loStart1 = loZaehler
loStart erhält nur dann den gleichen Wert wie den Zähler der Schleife, wenn loStart1 gleich 0 ist.
Damit wird der Start für die jeweilige Woche festgelegt.
If InStr(.Range("C" & loZaehler).Text, "Ergebnis") größer 0 Then
hier erfolgt die Suche nach dem Wort "Ergebnis" in Spalte C
loEnde1 = loZaehler - 1
Wenn gefunden, erhält loEnde1 die letzte Zeile für die jeweilige Woche
If loStart1 größer 2 Then
NUR, wenn loStart1 (der Beginn einer Woche) GRÖSSER als 2 ist (2 = Beginn der ERSTEN Woche), dann soll in Spalte J DIE Formel eingetragen werden, die für alle Wochen, außer Woche 1 gültig ist.
Für Spalte K wird immer dieselbe Formel eingetragen.
loStart2 = loStart1
loEnde2 = loEnde1
loStart2 UND loEnde2 werden die Werte (Zeilennummern) von loStart1 und loEnde1 zugewiesen.
Zur Erinnerung: loStart1 + loEnde1 kennzeichnen die jeweils AKTUELLE Woche. Aber im NÄCHSTEN Schleifendurchlauf sind die "alten" Werte von loStart1 + loEnde1 die Werte der VORWOCHE.
Else
Else steht in diesem Fall für...
NUR, wenn loStart1 NICHT GRÖSSER als 2 ist, dann trage die Formeln für die ERSTE Woche ein.
loStart2 = loStart1
loEnde2 = loEnde1
Auch hier gilt nach Formeleintrag für Woche 1, dass die Zeilennummern aus loStart1 + loEnde1 an loStart2 + loEnde2 übergeben werden.
End If
Beendet den Code, der ausgeführt werden soll, wenn loStart größer , bzw nicht größer 2.
loStart1 = 0
Hier wird loStart1 wieder auf 0 gesetzt, damit loStart1 wieder zu Beginn der For/Next-Schleife wieder die jeweils erste Zeile der aktuellen Woche übergeben kann.
End If
Beendet den Code, der ausgeführt werden soll, wenn in Spalte C das Wort "Ergebnis" gefunden wird.
Next
Beendet, bzw wiederholt den Code, der innerhalb der For/Next-Schleife so lange ausgeführt werden soll, bis die lettze, eingetragene Zeile in Spalte C erreicht ist.
Soooo....läuft die Datei nun genau nach deinen Wünschen?
Du solltest dir mit dem Antworten nicht immer sooooo viel Zeit lassen, da jede einmal gestellte Frage irgendwann im Archiv verschwindet, und du dann nicht mehr antworten kannst.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread