Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fortlaufendes Diagramm

fortlaufendes Diagramm
09.12.2004 14:01:45
Stefan
Hallo zusammen.
Ich mache mit Excel eine Buchführung über meine Finanzen und stelle diese auch in einem Diagramm dar. Nun möchte ich aber das nur die letzten 15 Einträge im Diagramm dargestellt werden, weiß aber nicht wie.Muss bis jetzt immer per Hand die Datenquellen für die X und Y Reihe ändern.Ich hoffe jemand von euch kann mir helfen.
Danke für die Mühen.
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: fortlaufendes Diagramm
Max 

Sub Diagramm_erweitern()
Dim chtChart As Chart
Dim intIndex As Integer
For intIndex = 2 To 9
If ActiveSheet.Cells(3, intIndex).Value = "" Then Exit For
Next intIndex
Set chtChart = ActiveSheet.ChartObjects(1).Chart
chtChart.SetSourceData _
Source:=ActiveSheet.Range(Cells(3, 2), Cells(3, intIndex - 1))
chtChart.Axes(xlCategory).CategoryNames = _
ActiveSheet.Range(Cells(2, 2), Cells(2, intIndex - 1))
Set chtChart = Nothing
End Sub

Viel Spaß damit Max
AW: fortlaufendes Diagramm
09.12.2004 16:34:51
Stefan
Ich verstehe zwar noch nicht ganz was da steht,werde es aber rausfinden.
Danke
Stefan
Anzeige
AW: fortlaufendes Diagramm
Volker
Hallo Stefan,
hier ein Bsp.: (Das ich übrigens aufgezeichnet hab !!!)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A11:C25"), _
PlotBy:=xlColumns
Du brauchst nur den Range entsprechend anzupassen, wobei Du den Zeilenindex der letzten Spalte bei jeder Neueingabe neu ermittelst:
letzte_zeile = activesheet.range("A1").end(xldown)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A" & letzte_zeile - 15 & ":C" & letzte_zeile), _
PlotBy:=xlColumns
Das ganze ins Worksheet_Change-Ereignis und fertig
Gruß
Volker
Anzeige
AW: fortlaufendes Diagramm
09.12.2004 16:33:07
Stefan
Ich danke dir. Das bringt mich auf jeden Fall auf den richtigen Weg
Stefan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige