Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm Seitenfüllend darstellen!

Diagramm Seitenfüllend darstellen!
lisa
Hallo
Über diesen Code erzeuge ich im Tabellenblatt2 ein Diagramm!
Wie kann ich diese Diagramm auf eine Seitenfüllende Größe mittesl VBA bringen?
Ich möchte kein Tabellenblatt, welches das Daigramm Seitenfüllend beinhaltet, erzeugen! Es sollte im Tabellenblatt2 bleiben! 
Private Sub CommandButton3_Click()
'Selection.CurrentRegion.Select
Charts.Add
ActiveChart.ChartType = xlLineStacked
ActiveChart.SetSourceData Source:=Sheets("Datensammler").Range("A1:B173")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle2"
Sheets("Tabelle2").Select
End Sub
Kann mir hierbei jemand helfen?
Danke Gruß Lisa

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Diagramm Seitenfüllend darstellen!
18.09.2009 12:33:34
fcs
Hallo Lisa,
geht wie folgt,
Die Zelladressen zur Festlegung der Diagrammgröße muss du ggf. ein wenig an deine Seiteneinstellungen anpassen.
Gruß
Franz 
Private Sub CommandButton3_Click()
Dim objChart As Chart, objChartObject As ChartObject
Application.ScreenUpdating = False
'Selection.CurrentRegion.Select
Charts.Add
Set objChart = ActiveChart
objChart.ChartType = xlLineStacked
objChart.SetSourceData Source:=Sheets("Datensammler").Range("A1:B173")
With Sheets("Tabelle2")
'ggf. vorhandenes Diagramm löschen
If .ChartObjects.Count > 0 Then
.ChartObjects(.ChartObjects.Count).Delete
End If
'Neues Diagramm verschieben
objChart.Location Where:=xlLocationAsObject, Name:="Tabelle2"
Set objChartObject = .ChartObjects(.ChartObjects.Count)
objChartObject.Top = .Range("A1").Top
objChartObject.Left = .Range("A1").Left
objChartObject.Width = .Range("L1").Left - .Range("A1").Left - 1
objChartObject.Height = .Range("A36").Top - .Range("A1").Top - 1
.Activate
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Diagramm Seitenfüllend darstellen!
18.09.2009 13:09:26
lisa
Hallo und danke für die schnelle Antwort.
Es funktioniert mit einer Einschränkung.
Das Diagramm wird in Datenfeld (Datenquelle) als Zeilen angezeigt und somit keine Darstellung.
Ändere ich das Datenfeld (Datenquelle) auf Spalte ist alles ok! Kannst du das noch umgestellen?
Danke für die Hilfe Lisa
AW: Diagramm Seitenfüllend darstellen!
18.09.2009 13:28:37
fcs
Hallo Lisa,
die Darstellung des Diagramms hängt ja leider immer von den Zellen ab, die zum Zeitpunkt des Makro-Starts selektiert sind.
Die folgende Ergänzung im Makro ezwingt die gewünschte Darstellung.
Gruß
Franz 
Private Sub CommandButton3_Click()
Dim objChart As Chart, objChartObject As ChartObject
Application.ScreenUpdating = False
'Selection.CurrentRegion.Select
Charts.Add
Set objChart = ActiveChart
objChart.ChartType = xlLineStacked
objChart.SetSourceData Source:=Sheets("Datensammler").Range("A1:B173")
objChart.PlotBy = xlColumns 'xlRows
With Sheets("Tabelle2")
'ggf. vorhandenes Diagramm löschen
If .ChartObjects.Count > 0 Then
.ChartObjects(.ChartObjects.Count).Delete
End If
objChart.Location Where:=xlLocationAsObject, Name:="Tabelle2"
Set objChartObject = .ChartObjects(.ChartObjects.Count)
objChartObject.Top = .Range("A1").Top
objChartObject.Left = .Range("A1").Left
objChartObject.Width = .Range("L1").Left - .Range("A1").Left - 1
objChartObject.Height = .Range("A36").Top - .Range("A1").Top - 1
.Activate
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Diagramm Seitenfüllend darstellen!
18.09.2009 13:47:26
lisa
Hallo
Das ist sehr gut! Nun ist es wie gewünscht! Danke dir.
Darf ich vieleicht noch eine Frage stellen.
Ich habe gestern von Hajo und Luschi zum Thema nur beschriebenen Bereich meine Code umgestellt.
Hierbei handelt es sich um diese Zeile.
ActiveChart.SetSourceData Source:=Sheets("Datensammlung").Range("A1:B173")
Ich habe sie so umgestellt um nur den Bereich der ausgewertet werden soll berücksichtigt wird.
ActiveChart.SetSourceData Source:=Sheets("Datensammlung").UsedRange
Es soll nur der Bereich in der Tabelle ("Datensammlung") selektiert und graph. Dargestellt werden!
Nun merke ich aber das hier nicht nur bis zur Zeile 173 sondern bis Zeile 64500 ausgewertet wird!
Hast du hier auch evtl eine Idee zu?
Gruß Lisa
Anzeige
AW: Diagramm Seitenfüllend darstellen!
18.09.2009 13:59:04
Beverly
Hi Lisa,
dann sind die Zellen nicht wirklich leer, sondern nur ihr Inhalt wurde gelöscht. Markiere alle Zeilen unterhalb deiner letzten benutzen Zeile und lösche sie (Zellen löschen und nicht einfach Entf. drücken). Speichere die Mappe anschließend.
Mit Strg+Ende gelangst du in die letzte belegte Zelle. Liegt sie immer noch außerhalb deiner tatsächlich letzten benutzten Zelle musst du das Ganze wiederholten.

