Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm erstellen geht nicht

Forumthread: Diagramm erstellen geht nicht

Diagramm erstellen geht nicht
03.09.2018 20:05:23
Fred
Hallo zusammen
Ich versuche gerade mehrere Diagramme über einen Button zu erstellen was aber irgend wie nicht klappen will. Ich habe dazu den MacroRekorder mitlaufen lassen und versucht dann den Code zu starten. Aber leider kommt beim Ausführen immer ein CodeFehler Typ 13 nicht verträglich. Weiss jemand Rat.
Anbei mal eine Beispieltabelle
https://www.herber.de/bbs/user/123723.xls
Grüße Fred
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Lösungsvorschlag
04.09.2018 09:10:53
Beverly
Hi Fred,
versuche es mal damit (ich kann es leider nicht in Excel2003 testen):
Sub DiasErstellen()
Dim intSpalte As Integer
Dim lngLetzte As Long
Dim rngBereich As Range
For intSpalte = 1 To 19 Step 9
lngLetzte = Columns(intSpalte).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:= _
xlPrevious).Row
Set rngBereich = Range(Cells(9, intSpalte + 1), Cells(lngLetzte, intSpalte + 5))
With ActiveSheet.ChartObjects.Add(0, 0, 0, 0).Chart
.ChartType = xlColumnStacked100
.SetSourceData Source:=rngBereich
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
With .Parent
.Top = 1
.Height = 150
.Width = 350
.Left = Cells(1, intSpalte).Left
End With
.SeriesCollection(1).XValues = rngBereich.Columns(1).Offset(0, -1)
End With
Next intSpalte
End Sub

Anzeige
AW: Lösungsvorschlag
04.09.2018 13:56:12
Fred
Hallo Beverly (Karin)
Vielen Dank für die Antwort.
Der Code funktioniert echt super, Leider gibt es ein kleines Manko. Und zwar werden die 3 Diagramme Richtig angezeigt und auch die Werte stimmen, nur die Formatierung ist einfach zu groß. Siehe auf dem angehangenem Bild. Ich habe versucht Deinen Code zu manipulieren um die SchriftArt und die Zeichnungsfläche zu verandern, aber leider kriege ich das nicht hin. ich verstehe Deinen Code nicht und einfache Änderungen wie z.B: 

.HasLegend= True
.Legend.Font.Sitze =10

Funktionieren nicht. Könntest Du vieleicht noch mal schaun was ich ändern müsst damit die Diagramme gut zu erkennen sind?
Mit freundlichen Grüßen fred
Userbild
Anzeige
AW: Lösungsvorschlag
04.09.2018 16:36:04
Beverly
Hi Fred,
zeichne doch mal den Code mit dem Makrorekorder auf, wenn du die Schriftgröße sowohl für die Legende als auch die Achsenbeschriftung auf 10 setzt und poste den Code dann.

AW: Lösungsvorschlag
05.09.2018 11:57:27
Fred
Hey Beverly
Hir ist mal der Code vom Recorder.Ich hoffe Du kannst damit was anfangen.

