Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm, zweite Datenreihe

Diagramm, zweite Datenreihe
Robi
Hi Leutz,
ich habe ein Problem. Und zwar möchte ich meinem Diagramm ein zweite Datenreihe hinzufügen.
Ich möchte dafür ein Makro erstellen, so dass ich es für verschieden lange Tabellen benutzen kann.
Excel soll also für die zweite Datenreihe alle Werte aus Spalte H übernehmen, außer den Wert aus der ersten Zeile (hier steht die Überschrift).
R2C8:R319C8 ist mir da nicht allgemein genug, da eine Tabelle auch mal 200 oder 400 Zeilen mit Werten haben kann.
Wie bringe ich ihm das bei?
Vielen Dank für eure Hilfe.
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = _
"='Tabelle2'!R2C8:R319C8" 'nicht allgemein genug!!!!!!
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Diagramm, zweite Datenreihe
16.04.2012 17:18:05
Beverly
Hi Robi, 
   Dim lngLetzte As Long
With Worksheets("Tabelle2")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 8)), .Cells(.Rows.Count, 8).End(xlUp).Row, _
.Rows.Count)
End With
With ActiveChart.SeriesCollection.NewSeries
.Values = Worksheets("Tabelle2").Range("H2:H" & lngLetzte)
.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
End With


Anzeige
AW: Diagramm, zweite Datenreihe
17.04.2012 09:58:37
Robi
Sehr gut, klappt...vielen Dank Beverly

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