diagram af de svære

Måske !

måske sådan

Dim rgSearch As Range, lStartRow As Long, lEndRow As Long, rgNew As Range
Dim vStartWeek As Variant, vEndWeek As Variant

With ActiveSheet
'    .Rows("2:2").Insert Shift:=xlDown
'    .Rows("3:3").Copy Destination:=Range("A2")
'    .[A2] = .[A3] + 1
'    'søg og erstat ugen fra linien under med uge + 1
'    .Rows("2:2").Replace What:="uge " & [A3], Replacement:="uge " & [A3] + 1, LookAt:=xlPart,


Set rgSearch = .Range("A2:A53")
vStartWeek = [B2].Value
vEndWeek = [B3].Value
lStartRow = rgSearch.Find(What:=vStartWeek, After:=rgSearch(1, 1), LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Row
lEndRow = rgSearch.Find(What:=vEndWeek, After:=rgSearch(1, 1), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Row
Set rgNew = .Range("A" & lStartRow & ":A" & lEndRow)
End With
rgNew.Name = "Uge"
rgNew.Offset(, 6).Name = "stoptid"
rgNew.Offset(, 7).Name = "drifttid"
rgNew.Offset(, 8).Name = "runs"
rgNew.Offset(, 9).Name = "brutto"
rgNew.Offset(, 10).Name = "mbrutto"
rgNew.Offset(, 11).Name = "netto"
rgNew.Offset(, 12).Name = "mnetto"
rgNew.Offset(, 13).Name = "opstil"

End Sub

>bak

"driftstid" er defineret til kolonne "I" , men nu vil jeg gerne at det er kolonne "AC".

Kan man ikke rette det til for hver gang man kører makroen retter den tilbage til kolonne "I"

rgNew.Offset(, 7).Name = "drifttid"
betyder at "Drifttid" er forskudt 7 kolonner til højre for "Uge"

hvis du retter 7-tallet til 28 skulle du ramme kolonne AC

>bak

Et sidste spm (forhåbentlig) Jeg vil gerne at kildedata i diagrammet er de ovennævnte
"names" , men når jeg prøver at benytte dem kommer den med fejlmelding ?

Er er nogen speciel måde det skal gøres på ???

OK, der fandtes nogen der kunne forstå spørgsmålet - jeg er imponeret ;o)

Ja, det er der.
Lav først et diagram manuelt, som du synes det skal se ud.
Erstat så serierne med dine navne, med filnavnet foran
(Stil dig på en serie i grafen og rediger i formelbaren)
=SERIES( ; MinFil.xls!Uge ; MinFil.xls!mbrutto ; 1 )
Dette giver en graf hvor x-aksen er baseret på Uge og værdiene er baseret på mbrutto

Kan du ikke få det til at virke, så send lige arket til mig
excel snabela tbdl.dk eller giv mig en email-adresse så sender jeg et eksempel.
(hvis du sender arket til mig så skriv lige her at du har gjort det)

martin -> efter lidt nærlæsning og et par gæt ;-)

ark afsendt

>bak

Efter flere forsøg så lykkedes det !!!

Godt :-)
Ark sendt retur

tak for hjælpen

>bak  har du set min sidste mail ?

Da dine uger ikke er entydigede (fx på formen 2004-49) en du nødt til at justere rgSearch til nyt område der ikke har samme uge 2 gange

Set rgSearch = .Range("b46:b98")

Kan man muligvis benytte sig både af kolonne A (årstal) og kolonne B ( uge) ??