Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramme kopieren und Bezüge anpassen

Diagramme kopieren und Bezüge anpassen
10.06.2008 08:15:48
Markus
Guten morgen,
ich brauch mal wieder eure Hilfe.
Ich habe ein Diagramm und eine Datentabelle dazu. Dieses Diagramm benötige ich mit gering veränderten Daten in dem selben Arbeitsblatt und in andere Blättern.
Wenn ich das Diagramm jedoch kopiere und einfüge (egal ob im selben Blatt oder woanders) bleiben die Bezüge des kopierten Diagrammes bestehen und ich muss die Bezüge bei den Datenquellen per Hand bei jedem ändern.
Da ich eine ganze Menge Diagramme habe, ist es besser wenn die Bezüge sich anpassen würden.
Kann mir von euch jemand sagen, wie ich das machen kann?
Ich danke euch im voraus für die Mühe.
Gruß
Markus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramme kopieren und Bezüge anpassen
10.06.2008 09:31:00
Beverly
Hi Markus,
das lässt sich mit VBA machen. Schau dir mal auf meiner HP, Seite "Diagramme m. VBA" das Beispiel "Kopieren andere Tabelle" an. Vielleicht lässt es sich ja an deine Bedingungen anpassen.
Link zur Datei

AW: Diagramme kopieren und Bezüge anpassen
10.06.2008 09:40:00
Markus
Hallo Karin,
danke für die Infos, leider kann ich gerade den Link nicht öffnen.
Gibt es eine andere Möglichkeit wie man die Bezüge relativ macht? Irgendwelche Einstellungssachen die ich vornehmen kann.
Hab auch schon im Netz gestöbert. Das Problem haben viele, aber ne richtige (banale) Antwort gibt es nicht.
Bzw. kannst du das Makro hier reinstellen und kurz erklären was damit gemacht wird?
Ich dank dir viele male.
Gruß
markus

Anzeige
AW: Diagramme kopieren und Bezüge anpassen
10.06.2008 10:22:00
Beverly
Hi Markus,
es gibt keine Einstellung, mit der die Bezüge "relativ" gemacht werden können. Das geht nur von Hand oder eben mit VBA.
Ich habe gerade den Link ausgeführt - die Arbeitsmappe lässt sich ohne Probleme herunterladen.
Es wird ein Diagramm (vom Typ Punkt, spielt aber für den Code keine Rolle) mit einer Datenreihe (Wertebereich A9:B14) aus Tabelle1 nach Tabelle2 kopiert und der Wertebereich an den Wertebereich in Tabelle2 (A4:C10) angepasst. In Tabelle1, A3 steht die Startzelle (also "A4") für den Wertebereich der Tabelle2 und in Tabelle1, B3 die Endzelle (also "C10"). Die Endzelle wird durch eine Formel ermittelt.

Option Explicit
'* 24.08.06, 01.07.06, 01.04.07                   *
'* erstellt von Karin, http://beverly.excelhost.de*
'* beverly@excelhost.de                           *
Sub diagramme_kopieren()
Dim shDiagramm As Shape                 ' Variable für Diagramm als Shape
'   Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'   Diagramm1 der Tabelle1 kopieren
Worksheets("Tabelle1").ChartObjects(1).Copy
'   in Tabelle2 einfügen
Worksheets("Tabelle2").Paste
'   das zuletzt eingefügte Diagramm aktivieren
Worksheets("Tabelle2").ChartObjects(Worksheets("Tabelle2").ChartObjects.Count).Activate
'   Datenquelle als Datenbereich zuweisen
ActiveChart.SetSourceData Source:=Worksheets("Tabelle2").Range(Worksheets("Tabelle1").Cells( _
3, 1) & ":" & Worksheets("Tabelle1").Cells(3, 2))
'   aktives Diagramm abwählen
ActiveChart.Deselect
With ActiveSheet
'       zuletzt eingefügtes Diagramm der Variablen zuweisen
Set shDiagramm = .Shapes(.ChartObjects.Count)
'       Position der linken oberen Ecke des Diagramms auf Zelle E2
shDiagramm.Top = .Cells(2, 5).Top
shDiagramm.Left = .Cells(2, 5).Left
End With
'   Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub



Anzeige
Danke
10.06.2008 10:29:21
Markus
Hi,
also der Link geht bloß nicht, weil er für mich derzeit gesperrt ist. Sitze in der Arbeit.
Ich danke dir tausendmal für das Makro. Werde es gleichmal ausprobieren und melde mich wenn es geklappt hat oder auch nicht:-), denke aber doch.
Also nochmals vielen Dank.
markus

AW: Danke
10.06.2008 14:02:54
Markus
Hat funktioniert!
Ich hab noch ein paar Veränderungen vorgenommen!
Dank dir!

198 Forumthreads zu ähnlichen Themen

Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Diagramm mit VBA ohne Bezüge kopieren
Dagmar

Hallo VBA-Experten,
ich kopiere per VBA den Inhalt eines Vorlagenblattes (nicht das Blatt selber, das geht nicht, weil die Copy-Methode nur begrenzt durchführbar ist) und dort ist auch ein Diagramm enthalten. Dummerweise bleiben beim Kopieren die festen Bezüge erhalten und verweisen so auf...
10.12.2008 07:43:00
Thread-ID: 1031557
4 Beiträge
Optimale Spaltenbreite per makro auf anderem Blatt
Macro

Hi,
Ich möchte von einem Tabellenblatt aus per Button die "optimale Spaltenbreite" auf einem anderen Blatt einstellen.
Kann ich das machen, ohne dass mein Tabellenblatt, von dem ich aus starte, den Focus verliert, bzw, dass ich das zweite Tabellenblatt (wo die Einstellung statt finden...
10.12.2008 13:37:50
Thread-ID: 1031680
4 Beiträge
Anzeige
Objekte in neues Tabellenblatt kopieren
Bertram

Hallo zusammen,
ich kopiere ein komplettes Tabellenblatt per VBA in ein (temporäres) neues Tabellenblatt ohne den Code des TBs zu kopieren, verschiebe dieses und speichere es als neue Datei ab. Soweit so gut. Allerdings habe ich auch 4 Kästchen (OK1 bis OK4) auf meinem Tabellenblatt, die ic...
27.01.2009 15:22:00
Thread-ID: 1044271
4 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Mittelwerte in ein neues Blatt kopieren per VBA
Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen „Uebersicht“
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der...
06.05.2009 09:51:09
Thread-ID: 1073265
2 Beiträge
Spalten in neues Tabellenblatt kopieren
Doreen

Ich arbeite seit langem mal wieder mit Excel und hab alles vergessen :-(
Ich habe ein Tabellenblatt in dem ich alle meine Informationen pflege. Einfach verschiedene Daten (z.B. Liefertage, Lieferdateinname, Land, etc.) in Spalten runter geschrieben, ohne Bezüge - nichts, einfach nur ne Lis...
22.07.2009 11:53:21
Thread-ID: 1090482
2 Beiträge
Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.

Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
11.08.2009 11:38:01
Thread-ID: 1094961
4 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
6
3
3
15
3
2
1
1
3
6
6
6
1
2
3
4
6
9
6
1
13
8
2
3