AW: Diagramm Seitenfüllend darstellen!
18.09.2009 15:46:31
lisa
Hallo
Ok Ich habe das mit dem löschen verstenden und geä. Nun wird der Bereich auch erkannt und ausgewertet. Danke für die Hilfe
Grüße Lisa
Anzeige

299 Forumthreads zu ähnlichen Themen

Diagrammtitel auslesen
WolfgangN

Hallo,
Ich möchte mir gern alle Diagrammnamen und in der Spalte daneben den dazugehörenden Diagrammtitel anzeigen lassen. Ich wollte dafür das nachstehende Makro nutzen. Die Auflistung der Namen erfolgt anstandslos, aber die Auflistung der Titel erzeugt immer Fehler.
Ich würde mich sehr...
22.08.2008 15:09:13
Thread-ID: 1003909
3 Beiträge
Anzeige
gestapeltes Säulendiagramm mit Summen?
Wolfango

Hallo zusammen,
ich habe ein "gestapeltes Säulendiagramm" (absolute Werte, unterschiedlich hohe Säulen; nicht auf 100% gerechnet).
Nun möchte ich gleichzeitig auch noch die Summen der jeweiligen Säulen darstellen (als Linie oder einfach nur die Summenwerte oberhalb der jeweiligen gest...
28.08.2008 14:39:27
Thread-ID: 1005447
6 Beiträge
Select Diagramm entfernen
WolfgangN

Hallo,
in Tabelle6 sind Tabellen und Diagramme, in Tabelle7 nur Tabellen. Ich suche beim aktivieren der Tabelle6 in Tabelle7 ein Datum (der1.des Monats) dies funktioniert bis auf einen Fall gut. Ist in Tabelle6 irgendein Diagramm selectiert worden, danach wird eine andere Tabelle aktiv, dan...
28.08.2008 20:31:23
Thread-ID: 1005588
3 Beiträge
Anzeige
Diagramm mit stündlicher Skalierung/X-Achse
Jan

Hallo zusammen,
ich möchte in Excel ein Diagramm erstellen. Allerdings will ich bei der Zeitachse (X-Achse) eine Unterteilung in Stunden (nicht wie üblich in Tagen).
Ist das möglich ?
Vielen Dank im voraus !
Gruss Jan
08.09.2008 12:29:00
Thread-ID: 1008115
2 Beiträge
Diagramm aktualisiert sich nicht!
Mike

Hallo,
ich habe das Problem, daß mir in einem Diagramm die Werte nicht aktualisiert werden!
Die Werte der Tabelle, welche dem Diagramm zugrunde liegen, aktualisieren sich beim berechnen!!!
?
Gruß aus Bayern
Mike
10.09.2008 16:42:00
Thread-ID: 1008848
4 Beiträge
Formel lässt sich nicht aufzeichnen
David

Hallo zusammen,
ein User, dem ich helfen möchte, soll für mich eine Formel aufzeichnen, damit ich die "Übersetzung" in VBA mit meinem Makro vergleichen kann. Allerdings weigert sich der Rekorder, diese Formel aufzuzeichen. Wenn er gestartet wird und dann die Array-Formel mit STRG-SHIFT-ENTE...
22.09.2008 11:13:00
Thread-ID: 1011409
7 Beiträge
Diagramm mit wenigen Werten -> Zwischenwerte
Robin

Hey Cracks,
ich zerbreche mir grad den Kopf über folgender Frage:
Ich habe eine gemessene Federkennlinie, von der ich nur ein Bild der Kennlinie habe, aber keine Messwerte.
Also hab ich eine handvoll Werte rausgelesen und daraus ein interpoliertes x-y-Diagramm erstellt, das auch ga...
25.09.2008 16:34:00
Thread-ID: 1012380
4 Beiträge
Linienstärke im Diagramm per VBA
PeTeR

Hallo VBA-Freaks,
wie kann man per VBA die Linienstärke einer Datenreihe im Diagramm festlegen?
ActiveChart.SeriesCollection(1).Border.Weight = 5 funzt nicht!
Irgendwie fehlt mir das richtige Objekt!
(Der Makrorekorder in 2007 peilt das auch nicht!!)
Vielen Dank für Eur Hilf...
25.09.2008 17:24:43
Thread-ID: 1012389
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
5
2
10
1
3
6
3
5
14
2
6
2
2
1
13
6
1
2
3
4
4
1
6