Thema Datum  Von Nutzer Rating
Antwort
29.04.2020 23:18:58 Zilan
NotSolved
30.04.2020 15:19:36 Zilan
NotSolved
Rot kreisdiagramm erstellen aber nur mit gewissen Daten
 30.04.2020 23:20:57 Zilan
Solved

Ansicht des Beitrags:
Von:
Zilan		 Datum:
30.04.2020 23:20:57		 Views:
505		 Rating:
     
Antwort:
 Nein
Thema:
kreisdiagramm erstellen aber nur mit gewissen Daten

Ich hab jetzt nun eine prima funktionierende Lösung erhalten aus dem Herbert Forum. Falls andere mal das gleiche Problem haben hier der Code:

Sub Kreisdiagramm2()
    Dim intSpalte As Integer
    Dim rngBereich As Range
    Dim chrDia
    If ActiveSheet.ChartObjects.Count = 1 Then
        For Each chrDia In ActiveSheet.ChartObjects
            If chrDia.Chart.ChartType = xlPie Then Exit For
        Next chrDia
    Else
        Set chrDia = ActiveSheet.Shapes.AddChart2(251, xlPie)
    With chrDia.Chart
        .SetSourceData Source:=Range("D3:J4")
        .FullSeriesCollection(1).ApplyDataLabels
        With .FullSeriesCollection(1).DataLabels
            .Position = xlLabelPositionOutsideEnd
            .ShowValue = False
            .ShowRange = True
            .Format.TextFrame2.TextRange. _
                    InsertChartField msoChartFieldRange, "Tabelle1!D6:J6"
        End With
        .HasLegend = False
    End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.04.2020 23:18:58 Zilan
NotSolved
30.04.2020 15:19:36 Zilan
NotSolved
Rot kreisdiagramm erstellen aber nur mit gewissen Daten
 30.04.2020 23:20:57 Zilan
Solved