Tomme celler i forbindelse med diagrammer

Indsæt en formel  =NA() eller på dansk vist noget med =IKKE.TILGÆNGELIG() Det forstår grafen og tegner ikke noget for det punkt.

Hvad mener du mere præcist med indsæt en formel, hvor skal jeg indsætte formlen henne??

Syntes det ødelægger overskueligheden i regnearket når der i tomme celler skal fremgå #I/T. Er der ikke en smartere måde end dette?

ide - du kan have to sæt af data - den ene sæt er overskueligt, og det andet sæt henter oplysninger fra det første eller indsæter #I/T, og så laver du grafen fra det andet datasæt.

Tak Flemming, det er også min eneste umiddelbare løsning. Jeg er igang med at implementere den.

Hmm, virker kun med værdier og ikke tekst. Hvis jeg eksempelvis vil have tekst på X-aksen så fremkommer også de steder hvor der står #I/T . Nogle ideer???

Problemet er at Excell tror der er lige så mange værdier som der er celler hvorfor x-aksen altid vil være lige så lang som antallet af rækker. Det burde kunne lade sig gøre at ændre dette såfremt man har et dynamisk regneark.

det kan man også, hvis man f.eks. koder sig til det... ellers ved jeg det ikke.

Jeg stopper her. God fornøjelse

En idé kunne være benytte en macro der skjuler de rækker der er tomme, så vil de ikke komme med i diagrammet.

Kunne dette evt. bruges
http://www.eksperten.dk/spm/332038

og denne
http://www.eksperten.dk/spm/383596

put denne kode i arkets kodemodul
forudsætter du har dine tekster i A1:A20 og værdier i B1:B20 ellers ret til

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub
Dim x, y, v, c
Application.EnableEvents = False
c = ActiveCell.Address
Application.ScreenUpdating = False
x = Range("A1:B20")
For Each v In Range("B1:B20")
If v = "" Then v.Offset(0, -1) = ""
Next

Range("A1:B20").Select
Selection.SpecialCells(xlCellTypeConstants, 3).Select
y = Selection.Address
   
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Ark3").Range(y), PlotBy:=xlColumns

Range("A1:B20") = x
Range(c).Select
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

hvis dine værdier genereres via formler, så virker kommentar 12:56:05 ikke

En hel masse flotte løsninger må jeg sige, men er det overhovedet nødvendigt idet et cirkeldiagram viser et udsnit i % og dermed vil de tomme værdier jo slet ikke indgå.

men hvad med kategorina mrjh :-)

Ja det har du ret i excelent. Det skal man så i givet fald leve med ellers dur det ikke.

tror denne klarer sagen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, v
Dim oArea As Range
Dim rng As Range
Application.ScreenUpdating = False
v = ActiveCell.Address
Range("A1:B20").Select
  'Selection.SpecialCells(xlCellTypeConstants, 1).Offset(0, -1).Select
  Selection.SpecialCells(xlCellTypeFormulas, 1).Offset(0, -1).Select
  For Each oArea In Selection.Areas
    If rng Is Nothing Then
      Set rng = oArea.Resize(, 2)
      Else
      Set rng = Union(rng, oArea.Resize(, 2))
    End If
  Next oArea
  x = rng.Address
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Ark1").Range(x), PlotBy:=xlColumns
Application.ScreenUpdating = True
Range(v).Select
End Sub

Et alternativ er at sætte autofilter på.
Filtre så på rækker > 0
Grafen vil så automatisk kun afspejle disse rækker og det gælder også for kategorinaerne.

Elegant løsning bak :-)

hvorfor beep beep beep tænkte jeg ikke på det :-)

tak :-)

Hey Igen. tak for de mange svar. Jeg tror dog det bliver for kompliceret for mit lille regneark og jeg må leve med at ændre kildedata i mine diagrammer løbende.

At sætte et autofilter på din data er da ikke kompliceret.
Bare vælg Data/autofilter og filterer så Brugerdefineret >0

Hey Bak
Autofilter virker glimrende, men hvis der efter en beregning kommer en ny række i datagrundlaget som skal medtages i graferne, så skal man igen manuelt sortere.
Kan dette undgåes??

hvor kommer dine værdier fra (dem som indgår i grafen)
hvad hedder dit ark (med grafen)