Hallo,

ich hatte letzte Woche Freitag schon einmal dieses Problem beschrieben.
Ein freundlicher User hat mir auch eine Antwort gegeben, mit der ich jedoch nicht so richtig weitergekommen bin.
Mein Code sieht - mit seiner Hilfe - zur Zeit so aus, funzt aber nicht so wie ich es will:


lar = Cells(Rows.Count, 2).End(xlUp).Row

Sheets("Diagramm").Select
ActiveChart.SeriesCollection(1).XValues = "=Hilfstabelle!R2C1:R500C1"
ActiveChart.SeriesCollection(1).Values = "=Hilfstabelle!R2C2:R500C2"


With ActiveChart.Axes(xlValue)

MaximumScale = lar

End With


Alles was ich will ist, dass das Diagramm nur so viele Balken anzeigt, wie auch Daten in
der Tabelle stehen.

Für Hilfe wäre ich sehr dankbar.
Viele Grüße,
Rüdiger