Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon T_R_I_X_I vom 04.05.2019, 23:57 Options

Blasendiagramm erzeugen

Hallo zusammen
Habe das gleiche Problem wie schon mal in
diesem Form behandelt

http://www.supportnet.de/discussion/listmessages.asp?autoid=146874#createreply

Ich bin leider selbst mit diesem Input zu dumm um
mein Problem zu lösen.
Und ich stehe leider auch gewaltig unter Zeitdruck. Das Management braucht seine Grafiken Es soll grundsätzlich eine Risikomatrix mit der X-Achse = Häufigkeit und Y-Achse Schaden dargestellt werden.

Hat jemand Zeit mir dabei kurz zu helfen?

Meine Spalten sind wie folgt

Spalte1 - Name (Betr. Risikobjekt )
Spalte2 - X-Wert (Häufigkeit in )
Spalte3 - Y-Wert (Schaden)
Spalte4 - Größe der Blase

Danke!

Antwort schreiben

Antwort 1 von Beverly vom 05.05.2019, 08:08 Options

Hi,

erstelle ein Blasendiagramm mit einer Blase, indem du eine Zeile deiner Spalte2 bis Spalte4 markierst und lass anschließend folgenden Code ablaufen

Sub Makro1()
    Dim ns As Object
    Dim i As Integer
    Dim chDiagramm As Chart
    Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
    With chDiagramm
        .ChartType = xlBubble3DEffect
        For i = 1 To 100   '<-- Anzahl anpassen
            Set ns = .SeriesCollection.NewSeries
            ns.XValues = "=Tabelle1!R" & i & "C2"
            ns.Values = "=Tabelle1!R" & i & "C3"
            ns.Name = "=Tabelle1!R" & i & "C1"
            ns.BubbleSizes = "=Tabelle1!R" & i & "C4"
        Next i
        .SeriesCollection(1).Delete
    End With
End Sub

Da ich den genauen Aufbau deiner Wertetabelle nicht kenne, wird davon ausgegangen, dass die Werte in Spalte A bis D ab Zeile 1 stehen.

Bis später,
Karin

Antwort 2 von T_R_I_X_I vom 06.05.2019, 08:54 Options

Hi Karin
Hat soweit super funktioniert.

Danke für die Rettung in der Not...

Kannst Du mir vielleicht auch noch dabei helfen:

Gleiche Situation aber der Diagrammtyp soll ein Punktdiagramm sein.
Letztere Spalte entfällt dann.

Nochmals herzlichen Dank. Meine Präsentation
vor dem Management scheint dank Dir keine
Katastrophe zu werden.

Liebe Grüsse aus der Schweiz
Trixi

Antwort 3 von Beverly vom 06.05.2019, 09:42 Options

Hi Trixi,

das kannst du ganz einfach mit dem Makrorecorder aufzeichnen. Gehe dabei ganz mormal so vor, wie du es gewohnt bist, wenn du ein Punkt(XY)-Diagrmam erstellst.

Bis später,
Karin

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken