Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen mit Nullwerten nicht im Diagramm anzeigen

Zeilen mit Nullwerten nicht im Diagramm anzeigen
29.01.2004 10:24:17
Christoph Heynen
Hallo,
mit VBA möchte ich ein xy-Diagramm erstellen, bei dem Nullwerte nicht als Reihe mit aufgenommen werden. Das Erstellen des Diagramms funktioniert ganz gut. Nur das Abfragen der Zeilen mit Nullwerten will nocht nicht klappen (siehe Worksheet-Abfrage unten im code) Kann mir jemand helfen. Danke!
Gruß
Christoph
--------------------
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("ghi").Range("A1")
j = 1
For i = 10 To 111
If Worksheets("abc").Range(i, 9).Value = 0 Then
Else
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(j).XValues = "='abc'!R" & i & "C9"
ActiveChart.SeriesCollection(j).Values = "='def'!R" & i & "C9"
ActiveChart.SeriesCollection(j).Name = "='abc'!R" & i & "C3"
End If
j = j + 1
Next
ActiveChart.Location Where:=xlLocationAsObject, Name:="ghi"
-----------------

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit Nullwerten nicht im Diagramm anzeigen
29.01.2004 10:31:46
Josef Ehrensberger
Hallo Christoph!
Probier mal so.


For i = 10 To 111
If Worksheets("abc").Range(i, 9).Value <> 0 Then
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(j).XValues = "='abc'!R" & i & "C9"
ActiveChart.SeriesCollection(j).Values = "='def'!R" & i & "C9"
ActiveChart.SeriesCollection(j).Name = "='abc'!R" & i & "C3"
End If
j = j + 1
Next

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: Zeilen mit Nullwerten nicht im Diagramm anzeigen
29.01.2004 10:43:50
Christoph
Deine Version ist einfacher als die meine (das else fällt weg ) - danke. Leider funktioniert aber auch deine Version nicht - Excel stürzt bei der Worksheets-Abfrage nach 5 sek. Überlegen ab (sowohl bei deiner als auch bei meiner Version). Ratlos.

362 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige