Speicher und ChartSpace Problem

[LexLea]

Hallo zusammen

Da ich neu bin in der Excelwelt stosse ich nun an meine grenzen

Habe eine Userform mit Spreadsheet und ChartSpace sobald man ChartSpace1.DataSource = Spreadsheet1 eingibt kommt der fehler und ich komme nicht drauf was falsch läuft
Habe das OWD11 installiert

weiteres habe ich ein kleines Speicherproblem wie ich ein Teil der Textboxen in die Übersicht speichere
und bei +/o/- und der auswahl der Combobox " Scheibbs - St Pölten usw" in die jeweilige Tabelle und Spalte speichere

Habe in der Tabelle Menü mein altes Speicherungsystem dazugegeben so das man eine Vorstellung bekommt wie ich die Speicherung vorher gemacht habe

Habe alles im Excel Sheet

Wäre zu Dank verpflichtet für eure Hilfe

Lg lexlea


  Auditneu.xlsm (Größe: 430,19 KB / Downloads: 7)

[LexLea]

Hallo zusammen

Hätte mal etwas probiert
Leider mit nicht viel erfolg
das aufrufen der Userform dauert jetzt fast eine ewigkeit und das Diagramm wird immer noch nicht angezeigt

Code:

Dim z As Long, s As Integer
Dim c
   For z = 1 To 7
   For s = 1 To 4
       Spreadsheet1.ActiveSheet.Cells(z, s) = Sheets("Einstellungen").Cells(z, s)
   Next
Next
   For z = 2 To 77
   For s = 1 To 37
       Spreadsheet2.ActiveSheet.Cells(z, s) = Sheets("Scheibbs").Cells(z, s)
       Spreadsheet2.ActiveSheet.Columns("A:AK").AutoFit
   Next
Next
   For z = 2 To 77
   For s = 1 To 37
       Spreadsheet3.ActiveSheet.Cells(z, s) = Sheets("Purkersdorf").Cells(z, s)
       Spreadsheet3.ActiveSheet.Columns("A:AK").AutoFit
   Next
Next
   For z = 2 To 77
   For s = 1 To 37
       Spreadsheet4.ActiveSheet.Cells(z, s) = Sheets("St Pölten URB").Cells(z, s)
       Spreadsheet4.ActiveSheet.Columns("A:AK").AutoFit
   Next
Next
   For z = 2 To 77
   For s = 1 To 37
       Spreadsheet5.ActiveSheet.Cells(z, s) = Sheets("Lilienfeld").Cells(z, s)
       Spreadsheet5.ActiveSheet.Columns("A:AK").AutoFit
   Next
Next
   For z = 2 To 77
   For s = 1 To 37
       Spreadsheet6.ActiveSheet.Cells(z, s) = Sheets("Wien").Cells(z, s)
       Spreadsheet6.ActiveSheet.Columns("A:AK").AutoFit
   Next
Next
   ChartSpace1.Clear
   ChartSpace1.Charts.Add
   Set c = ChartSpace1.Constants
   ChartSpace1.Charts(0).Type = c.chChartTypeLine
   ChartSpace1.DataSource = Spreadsheet1
   ChartSpace1.Charts(0).SeriesCollection.Add
   ChartSpace1.Charts(0).SeriesCollection.Add
   ChartSpace1.Charts(0).SeriesCollection.Add

   ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimSeriesNames, 0, "B1"
   ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 0, "A2:A5"
   ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 0, "B2:B5"


   ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimSeriesNames, 0, "C1"
   ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, 0, "A2:A5"
   ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, 0, "C2:C5"

   ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimSeriesNames, 0, "D1"
   ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimCategories, 0, "A2:A5"
   ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimValues, 0, "D2:D5"
.
   ChartSpace1.Charts(0).HasLegend = False
   ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0%"
   ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 0.1

Wäre eine große Hilfe wenn wer drüberschaut

Danke

[Frogger1986]

ich glaube das entsprang mal meiner Feder….
zumindest kommen mir die letzten beiden Tabellenblätter und ein großer teil vom code sehr bekannt vor...

[Frogger1986]

Spreesheet kennt, soviel ich weiß, VBA nicht... außer du sagst ihm was es ist.... Dessweiteren funktioniert meine "Kreation" so auch nicht, da alles was dazu nötig ist in deinem VBA. code Fehlt...

Hier der link zum
Original

http://www.clever-excel-forum.de/Thread-...ung?page=6

[LexLea]

Ich Denke ich habe mein Projekt aus xBeispielen und Vorlagen und Dank Deiner Hilfe soweit gebracht

Habe aber auch durch Tagelanges suche etwas gefunden das dich Interessieren könnte
Ein Aufsatz für OWC11


  owcvba11.rar (Größe: 1,11 MB / Downloads: 5)

[schauan]

Hallöchen,

Spreedsheets sind in den Office Webcomponents enthalten.
https://www.microsoft.com/de-de/download...x?id=22276

[Frogger1986]

Da denkt man.. und dann... zzzzz… Danke LexLea ! Klasse Sache....! Sieht prima aus!

[LexLea]

Habe bereits Office Webcomponents installiert und sogar einen Aufsatz für VBA

Dennoch will der Code nicht

[LexLea]

Nichts zu Danken Frogger1986

[Frogger1986]

Du hast meine Userform quasi komplett umgearbeitet.. wahnsinn.. das sieht nach vielen Stunden Arbeit aus.... echt Hut ab!