Office: (Office 2019) Excel Tabelle in eine andere Tabelle schreiben

Vergebliche Liebesmüh.
Der Fragesteller sucht nicht einfachen Lösungen sondern nach einer VBA-Lösung.

 

Hallo Ralf,
vielen dank für Deine Pivot-Tabelle.
Da mir hier keiner mit VBA-Code helfen wollte, habe ich gedacht, dass ich die Community nerve :-).
Aber sehr gerne stelle ich der Allgemeinheit meinen "dirty"-code zur Verfügung und freue mich, wenn den Code einer clean macht und evt. optimiert. Ist leider alles fest im Programmcode verdrahtet und ein bisschen variabler wäre schön.
Leider sind auch keiner Plausibilitätsprüfungen drin, so dass ich bei falschem Datenformat schon einmal eine Endlosschleife hatte :-(

Aber Hauptsache es erfüllt seinen Zweck und ich kann damit arbeiten :-)

Hier nun der Code:
Sub BedingteKopieZeilen()

Dim Zeile As Long
Dim ZeileMax As Long
Dim Summekw As Single
Dim n As Long
Dim Stunde As Long
Dim Minute As Long
Dim Kw As Single

Dim Text As Date

Summekw = 0
Kw = 0

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 1 To ZeileMax

Text = .Cells(Zeile, 2).Value
Stunde = Mid(Text, 1, 2)
Minute = Mid(Text, 4, 2)

Kw = .Cells(Zeile, 3).Value
Summekw = Summekw + Kw

If Minute = 45 Then
Worksheets("Tabelle2").Cells(n, 1) = .Cells(Zeile, 1)
Worksheets("Tabelle2").Cells(n, 2) = Stunde
Worksheets("Tabelle2").Cells(n, 3) = Summekw

Summekw = 0
n = n + 1
End If

Next Zeile
End With
End Sub

... Excel-Tabelle konnte ich leider nicht hochladen, da angeblich zu groß (ist aber nur 2,7 MB!). Sorry

 

Hallo
Hier die etwas verspätete Datei ohne Formel mittels PQ.
Da der TE ja nur mit Makro arbeiten möchte wird Ihm meine Lösung nicht interessieren, aber vielleicht andere