Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige