Bubble-Diagramm und nicht akzeptierte Nullwerte

Forumthread: Bubble-Diagramm und nicht akzeptierte Nullwerte
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bubble-Diagramm und nicht akzeptierte Nullwerte

18.09.2006 20:40:37

Bernd

Liebe Excel-profis,
ich kämpfe damit, dass in einem Bubblediagramm auch Nullwerte akzeptiert werden. Leider bricht das Makro bei zwei und mehr Nullwerten mit einer Fehlermeldung ab.
Wer kann und will mir helfen? Ich weiss nicht mehr weiter und es wäre wichtig für mich (Arbeit). Bitte um eure Unerstützung.
https://www.herber.de/bbs/user/36770.xls
Vielen Dank vorab.
Bernd

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bubble-Diagramm und nicht akzeptierte Nullwerte

18.09.2006 23:11:11

Herbert
AW: Bubble-Diagramm und nicht akzeptierte Nullwerte

19.09.2006 11:22:56

Herbert
@Herbert

19.09.2006 14:18:43

Bernd
AW: @Herbert

19.09.2006 20:20:06

Herbert
Danke, Herbert. Problem gelöst.

19.09.2006 23:09:17

Bernd

AW: Bubble-Diagramm und nicht akzeptierte Nullwerte

18.09.2006 23:11:11

Herbert

hallo Bernd,
so müßte es schon gehen...

For j = Startzeile To Endzeile
        If ws.Cells(j, Spalte + 4).Value > 0 Then
            .Points(j - 3).DataLabel.Text = ws.Cells(j, Spalte).Value
        End If
    Next
     gruß herbert

AW: Bubble-Diagramm und nicht akzeptierte Nullwerte

19.09.2006 11:22:56

Herbert

hallo Bernd,
ich habe zu wenig reinkopiert...
die "Worksheet"-Variable muß du natürlich auch deklarieren...
oder das "Worksheet" direkt dazuschreiben...
Dim ws As Worksheet
Set ws = Worksheets("Wertetabelle")
gruß Herbert

@Herbert

19.09.2006 14:18:43

Bernd

Hi Herbert,
Danke dir für deine Unterstützung. Die Nullwerte werden jetzt ignoriert. Leider wird aber auch die korrekte Färbung der Bubbles nicht vorgenommen. Die Nullwerte verhindern scheinbar ein korrektes Durchlaufen des Makros 'Bubblefarbe".
Beispielsweise müßten die beiden letzten Projekte mit dem Risiko A eine rote Bubblefärbung haben, wenn ich die Schaltfläche "Diagramm aktualisieren" drücke. Erst wenn ich die Nullwerte lösche, dann werden die Farben korrekt dargestellt.
Herbert, willst du noch mal drüber schau'n?
Hier dies mit deinem Makrotipp modifizierte Datei:
https://www.herber.de/bbs/user/36793.xls
Danke und Gruß
Bernd

AW: @Herbert

19.09.2006 20:20:06

Herbert

hallo Bernd,
ganz einfach:
If Worksheets("Wertetabelle").Cells(i, 7) = "A" And Worksheets("Wertetabelle").Cells(i, 6) &gt 0 Then
gruß Herbert

Danke, Herbert. Problem gelöst.

19.09.2006 23:09:17

Bernd

Hi Herbert,
Du glaubst gar nicht, wie dankbar ich Dir bin. War super nett von Dir. Gerne würde ich Dir ein Bier ausgeben. Leider geht das halt nicht...
Nochmals : DANKE !!!
Hier das fertige Ergebnis, falls mal ein Anderer ein ähnliches Problem hat...
https://www.herber.de/bbs/user/36820.xls
Grüße
Bernd