---

Hej
Hvilke formel skal jeg bruge?

I et regneark har jeg i faneblad ark 1 skrevet data ind i en år-række dvs.:

dato uge måler 1 måler 2 måler 3 osv.
01.01.2011 1 2563 3654 5214
07.01.2011 2 2654 3860 5425
osv. i mange år

I et andet faneblad ark 2 vil jeg så gerne kunne hente forskellige år hen ved at skrive et årstal og
derved så få alle 52 uger derover eller hvor mange der nu er. nogle år er der jo 53 uger.

Jeg har prøvet med indirekte - adresse - lopslag men kan ikke få det til at fungere.

Er her en som kan hjælpe mig lidt på vej hvilke formler der skal bruges for at kunne liste disse data over i ark 2 fra ark 1 ?

---

Hej Peter

Det er nok en makro, der skal til
Prøv evt. denne:

Application.ScreenUpdating = False
Ark2.Range("A3:E200000").ClearContents
Y = 3
År = InputBox("Indtast ønsket År", "Årstal")
Ark2.Range("B1") = År
For X = 1 To Ark1.Range("A" & Rows.Count).End(xlUp).Row
If Right(Ark1.Range("A" & X), 4) = År Then
Dato = Ark1.Range("A" & X)
Uge = Ark1.Range("B" & X)
Måler1 = Ark1.Range("C" & X)
Måler2 = Ark1.Range("D" & X)
Måler3 = Ark1.Range("E" & X)
Ark2.Range("A" & Y) = Dato
Ark2.Range("B" & Y) = Uge
Ark2.Range("C" & Y) = Måler1
Ark2.Range("D" & Y) = Måler2
Ark2.Range("E" & Y) = Måler3
Y = Y + 1
End If
Next

I ark2 har jeg jeg skrevet som vist på billedet her: http://imgur.com/fU2fOMz


Mvh
CiViC

---

Tusind tak for hjælpen, ja jeg var længe om det, kunne ikke lige få det til at spille med det samme.

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.