Excel Makro Sprung von Zeile zu Zeile

[Ellie123]

Hi :)
Ich bin neu hier und hoffe ihr könnt mir weiter helfen.
Ich werte gerade auf Excel einen Verbrauch im 1h Takt über ein Jahr verteilt aus (8760 Werte).
Jetzt möchte ich für ein Projekt diesen Verbrauch in 15-Minuten-Werte (35.040 Werte) aufteilen.
Das heißt jeder 1h Wert in kWh muss 4x in 15 Minuten Werte der Stunde aufgeteilt werden.

Beispiel:
1.1. 2019 1:00 Uhr     => 1.1.2019 1:00
                                     1.1. 2019 1:15
                                     1.1. 2019 1:30
                                     1.1.2019 1:45
16 kWh => jeweils 4 kWh

1.1.2019 2:00 => 1.1.2019 2:00
                             1.1. 2019 2:15
                             1.1. 2019 2:30
                             1.1.2019 2:45
20 kWh => jeweils 5 kWh

Jetzt ist es aber total mühsam, dass für alle Werte der ganzen Tabelle händisch zu rechnen. Deswegen möchte ich gerne eine Funktion oder ein Makro schreiben, damit das automatisch berechnet wird.
Ich habe bereits ein Makro angefangen zu schreiben, jedoch fehlt mir ein bisschen der Hintergrund, um das für die Tabelle perfekt auszuführen.

Sub Schleife_in_Schleife()
Dim i As Long
Dim j As Long

For i = 5 To 35041
For j = 7 To 7
Cells(i, j).Value = CLng(Cells(3, 4).Value * 0.25)
Next j
Next i

End Sub

Hier würde es beispielsweise nicht auf eine neue Zeile springen, nachdem der Wert 4 Mal geteilt wurde.
Ich hoffe ihr versteht was ich meine und für Ratschläge und Tipps bin ich sehr dankbar  :17:

[RPP63]

Moin!
Warum VBA, wenn dies eine simple Formel erschlägt?

	A	B	C	D	E
1	Timestamp1	Verbrauch		Timestamp2	Verbrauch
2	01.01.2019 01:00	16		01.01.2019 01:00	4
3	01.01.2019 02:00	20		01.01.2019 01:15	4
4	01.01.2019 03:00	18		01.01.2019 01:30	4
5	01.01.2019 04:00	22		01.01.2019 01:45	4
6				01.01.2019 02:00	5
7				01.01.2019 02:15	5
8				01.01.2019 02:30	5
9				01.01.2019 02:45	5
10				01.01.2019 03:00	4,5
11				01.01.2019 03:15	4,5
12				01.01.2019 03:30	4,5
13				01.01.2019 03:45	4,5
14				01.01.2019 04:00	5,5
15				01.01.2019 04:15	5,5
16				01.01.2019 04:30	5,5
17				01.01.2019 04:45	5,5

Zelle	Formel
E2	=VERWEIS(UNTERGRENZE.MATHEMATIK(D2;1/24);A:B)/4
A3	=A2+ZEIT(1;;)
D3	=D2+ZEIT(;15;)
E3	=VERWEIS(UNTERGRENZE.MATHEMATIK(D3;1/24);A:B)/4

Gruß Ralf

[schauan]

Hallöchen,

das sieht mir nicht nach einer richtigen Schleife aus For j = 7 To 7

Du musst das anders gestalten, wenn wir bei Deiner Methode bleiben wollen. Gehe die 8760 Zeilen durch und schreibe jeweils 4 Zellen daneben die Aufteilung.

Im Prinzip

Code:

k = 1
For i = 1 To 8760
For j = k To k + 3
Cells(2, k) = Cells(1, i)
k = k + 1
Next
Next

Damit hättest Du dann jeden Eintrag aus Spalte A 4x in Spalte B. Und das geht natürlich auch mit Vierteln

[Ellie123]

Hallo Ralf und schauan,

ich möchte mich bei euch beiden bedanken :)
Hat alles super geklappt, wieder ein Stück weiter in meiner Masterarbeit.

Viele Grüße