Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Diagramm, zweite Datenreihe

Forumthread: 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
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Diagramm, zweite Datenreihe
16.04.2012 19: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 11:58:37
Robi
Sehr gut, klappt...vielen Dank Beverly

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige