Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagrammtitel vorgeben bzw. Dias neu nummerieren

Diagrammtitel vorgeben bzw. Dias neu nummerieren
Reinhard
Moin zusammen,
ich habe wieder ein Problem, welches ich weder mit alten Lösungsvorschlägen geschweige selber knacken kann, da mir bei VBA einfach zuviele Kenntnisse fehlen.
Ich habe ein Sheet mit 2 Diagrammen. Diese wurden aufgrund mehrerer Versuche, wie erwartet, immer wieder neu bezeichnet, also heißt das eine Diagramm 5 und das andere Diagramm 9.
Da ich dieses Sheet als Vorlage für eine große Anzahl weiterer Dateien benötige und ich eine dynamische Achsenskalierung mittels VBA machen möchte (sprich bei Klick auf Dia wird Makro ausgeführt), benötige ich nun entweder eine feste Bezeichnung aller Dia oder "einfach" einen Reset der Nummerierung. Gibt es eine Möglichkeit, einen "dynamischen" Namen für die Diagramme zu vergeben?
Wie vergebe ich in VBA einen Diagrammnamen?
Danke für's Lesen!
Gruß
R.T.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Diagrammnamen vergeben
15.04.2010 10:54:34
Rudi
Hallo, 
Sub tt()
Dim oCht As ChartObject, i As Integer
For Each oCht In ActiveSheet.ChartObjects
i = i + 1
oCht.Name = "Diagramm_" & i
Next
End Sub

Gruß
Rudi
AW: Diagrammnamen vergeben
15.04.2010 11:45:11
Reinhard
Moin Rudi,
danke für das Makro.
irgendwie macht es aber nicht das, was es soll.
Ich hab den Code sowohl in "MODULE" als auch in das Sheet kopiert, es ist aber immer noch nicht Diagramm 1 und 2 als Bezeichnung vorhanden.
Was mach ich nur falsch?*grübel
Gruß
R. T.
verstehe nicht was du willst owT
15.04.2010 13:01:06
Rudi
AW: Diagrammtitel vorgeben bzw. Dias neu nummerieren
16.04.2010 10:32:44
Beverly
Hi Reinhard,
weshalb muss es ein fester Diagrammname sein - du kannst die Diagramme doch auch mit ihrer Erstellungsreihenfolge 1 bzw. 2 ansprechen: 
Sub DiasErkennen()
With ActiveSheet.Shapes(ActiveSheet.Application.Caller)
If .Name = ActiveSheet.ChartObjects(1).Name Then
' hier dein Code für das 1. Diagramm
Else
' hier dein Code für das 2. Diagramm
End If
End With
End Sub


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

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