Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamisches Diagramm mit Makro

Forumthread: Dynamisches Diagramm mit Makro

Dynamisches Diagramm mit Makro
24.02.2015 14:08:01
Manu
Hi Community,
ich habe mir bislang schon ein ganzes Stück für meine finale Version zusammengezimmert. Jedoch fehlt mir bislang noch, dass sich mein Diagramm mittels Makro dynamisch erstellen lässt.
https://www.herber.de/bbs/user/95963.xlsm
Kurz zur "Tastenbelegung":
"Spalte Einfügen" fügt eine bestimmte Anzahl (Zelle F5) an Spalten nach Spalte "G" ein.
"INIT" löscht alle eingefügten Spalten zwischen "Label" und "Fill".
"Diagramm Update" nimmt alle Werte zwischen Zeile 7 und "Anzahl verw. Zeilen" (Zelle C5) und fügt diese in das Diagramm ein.
Mein Problem ist jetzt, wenn ich Spalten einfüge, verschiebt sich logischerweise auch das Diagramm. Wie kann ich das stoppen bzw. verhindern/umgehen?
Bin um jeden Ansatz dankbar

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamisches Diagramm mit Makro
24.02.2015 15:07:09
yummi
Hallo Manu,
Du kannst mit den beiden Funktion die Position merken und setzen

Function MerkePos(ByRef dtop As Double, ByRef dleft As Double)
With Sheets("Waterfall").ChartObjects(1)
dtop = .top
dleft = .left
End With
End Function
Function SetzePos(ByVal dtop As Double, ByVal dleft As Double)
With Sheets("Waterfall").ChartObjects(1)
.top = dtop
.left = dleft
End With
End Function
Den Aufruf machst du am Anfang deiner Splten einfügen bzw. löschen (merke) und den Setzen Aufruf dann nach deiner Spaltenmanipulation.
also so: 

Sub SpaltenEinfügen()
Dim Einfüg As Integer
Dim dtop As Double
Dim dleft As Double
Einfüg = Cells(5, 6).Value
Call MerkePos(dtop, dleft)
[H1].Resize(, Einfüg).EntireColumn.Insert
Call SetzePos(dtop, dleft)
End Sub
Sub LöscheSpalten()
Dim rngRange As Range
Dim dtop As Double
Dim dleft As Double
Set rngRange = ErmittleLöschbereich
Call MerkePos(dtop, dleft)
SpaltenLöschen rngRange
Call SetzePos(dtop, dleft)
End Sub
Das Problem ist nur, durch dein Einfügen von Spalten kann es dann dazu kommen, dass der Bereich wo sich das Diagramm vorher befand jetzt eine gefüllte Spalte ist. Ich weiß nicht, ob du das wirklich willst.
Gruß
yummi
Anzeige
;

Forumthreads zu verwandten Themen

3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Alle Formeln einer Seite auf extra Sheet anzeigen
Bernd

Hallo Freaks,
ich habe nachstehenden Code aus dem forum entnommen und wäre sehr dankbar, wenn dieser so angepasst werden würde, dass alle Formeln eines markierten Bereiches auf einem extra Blatt angezeigt werden würden (innerhalb oder ausserhalb der Datei ist egal) .
Vielen Dank vorab.<...
28.01.2009 16:50:00
Thread-ID: 1044635
3 Beiträge
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Verknuepfte Tabellen in einem USERFORM anzeigen
spezifischer

Die Ausgangslage:
1.Tabelle: VereinsAdressen (VereinsName, Strasse, PLZ, Ort, etc.)
2.Tabelle: VereinsSparten (VereinsName, SpartenName, Ansprechpartner, etc)
Der VereinsName ist ein-eindeutig (keine Duplikate). Zu jedem Verein kann es mehrere Sparten geben. Die Verknüpfung zwischen...
02.04.2009 17:53:23
Thread-ID: 1066441
8 Beiträge
Anzeige
Tabellenblätter aus Liste erstellen
StefanS

Guten Morgen,
kaum hat der Tag begonnen und schon hänge ich wieder fest!
Diesmal soll aus einer Liste (bezugnehmend auf die Spalte Section) div.Tabellenblätter mit der Bezeichnung Register_1 usw. erstellt werden. Die Anzahl der neuen Tabellenblätter entspricht der Anzahl der aufgeführt...
12.05.2009 08:10:21
Thread-ID: 1074477
6 Beiträge
Bereich, aus mehreren Einzelzellen zusammengesetzt
Peter

Hallo
Ich habe eine grössere Tabelle und in Zeile 7 steht in allen Spalten eine 1 (Ergebnis einer Formel).
Nun möchte ich alle Zellen von Zeile 7 in denen eine 1 steht als Bereich definieren und mit "Test" benennen.
Steht die 1 beispielsweise in D7, Z7 und AA7
müsste sich der Be...
19.06.2009 15:01:06
Thread-ID: 1082927
5 Beiträge
Diagramm in neuer Tabelle
Ralph

Hallo liebes Forum,
ich möchte gern ein Diagramm erstellen und habe mehrere Fragen bzw. Probleme.
Siehe "https://www.herber.de/bbs/user/62940.xlsx"
Ich möchte gern aus der Tabelle heraus zwei Diagramme erstellen, die jeweils pro Artikel erscheinen.
Die Diagramm überschrift soll...
07.07.2009 10:58:45
Thread-ID: 1086601
2 Beiträge
Tabellenblattname in Zelle A1 anzeigen
Stefanglander

Hallo Forum,
ich habe hie reinen Code-Schnipsel den ich gerne umändern möchte aber mal wieder nicht weiß wie.
Im Moment wird der Tabellenname in der aktiven Zelle beim betätigen der Button angezeigt.
Wie muss ich den Code ändern, dass er in der Zelle B3 angezeigt wird ?
Sub TabN...
14.07.2009 13:33:41
Thread-ID: 1088475
3 Beiträge
Tabelle in Userform anzeigen
Philipp

Hallo zusammen,
ich bastel gerade an einem Tool, dass zwei XML-Files öffnet und dann vergleichen soll.
Die XML-Files sind im Grunde identisch, es können sich einzelne Werte ändern, neu hinzukommen oder alte wegkommen.
Dazu habe ich eine Userform aufgebaut, die es erlaubt zwei XML-Fi...
02.09.2009 17:09:15
Thread-ID: 1100153
4 Beiträge
Dynamisches Diagramm mit Dropdown-Menü
lorenz1980

Hey,
nachdem Beverly mein erstes großes Problem grandios gelöst hat, ein weiteres :-/
Situation: Ich habe eine Tabelle mit vielen Spalten, wie z.b.:
Höhe - Länge - Breite - Masse - Tempo - Wert
Nun hätte ich gerne ein neues Datenblatt, in dem es zb. zwei Dropdown-Menüs gibt: das...
24.09.2009 23:38:34
Thread-ID: 1105388
6 Beiträge
Anzeige
Daten in Userform als Diagramm anzeigen
Kay

Hi,
komme mal wieder nicht ohne Eure Hilfe aus. Bin im Forum und im Netz zwar hier und da fündig geworden, aber komme nicht weiter.
Problem/Herausforderung:
Habe eine Tabelle, in der sich 3 Bereiche befinden (A1:C10; A12:C15; A17:C22) für Daten 2007, 2008 & 2009.
In Spalte...
29.09.2009 08:09:17
Thread-ID: 1106113
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige