langsom sum på tabelopslag

må det være en vba løsning, som skal aktiveres manuel?

nej den må ikke skulle køres manuelt

Mit ark opdateres automatisk allerede hvert 15 min hvor den kører en macro

Application.OnTime Now + TimeValue("00:15:00"), "MyMacro"

måske hvis du har en løsning at det kan flettes ind i den

koden til macroen er


Public dTime As Date

Sub MyMacro()

dTime = Now + TimeValue("00:15:00")

Application.OnTime dTime, "MyMacro"
Application.ScreenUpdating = False

  On Error Resume Next
 
Dim data As Variant, X As Long, R As Long, I As Integer
    data = Worksheets("15 min stop inden for 25 min").Range("A1").CurrentRegion
    X = 1
    With Worksheets("15 min interval")
        For I = 1 To 28
            .Cells(X, I) = data(X, I)
        Next
        X = X + 1
        For R = 2 To UBound(data)
            If Minute(data(R, 1)) = 0 Or Minute(data(R, 1)) = 15 Or Minute(data(R, 1)) = 30 Or Minute(data(R, 1)) = 45 Then
                For I = 1 To 28
                    .Cells(X, I) = data(R, I)
                Next
                X = X + 1
            End If
        Next
    End With
   
   
    Sheets("diagram").PrintOut Copies:=1, Collate:=True
   

Application.ScreenUpdating = True

her du prøvet om sumprodukt er lige så langsom

=SUMPRODUKT(('konverter til ugedag og tid'!$A$2:$A$193>=A14)*('konverter til ugedag og tid'!$A$2:$A$193<=A15)*('konverter til ugedag og tid'!$B$2:$B$193))

Ellers kan du evt prøve sende den til mig på:
jacob,lemming(a)mail,dk

jeg kan først teste det på fredag når jeg er på arbejde igen...

Hej Jacob

jeg har selv løst problemet så det kører fornuftigt. jeg satte en if sætning ind da det kun er 3 intervaller der skal være synligt, dette gjorde at der var ca 70% færre beregninger den skulle igennem... nu kører det acceptabelt.

=IF(D31=1;SUM(('konverter til ugedag og tid'!$A$2:$A$193>=A31)*('konverter til ugedag og tid'!$A$2:$A$193<A32)*('konverter til ugedag og tid'!$C$2:$C$193));0)

eks:
d3 er lig 1 hvis tidspunkterne onsdag 18.00 og torsdag 06.00 begge er i opslaget

jeg har ikke testet sumprodukt men er da villig til at give dig nogle points for det....

men tak for hjælpen

nå nu lukker jeg dette spørgsmål