Hallo Till,

hab mir alles nochmal genau angesehen.

Ja, ich drücke nur F8. Hab mittlerweile auch kein "Select" mehr drin. Das Programm durchläuft diese Diagrammerstellung

innerhalb einer Do-Schleife. Für alle Benutzer, die z.B. in Zelle A1 bis A3 stehen, wird je 1 Diagramm erstellt bis zur ersten

leeren Zelle A4. Damit wird die Schleife verlassen und man hat 3 Diagramme. Klappt alles super, nur die Schriftformatierungen

der Legende und des Titels bleiben nur beim ersten der Diagramme erhalten. Teilweise hat auch die Reihenfolge der

Formatierungen Auswirkungen. Wenn ich z.B. die Positionsänderung ans Ende stelle, passt die Formatierung bei allen 3 nicht mehr.

Sehr merkwürdig, erst recht für einen Amateur.

With ActiveChart
      .ChartType = xlPie
      .SeriesCollection(1).XValues = Sheets("Benutzer").Range("B1:D1")
      .SeriesCollection(1).Values = Sheets("Benutzer").Range("B" & Benutzernummer + 2 & ":D" & Benutzernummer + 2)
      .Location Where:=xlLocationAsObject, Name:="Benutzer"
    End With

    With ActiveChart.Parent
      .Top = YPosition
      .Left = 10
      .Height = 200
      .Width = 200
    End With
    YPosition = YPosition + 215

    With ActiveChart.SeriesCollection(1).Points(3).Interior
        .ColorIndex = 10
        .Pattern = xlSolid
    End With

    With ActiveChart.SeriesCollection(1).Points(1).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
  
    With ActiveChart.SeriesCollection(1).Points(2).Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
 
    With ActiveChart
      .HasTitle = True
      .ChartTitle.Characters.Text = "Statistik von " & Benutzer
      .HasLegend = True
    End With

    With ActiveChart.Legend
      .Position = xlBottom
      .Width = 150
      .Height = 30
      .Left = 22
      .Font.Size = 8
    End With

    With ActiveChart.ChartTitle
      .Font.Size = 10
    End With