Jeg har søgt længe, men må nu have lidt hjælp:

 

Jeg har lavet et regneark der, vha. iteration, beregner indetemperaturen i et rum. Denne beregning foretages på baggrund af flere variable vejrdata. Beregningen sker i et ark, og jeg har så alle vejrdata for hver enkelt time liggende i et andet ark. Jeg har vha. sum.hvis(...) funktionen fået hele beregningen til at afhænge af én celle ("U1"), hvor jeg så indtaster et timetal (f.eks. 10, som er 1. jan. kl. 10:00).

Jeg vil gerne kunne udregne, og opskrive indetemperaturen for alle timer.

Det mit script skal gøre er derfor: lave et counter der starter ved 1 og går til 8760. Indsætte "1" i U1, skrive resultatet af indetemperaturen i en f.eks. S2, indsætte "2" i U1, skrive resultatet i S3 osv.

 

Håber mit problem er forståeligt, og at nogen kan hjælpe...

 

Private Sub Beregnti()
Dim Time As Integer
Range("U2") = 1
For Time = 1 To 8760
Cells(Time + 1, 19) = Range("U10")
Time = Range("U2") + 1
Range("U2") = Time

Next Time
End Sub

 

Fedt du fik løst problemet selv.

Det lyder virkelig interessant dit projekt, helt og lykke med det!

 

//Allan