Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlermeldung "Nicht genügend Speicher für eine vollwertige Anzeige"
 23.01.2019 11:07:41 Alex
NotSolved
23.01.2019 11:52:38 Alex
Solved

Ansicht des Beitrags:
Von:
Alex		 Datum:
23.01.2019 11:07:41		 Views:
1029		 Rating:
     
Antwort:
  Ja
Thema:
Fehlermeldung "Nicht genügend Speicher für eine vollwertige Anzeige"

Hallo zusammen,

ich bekomme bei meinem Makro die Fehlermeldung "Nicht genügend Speicher für eine vollwertige Anzeige".
Das Makro erstellt aus vorhandenen Messwerten Diagramme. Anscheinend habe ich zu viele Messwerte, das das Makro bei weniger Werten funktioniert.
Hat jemand eine Idee, wie ich es trotzdem hinbekomme?

Bei 10 Reihen mit je 115.000 Spalten funktioniert es noch.
Bei 10 Reihen mit je 550.000 Spalten nicht mehr.

Vielen Dank im Voraus.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'Erstellen der Diagramme
 
Private Sub Diagramme()
     Dim Messwerte As Integer, AktChart As Chart, lz1 As Long
     Dim Top, Links As Integer, Höhe As Integer, Weite As Integer
      
     Sheets.Add
     ActiveSheet.Name = "Diagramme"
     Worksheets("Werte bereinigt").Activate
 
      
     Sheets("Diagramme").Select
     lz1 = Sheets("Werte bereinigt").Cells(Rows.Count, 1).End(xlUp).Row
      
     'Charts Anordnung auf dem Bildschirm selbst einstellen!!
     Links = 100   'bitte selbst einstellen
     Weite = 500   'bitte selbst einstellen
     Höhe = 500    'bitte selbst einstellen
     Top = 50      '1. Anordnung für Diagramm
      
     'Diagramme erstellen pro Messwert
     For Messwerte = 1 To Sheets("Werte bereinigt").Cells(5, 16).Value
        
       'Sheets.AddChart2(Style,XlChartType,Left,Top,Width,Height,NewLayout)
       Set AktChart = ActiveSheet.ChartObjects.Add(Links, Top, Weite, Höhe).Chart
       AktChart.ChartType = xlLine
        With AktChart
                       
           .HasTitle = True
           .ChartTitle.Characters.Text = Sheets("Werte bereinigt").Cells(2, Messwerte + 2).Text
            
           '.ChartTitle.Text = "Messwert " & Messwerte
           .SeriesCollection.NewSeries
           .SeriesCollection(1).XValues = Sheets("Werte bereinigt").Range("$M$11:$M$" & lz1)
           .SeriesCollection(1).Name = "Werte unbereinigt"
           .SeriesCollection(1).Values = Sheets("Werte bereinigt").Range("$C$11:$C$" & lz1).Offset(0, Messwerte - 1)
           .SeriesCollection.NewSeries
           .SeriesCollection(2).Name = "Werte bereinigt"
           .SeriesCollection(2).Values = Sheets("Werte bereinigt").Range("$C$11:$C$" & lz1).Offset(0, Messwerte - 1)
           .Axes(xlCategory, xlPrimary).TickLabels.NumberFormat = "DD.MM.YYYY"
             
                         
        End With
        Top = Top + Höhe + 20    '**  Abstand 20
     Next Messwerte
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Fehlermeldung "Nicht genügend Speicher für eine vollwertige Anzeige"
 23.01.2019 11:07:41 Alex
NotSolved
23.01.2019 11:52:38 Alex
Solved