Hallo,
ich bin noch Anfänger was Makros angeht und habe folgendes Problem.
Ich habe eine Tabelle hier der link dazu:
( http://www.loaditup.de/126317.html ) (Beispieltabelle die das Problem erläutert).
Im Datenblatt Daten sind zu jedem Datum 3 Werte. Das Makro soll die 3 Werte pro Tag summieren und als Ergebnis pro Tag ausgegeben werden. Ich habe jetzt angefangen, kriege aber die drei Werte nicht summiert.
Bzw. weiß nicht wie ich dran gehen soll, da die Zellen sich ja immer verändern.
Bis jetzt sieht es so aus:
Sub ersterVersuch()
Dim intzeile As Integer
Sheets(„daten“).Activate
With ActiveSheet
For intzeile = (2) To .UsedRange.Rows.Count Step 3
.Cells(intzeile, 5).Value = _
.Cells(intzeile, 1).Value
Next intzeile
End With
End Sub
Sub ersterVersuch2()
Dim intzeile As Integer
Sheets(„daten“).Activate
With ActiveSheet
For intzeile = (2) To .UsedRange.Rows.Count Step 3
.Cells(intzeile, 6).Value = _
.Cells(intzeile, 2).Value
Next intzeile
End With
End Sub
Schön wäre es, wenn beim Ergebnis nicht noch die 2 Zellen daziwschen wären und es auf einem neuen Datenblatt ausgegebenn würde. Nur das ist erstmal nicht wichtig.
Das weitere Problem ist, dass die Anzahl der Tage und auch die Anzahl der Werte unterschiedlich ist. In der Beispieltabelle sind es immer 3 Werte wobei dies nur zur Vereinfachung so ist. Ich muss es noch hinbekommen, dass er erkennt wann das Datum wechselt und die entsprechenden Werte der Spalte „Anzahl“ für den Tag summiert.
Hat jemand verstanden was ich meine?
Wäre nett wenn mir jemand helfen könnte.
Viel Dank.
