ich habe manuell ein Diagramm erstellt, die Daten hab ich von einer Liste entnommen, sprich Anfange aktueller Monat bis heutigenm Datum.
Das Diagramm kann ich im Userform darstellen, dafür verwende ich den folgenden Code:
Dim Dateiname, diagramm
Set diagramm = Sheets("temp_datas").ChartObjects(1).Chart
diagramm.Parent.Width = Image1.Width
diagramm.Parent.Height = Image1.Height
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
diagramm.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
Das klappt auch soweit.Ich will nun, wie bereits erwähnt, dass das Diagramm automatisch sich dem aktuellen Monat anpasst, Start immer Anfang des Monats und Ende immer aktuelles Datum, also heute().
Ich hoffe es war verständlich und Ihr könnt mir weiterhelfen.
Vielen lieben Dank und LG
Urmila