Sub Makro1()
' Makro1 Makro
ActiveSheet.ChartObjects("Diagramm 218").Activate
ActiveChart.Legend.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
End Sub
Grüße Fred
Anzeige
AW: Lösungsvorschlag
05.09.2018 13:36:04
Beverly
Hi Fred,
versuche es mal so:
Sub DiasErstellen()
Dim intSpalte As Integer
Dim lngLetzte As Long
Dim rngBereich As Range
For intSpalte = 1 To 19 Step 9
lngLetzte = Columns(intSpalte).Find(What:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Set rngBereich = Range(Cells(9, intSpalte + 1), Cells(lngLetzte, intSpalte + 5))
With ActiveSheet.ChartObjects.Add(0, 0, 0, 0).Chart
.ChartType = xlColumnStacked100
.SetSourceData Source:=rngBereich
.SeriesCollection(1).XValues = rngBereich.Columns(1).Offset(0, -1)
.HasTitle = False
.HasLegend = True
With .Legend
.AutoScaleFont = True
.Font.Size = 10
.Font.Name = "Arial"
End With
With .Axes(xlCategory)
.HasTitle = False
With .TickLabels
.AutoScaleFont = True
.Font.Size = 10
.Font.Name = "Arial"
End With
End With
With .Axes(xlValue)
.HasTitle = False
With .TickLabels
.AutoScaleFont = True
.Font.Size = 10
.Font.Name = "Arial"
End With
End With
With .Parent
.Top = 1
.Height = 150
.Width = 350
.Left = Cells(1, intSpalte).Left
End With
End With
Next intSpalte
End Sub

Anzeige
AW: Lösungsvorschlag
05.09.2018 15:27:33
Fred
Hallo Beverly
Der veränderte Code von Dir bewirkt leider nichts . Die Diagramme sehen immer noch so aus wie vorher. Die Formatierungen werden anscheinend nicht übernommen.
Grüße Fred
AW: Lösungsvorschlag
05.09.2018 17:35:21
Beverly
Hi Fred,
gib mal anstelle .Font.Size = 10 dieses an: .Font.Size = 4

Anzeige
AW: Lösungsvorschlag
05.09.2018 21:09:43
Fred
Hallo Beverly
vielen Dank für Deine Geduld. mit Font.Sitz=2 funktionierts prima.
Grüße Fred
Lösungsvorschlag Variante 2
05.09.2018 22:41:18
Beverly
Hi Fred,
schön dass es so jetzt funktioniert, auch wenn mir unklar ist, weshalb die Schriftsgröße auf einen Wert gesetzt werden muss, den es gar nicht gibt.
Ich hätte noch einen anderen Vorschlag und wäre dir dankbar, wenn du den Code bei dir mal testen würdest - rein aus Interesse, ob dieser eventuell das Problem der Schriftgröße umgeht:
Sub DiasErstellen()
Dim intSpalte As Integer
Dim lngLetzte As Long
Dim rngBereich As Range
Dim chrDia As ChartObject
For intSpalte = 1 To 19 Step 9
lngLetzte = Columns(intSpalte).Find(What:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Set rngBereich = Range(Cells(9, intSpalte + 1), Cells(lngLetzte, intSpalte + 5))
With ActiveSheet.ChartObjects.Add(0, 0, 0, 0).Chart
.ChartType = xlColumnStacked100
.SetSourceData Source:=rngBereich
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
With .Parent
.Top = 1
.Height = 150
.Width = 350
.Left = Cells(1, intSpalte).Left
End With
.SeriesCollection(1).XValues = rngBereich.Columns(1).Offset(0, -1)
End With
Next intSpalte
For Each chrDia In ActiveSheet.ChartObjects
With chrDia.Chart.Axes(xlCategory).TickLabels.Font
.Name = "Arial"
.Size = 10
End With
With chrDia.Chart.Axes(xlValue).TickLabels.Font
.Name = "Arial"
.Size = 10
End With
With chrDia.Chart.Legend.Font
.Name = "Arial"
.Size = 10
End With
Next chrDia
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Anzeige
Automatisierung Exceldiagramme in Powerpoint
morb

Hallo liebes Forum,
ich habe folgendes Problem:
Ich habe eine Excelmappe mit 3 Tabellenblätter.
Auf jedem Tabellenblatt befindet sich ein Diagramm. Ich möchte nun ein einfaches Makro erstellen mit dem ich aus Excel heraus die 3 Diagramme in eine Powerpoint Präsentation einfügen kan...
27.09.2009 22:37:32
Thread-ID: 1105920
3 Beiträge
Spalte lässt sich nicht formatieren
Joachim

Hi,
habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
Wenn ich das Format anschaue, steht es auf Standard.
Diese Spalte wollte ich i...
23.11.2009 10:46:38
Thread-ID: 1119390
3 Beiträge
Anzeige
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Tabellenblattreiter lässt sich nicht ändern | Herbers Excel-Forum
Josef_T
Guten Tag zusammen,
ich kann in keiner! Tabelle mehr den Tabellenblattreiter bearbeiten. Egal ob ich mit der linken
oder rechten Maustaste darauf klicke, aktiviere ich nur immer das ganze Blatt.
kann mir bitte jemand einen Tipp geben, wie ich meine Tabellenblattreiter wieder editieren...
23.01.2010 20:19:29
Thread-ID: 1132376
6 Beiträge
Diagrammgröße per VBA ändern
ben

Hallo zusammen,
Ich habe drei Command Buttons mit deren Betätigung drei verschiedene Diagramme (Kuchendiagramm) angezeigt werden können. Wenn ein neues Diagramm angezeigt werden soll, wird das alte zuvor gelöscht.
Leider werden die Diagramme aber immer nur recht klein angezeigt.
Ic...
20.02.2010 10:34:56
Thread-ID: 1139846
4 Beiträge
Code lässt sich aus User-Form nicht ausführen | Herbers Excel-Forum
Stephan
Hallo,
habe folgendes Problem, möchte einen Code den ich bisher in einem Tabellenblatt einem Button zugeordnet habe nun einem Button in einer Userform zuordnen um in dem ursprünglichen Tabellenblatt die selbe Aktion auszuführen - leider funktioniert dies mit reinkopieren und referenzieren auf d...
23.03.2010 16:10:29
Thread-ID: 1147909
8 Beiträge
ontime lässt sich nicht manuell beenden ?
chris

Hallo an alle und guten morgen,
gleich noch eine frage bei der ich Hilfe benötige:
ich starte mit Makro unten einen ontime.
jetzt habe ich ein Makro geschrieben das mit den Ontime beenden soll.
Aber das klappt nicht ?
Könnt ihr mir dabei helfen ?
Vielen Dank
Sub te...
09.09.2010 09:40:03
Thread-ID: 1176520
5 Beiträge
Makro lässt sich nicht abstellen
tco99


Hallo zusammen,
ich habe mal wieder ein Problem.
Ich starte ein Makro, welches nach Zeitvorgabe weitere Makros startet. Den Start führe ich mit einer Schaltfläche aus. Mit einer weiteren Schaltfläche möchte ich den gesamten Prozess stoppen bzw. beenden. Das gelingt mir aber nicht....
27.09.2010 13:46:22
Thread-ID: 1179560
7 Beiträge
Zwischenablage lässt sich nicht löschen
Hugo

Hallo
Wie kann ich im folgenden Code beim schliessen der Datei verhindern, dass die Abfrage .. Zwischenablage erscheint
Mit Application.CutCopyMode = False passiert nichts.
Besten Dank und Gruss
Hugo
Sub Test() Dim objExcel As New Excel.Application Dim objSheet As Object Di...
25.10.2010 21:40:04
Thread-ID: 1183827
4 Beiträge
Rechtsklick -> Einfügen nicht mehr möglich
Jonathan

Hallo liebe Experten,
ich stehe nun vor einen richtig komischen Problem:
Ich habe eine Excel-Datei mit mehreren Sheets. Die Datei setzt sich aus 4 Datenblättern (4 einzelne Sheets) und mehreren Darstellungssheets zusammen. Die Darstellungssheets besitzen mehrere Checkboxen und Labels.
29.03.2011 11:17:40
Thread-ID: 1208049
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige