Hvordan undgår jeg 'tomme' datoer

Lad Grafen referere til to navngivne områder F. eks. Dato og Data.

Ved navngivning definerer du Dato således (antager at datoerne står i kolonne A):

=OFFSET(Sheet1!$A$1;0;0;COUNTIF(Sheet1!$A:$A;"<="&TODAY()))

Og Data (i kolonne B):

=OFFSET(Sheet1!$B$1;0;0;COUNTIF(Sheet1!$A:$A;"=<"&TODAY()))

Så vil kun datoer før eller lig med dags dato komme med

Det får jeg ikke noget ud af
Mine datoer begynder i A4 og mine data begynder i B4
Mit sheet hedder Grafdata og jeg prøver så at skrive
=OFFSET(Grafdata!$A$1;0;0;COUNTIF(Grafdata!$A:$A;"<="&TODAY())) det giver en fejl #Value

=OFFSET(Grafdata!$B$1;0;0;COUNTIF(Grafdata!$A:$A;"=<"&TODAY())) giver en #REF

Du har byttet om på = og <
Her er formlerne igen tilpasset dine navne:

=OFFSET(Grafdata!$A$4;0;0;COUNTIF(Grafdata!$A:$A;"<="&TODAY()))

=OFFSET(Grafdata!$B$4;0;0;COUNTIF(Grafdata!$A:$A;"<="&TODAY()))

Jeg får stadig en #Value! og en #REF! fejl på de 2 formler
Jeg må gøre noget forkert som jeg ikke lige kan gennemskue

Gå ind i Name manager (i din engelske version er det lettest med shortcut Alt I, N, D). Definer et nyt område som Dato, gå ned i Refers to: Der indsætter du den første formel. Definer et andet område som Data, og under Refers to: indsætter du den anden formel.
På selve grafen skal referencen til hhv. X og Y aksen se således ud:
=grafdata!Dato
=grafdata!Data

Jeg må gøre noget dumt for jeg kan bare ikke få den til at skrive andet end #Value og #REF! ligegyldig om jeg følger din opskrift til punkt og prikke

Jeg kan godt kigge på arket, hvis du sender det til kober_soerensen(snabel-a)hotmail.com

Havde ikke lige set dit indlæg
Arket indeholder en del personlige oplysninger da det er et til registrering af diverse medicinske data i forbindelse med min behandling for cancer. Men hvis du er diskret og lover at slette det efterfølgende, så vil jeg da gerne om du vil kigge på det.

Det er nok bedst du selv sletter det inden du sender det, så du ikke kommer i karambolage med dataregisterloven

Der er ikke den slags oplysninger i skemaet :-)
Jeg har sendt det til din HotMail adresse

Jeg har med hjælp fra min fætter fået det til at virke med en makro. Og det er jo lige så godt når jeg nu har en udskriftsknap i forvejen

Da jeg ikke har hørt noget videre i sagen poster jeg min løsning her og lukker

  Dim SourceData As String
 
  Sheets("Grafdata").Select
  ActiveSheet.Unprotect
  Sheets("Grafdata").Select
  Range("B4").Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$3:$D$1200").AutoFilter Field:=2, Criteria1:="<>"
 
  SourceData = "Grafdata!"
  SourceData = SourceData & Range("Grafdata!A4:A" & Cells(4, 1).Offset(Range("Grafdata!A1048576").End(xlUp).Row - 4, 0).Row).SpecialCells(xlCellTypeVisible).Cells(1).Address
  SourceData = SourceData & ":" & Range("Grafdata!C4:C" & Cells(4, 1).Offset(Range("Grafdata!C1048576").End(xlUp).Row - 4, 0).Row).SpecialCells(xlCellTypeVisible).End(xlDown).Address

Debug.Print SourceData
 
  Sheets("Grafer").Select
  ActiveSheet.ChartObjects("Blood").Activate
 
  With ActiveChart
    .ChartArea.Select
    .Axes(xlCategory).Select

    .SetSourceData Source:=Range(SourceData)
    .HasTitle = True
    .HasLegend = True
    .SeriesCollection(1).Name = "SYS"
    .SeriesCollection(2).Name = "DIA"
  End With