Chart ohne 0%

Computer: Software & Programmierung Visual Basic
#1

Hi

ich habe ein kleines Problem.

Ich lasse ein chart erstellen aus einen makro heraus.
es sollen 9 daten in einem kreisdiagramm dargestellt werden, nur es sind under den 9 daten auch mal spalten mit 0 dabei nur ich möchte diese nicht jedes mal im makro mit hand verändern, sondern das makro soll die mit 0 einfach nicht mit im diagramm darstellen.
mein makro sieht so aus :

Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets(„Analysis“).Range(„E123“)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = „=Variablen!R3C12:R3C20“
ActiveChart.SeriesCollection(1).Values = „=Variablen!R4C12:R4C20“
ActiveChart.SeriesCollection(1).name = „“
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
ActiveChart.Location Where:=xlLocationAsObject, name:=„Analysis“
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = „Analysis“
.Elevation = 55
.Perspective = 30
.Rotation = 110
.RightAngleAxes = False
.HeightPercent = 100
With .Parent
.Top = Range(„A1“).Top
.Left = Range(„A1“).Left
.Height = h
.Width = w
End With
With Selection.Interior
.ColorIndex = xlNone
.PatternColorIndex = 1
.Pattern = xlSolid
End With
With Selection.Border
.Weight = 1
.LineStyle = xlNone
End With
End With
ActiveChart.PlotArea.Select
With Selection.Border
.Weight = 1
.LineStyle = xlNone
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.ChartArea.Select

ich hoffe mir kann jemand helfen.

Vielen Dank

Gruß David

#2

Ich lasse ein chart erstellen aus einen makro heraus.
es sollen 9 daten in einem kreisdiagramm dargestellt werden,
nur es sind under den 9 daten auch mal spalten mit 0 dabei nur
ich möchte diese nicht jedes mal im makro mit hand verändern,
sondern das makro soll die mit 0 einfach nicht mit im diagramm
darstellen.

Hi David,

benutze bitte den pre-Tag wenn du Code zeigst.

„ich möchte diese nicht jedes mal im makro mit hand verändern“

Diesen Wunsch verstehe ich, mir ist aber nicht klar was das mit deinem Code, deiner Anfrage zu tun hat.

Nutzt es dir, von welchem VB sprichst du eigentlich? VB, Excel.Vba, …?, wenn ich sage schreib =NV() in die Zellen mit 0 ?

Gruß
Reinhard

#3

Hi Reinhard

danke für deine schnelle antwort.

ich nutze Excel.Vba

wenn ich =NV() in die zellen schreibe nützt es irgendwie nix.

mit dem Makrocode erstelle ich das diagramm und lese 9 spalten ein

ActiveChart.SeriesCollection(1).Values = "=(Variablen!R4C8,Variablen!R4C11)"

nur in 3-4 spalten stehen 0 drin aber diese 9 spalten in dem tabellenblatt „Variablen“ werden auch schon per makro erstellt.

und jetzt komm ich irgendwie nicht weiter.

Vielen Dank

Gruß
David

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hi David,

Ich lasse ein chart erstellen aus einen makro heraus.
es sollen 9 daten in einem kreisdiagramm dargestellt werden,
nur es sind under den 9 daten auch mal spalten mit 0 dabei nur
ich möchte diese nicht jedes mal im makro mit hand verändern,
sondern das makro soll die mit 0 einfach nicht mit im diagramm
darstellen.

ich nutze Excel.Vba

wenn ich =NV() in die zellen schreibe nützt es irgendwie nix.

ich habe das jetzt mit einem Kreisdiagramm nachgestellt, irgendwie ist es da wurscht ob die zelle leer ist, den Wert 0 oder #NV! hat, es wird kein kreissegment gezeichnet.

mit dem Makrocode erstelle ich das diagramm und lese 9 spalten
ein
ActiveChart.SeriesCollection(1).Values =
„=(Variablen!R4C8,Variablen!R4C11)“

Das sind zwei Werte!? So wären es 9 Werte:

Sub tt()
ActiveSheet.ChartObjects(„Diagramm 1“).Activate
ActiveChart.SeriesCollection(1).Values = „=Tabelle1!R4C8:R4C16“
End Sub

nur in 3-4 spalten stehen 0 drin aber diese 9 spalten in dem
tabellenblatt „Variablen“ werden auch schon per makro
erstellt.

Und , ist da ein Unterschied als wenn du die 9 Werte manuell eingibst?
Wenn du erst die Werte per makro erzeugst, dann die Werte dem Diagramm zuweist stimmt doch alles!?

und jetzt komm ich irgendwie nicht weiter.

Ich weiß jetzt nicht wohin du willst. Schau mal unter Extras–Optionen–Diagramm, helfen dir da die Optionen welche zellen gezeichnet werden sollen weiter?

Gruß
Reinhard

#5

Hi

unter extras-optionen-diagramm ist ja das feld angekreutzt „leere zellen werden nicht angezeigt“ nur ist es grau hinterlegt und es funktioniert nicht.

habe sogar die 9 werte von einem makro mit 0 löschen lassen, so das sie leer sind aber er schreibt sie immer noch im diagramm mit 0%.

ja die zeile ist

ActiveChart.SeriesCollection(1).Values = "=Variablen!R6C12:R6C20"

sorry

aber es funktioniert nicht mit hand einzeln schreiben oder wie auch immer, wenn ich jede einzelne zelle reinschreibe , also mit komma trenne wie zuvor ausversehen dargestellt ja dann geht alles.

Gruß

David

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#6

hi

ich benutze den explodierten 3D Kreis, eventuell hilft dir das weiter.

David

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]