Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
172to176
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
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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




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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige