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