Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe nach Kalenderwoche

Summe nach Kalenderwoche
14.06.2003 13:16:14
RomanoWirth
Hallo Excelfreunde,

In Spalte A stehen Datum vom 1.1.1998 bis 31.12.2006

In Spalte B stehen pro Tag ein Geldbetrag oder nichts.

Ich möchte nun in Spalte C, jeweils am Ende einer Kalenderwoche, die Beträge aus Spalte B summieren, also
für jede Kalenderwoche(nach DIN) eine Summe.

Ist das ein Fall für VBA oder geht das auch mit Formel?

Danke schon mal!

Gruß Romano

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Summe nach Kalenderwoche
14.06.2003 13:18:46
Georg_Zi

Hallo Romano

füge ein Hilfsspalte ein in der die Kalenderwoche steht.

Warum muß es so eine komplizierte Formel sein Erklärung von WF
Die Funktion KALENDERWOCHE rechnet falsch oder sagen wir es gnädiger: nach amerikanischem Standard. Der 01.01.2000 z.B. ist laut DIN die 52. KW des Jahres 1999; - in den USA die erste im Jahre 2000. Das hab ich mir irgendwann mal kopiert:
Erst 1976 wurde der Wochenbeginn auf Montag festgelegt. Die erste Woche des Jahres ist definiert als die Woche, in die mindestens 4 Tage fallen. Beides = DIN 1355 (1974) Entspricht der internationalen Norm ISO 8601 (1988); -übernommen von der EU als EN 28601 (1992) und in Deutschland als DIN EN 28601 (1993) umgesetzt.
=KÜRZEN((G6-WOCHENTAG(G6;2)-DATUM(JAHR(G6+4-WOCHENTAG(G6;2));1;-10))/7)&". KW"
von WF

und dann Summewenn

Gruß Hajo

Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Anzeige
Danke für den Tipp, aber...
14.06.2003 13:23:51
RomanoWirth

Hallo Georg,
eine Hilfsspalte geht aufgrund der bestehenden Tabelle nicht, ich muss mit Spalte C auskommen.

Gruß Romano

Re: Danke für den Tipp, aber...
14.06.2003 13:40:25
L.Vira

Mit Formel gehts sicher auch, hier mal mit VBA:
Option Explicit
Function KW_DIN(Datum As Date) As Integer
Dim D As Date
D = Datum
KW_DIN = _
Fix((D - Weekday(D, 2) - DateSerial(Year(D + 4 - Weekday(D, 2)), 1, -10)) / 7)
End Function
''---------------------------------------------------------------
Sub Summe_KW()
Dim z As Long, lZ As Long, KW As Integer, Summ As Double
lZ = 65536: If [a65536] = "" Then lZ = [a65536].End(xlUp).Row
''Falls Überschriften vorhanden sind, dann For z = 2 to lZ
KW = KW_DIN(Cells(1, 1))
z = 1
Do
While Cells(z, 1) <> "" And KW_DIN(Cells(z, 1)) = KW
Summ = Summ + Cells(z, 2)
z = z + 1
Wend
Cells(z - 1, 3) = Summ
Summ = 0
KW = KW_DIN(Cells(z, 1))
Loop Until z >= lZ
End Sub

Anzeige
Perfekt, danke dir oT
14.06.2003 13:57:46
RomanoWirth

oo

Noch eine Frage...
14.06.2003 18:45:59
RomanoWirth

Hallo L.Vira,
was hat denn diese Zeile für eine Funktion?
''Falls Überschriften vorhanden sind, dann For z = 2 to lZ

Gruß Romano

Re: Noch eine Frage...
14.06.2003 19:25:50
L.Vira

Gar keine, hatte ich vergessen zu löschen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige