Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kummulieren von Werten innerhalb def. Zeiträume

Forumthread: Kummulieren von Werten innerhalb def. Zeiträume

Kummulieren von Werten innerhalb def. Zeiträume
26.10.2002 15:48:20
Tom
Hallo Cracks,
ich habe eine Tabelle mit einer Spalte Datumswerten und einer weiteren Spalte mit Stundenwerte im Standardformat.

Bsp:
Datum Wert
1.1.2001 5
1.1.2001 3
1.1.2001 2
2.1.2001 8
3.1.2001 1
3.1.2001 5
etc.


Ich möchte nun für jedes Datum die Summe der jeweiligen Stunden errechnen, sodass ich am Ende folgendes Ergebnis erziele:
1.1.2001 10 Stunden
2.1.2001 8 Stunden
3.1.2001 6 Stunden

Besten Dank

Tom




Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kummulieren von Werten innerhalb def. Zeiträume
26.10.2002 16:55:47
Dieter Maj
Hallo Tom
hier ein kleiner Ansatz:
das Makro sortiert nach Spalte 1, löscht alle doppelten Zellen in Spalte 1 und addiert gleichzeitig alle doppelten Werte (Spalte 2)

Sub doppel()
Dim lRow As Integer
Dim Z As Integer

If Len(Cells(1, 1)) > 2 Then
With Cells(1, 1).CurrentRegion
.Sort Key1:=Cells(1, 1), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
lRow = .Rows.Count
End With
Else
With Cells(1, 1).CurrentRegion
.Sort Key1:=Cells(1, 1), Order1:=xlAscending, _ Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
lRow = .Rows.Count
End With
End If

For Z = lRow To 2 Step -1
If UCase(Cells(Z, 1)) = UCase(Cells(Z - 1, 1)) Then
Cells(Z - 1, 2) = Cells(Z - 1, 2) + Cells(Z, 2)
lösch:
Range(Cells(Z, 1), Cells(Z, 2)).Delete Shift:=xlUp
Else

End If
Next Z
End Sub

falls du nicht zurechtkommst maile ich dir gern ein kleines Beispiel

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige