Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagrammerweiterung

Diagrammerweiterung
02.09.2014 14:21:24
NoPa
Hallo,
ich möchte per Knopfdruck auf den blauen Butten, dass das Diagramm und die Tabelle automatisch um ein neues Quartal erweitert / vorbereitet wird!
Wichtig ist, dass auch die Diagrammbeschriftungen erweitert werden!
Hier die Tabelle:
https://www.herber.de/bbs/user/92439.xlsm
Danke schon mal für die Hilfe!
Gruß
Norbert

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

Betreff
Datum
Anwender
Anzeige
AW: Diagrammerweiterung
02.09.2014 15:02:17
Rudi
Hallo, 
Private Sub cbok_Click()
Dim sc As Series, rXVal As Range, rVal As Range, rSC As Range
With Cells(5, Columns.Count).End(xlToLeft).Offset(, 1)
.Value = tbalt
.Offset(, -1).Copy
.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False
Set rXVal = Range(Cells(5, 4), Cells(5, 4).End(xlToRight))
With ActiveSheet.ChartObjects(1).Chart
For Each sc In .SeriesCollection
Set rSC = Range("C6:C8").Find(what:=sc.Name, lookat:=xlWhole)
Set rVal = rSC.Offset(, 1).Resize(, rXVal.Count)
sc.Values = rVal
sc.XValues = rXVal
Next
End With
Hide
End Sub
Gruß
Rudi

Anzeige
AW: Diagrammerweiterung
02.09.2014 15:10:50
Beverly
Hi Herbert,
das geht auch ohne VBA - benutze eine Tabelle.

AW: Anhang vergessen
03.09.2014 07:16:57
NoPa
Hi Karin,
die Lösung vom Rudi gefällt mir fast besser! Danke Trotzdem!
@Rudi: Vielen Dank!
Schönen Tag
Gruß
Norbert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige