Graf efter Dato interval. Makro.

Er der virkelig ikke nogen som har in ide til en løsning?

joo hvilke kolonner har du data i, og  data typer

her er en makro der finder de forskellige datoer (i A kolonnen), og lægger værdierne sammen i B kolonnen.

resultatet skrives i C og D kolonnen, som du så baserer din graf på.

Sub TælDageSammen()
Dim A As Integer, B As Integer, Data As Variant, Res As Variant
Dim DStart As Date, DSlut As Date
DStart = Format(InputBox(" indtast startdato"), "dd-mm-yyyy")
DSlut = Format(InputBox(" indtast slutdato"), "dd-mm-yyyy")
B = Range("B65536").End(xlUp).Row ' finder sidste række med data
Data = Range("A1:B" & B) ' Datotid i kolonne A og værdier kolonne B
Res = Range("C1:D" & B) ' Skriver resultatet i Kolonne C og D
For T = 1 To UBound(Data)
If Format(Data(T, 1), "dd-mm-yyyy") >= DStart And _
Format(Data(T, 1), "dd-mm-yyyy") <= DSlut Then
For i = 1 To UBound(Res)
If Res(i, 1) = Format(Data(T, 1), "dd-mm-yyyy") Then
Res(i, 2) = Res(i, 2) + Data(T, 2)
GoTo Næste
End If
If Res(i, 1) = "" Then
Res(i, 1) = Format(Data(T, 1), "dd-mm-yyyy")
Res(i, 2) = Res(i, 2) + Data(T, 2)
GoTo Næste
End If
Next
End If
Næste:
Next
Range("C1:D" & B) = Res 'Skriver i C og D kolonnen
End Sub

Jeg har pt data stående med datoer/tider i række 1, og data nedad. Men jeg kan jo bare transponere. (det ville egentlig også være bedst i længden - jeg regner med at få flere datasæt end der er kolonner).

Har lige prøvet sagerne - Der sker ikke rigtigt noget. Jeg må nok lige studere det lidt.... (for det plejer jo at virke..)

husk at indtaste datoen korrekt dd-mm-åååå

der regner kun på kolonne B i øjeblikket, så der skal jo helst stå tal der.
Datotid skal stå i A kolonnen

du må ikke have noget i C og D kolonnen.

jeg prøver lige at rette til (og jo, dato'er var skrevet rigtigt.) Jeg har tømt kolonne c og d. (jeg havde mine dato'er i kolonne a - dem rykker jeg lige...)

Det virker ikke helt endnu, men jeg må arbejde lidt videre med sagerne...

Smider du lige et svar kabbak - så jeg kan få lukket sp.

Prøv at sende det ark det drejer sig om til mig, så ser jeg på det.

post#kabbak@tiscali.dk

fjern post#

Lukketid.