Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1408to1412
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
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige
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
Anzeige
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
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
Im Diagramm Formel in Diagrammbeschriftung oder...
martin

... Datenbeschriftung aus eigener Zelle.
Guten Morgen allerseits.
1.) Gerne würde ich in der Datenbeschriftung eines Diagrammes etwas ausrechnen lassen (ohne dass das Diagramm verändert wird). Geht das? In meinem Beispiel Wäre das := 100% - Wert in %
2.) Wenn das nicht geht, würde i...
05.06.2009 09:31:26
Thread-ID: 1079339
2 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
Anzeige

Links zu Excel-Dialogen

Label

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
5
6
2
3
3
7
5
1
4
1
2
3
12
5
3
7
3
4
5
3
11
1
4
3
22