Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbereich erweitern

Forumthread: Datenbereich erweitern

Datenbereich erweitern
12.01.2016 14:23:25
Fra
Hallo,
wie kann ich den Datenbereich eines Digramms über VBA um eine Zeile erweitern
Also wenn er vorher z.B.
$D$8:$D$35
soll er jetzt
$D$8:$D$36
sein
Es gibt die beiden Objekte
ActiveChart.SeriesCollection(1).XValues
und
ActiveChart.SeriesCollection(1).Values
die das ansprechen, aber wie nutze ich die richtig ?
Weiterhin würde ich gerne die unterste Zeile des aktuellen Bereiches abfragen.
Danke für Eure Hilfe
Fra

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datenbereich erweitern
12.01.2016 14:51:56
UweD
Hallo
das reine tauschen als Text...

Dim Rng As String, Z As Integer, Zähler As Integer
Rng = "$D$8:$D$35"
Z = InStrRev(Rng, "$")
Zähler = Right(Rng, Len(Rng) - Z)
Rng = Left(Rng, Z) & Zähler + 1
Gruß UweD

AW: Datenbereich erweitern
12.01.2016 15:06:13
Beverly
Hi,
nach diesem Prinzip:
Dim lngLetzte As Long
' letzte belegte Zeile in Spalte D
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count)
With ActiveSheet.ChartObjects(1).SeriesCollection(1)
.XValues = Range(Cells(8, 4), Cells(lngLetzte, 4)) ' X-Werte Spalte D
.Values = Range(Cells(8, 5), Cells(lngLetzte, 5))  ' Y-Werte Spalte E
End With

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