Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liniendiagramm bis zur letzten beschriebenen Zelle

Liniendiagramm bis zur letzten beschriebenen Zelle
21.06.2017 09:19:37
Marius
Hallo Zusammen,
ich hab ein Problem mit einem Liniendiagramm.
Und zwar möchte ich, dass mittels Makro ein Liniendiagramm erstellt wird, mit 5 Datenreihen. Und am besten noch für alle Tabellenblätter.
Sub Diagramm_Messung()
ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=""Ist-Wert"""
ActiveChart.FullSeriesCollection(1).Values = "='Tabelle1'!$D$2:D28"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=""Sollwert"""
ActiveChart.FullSeriesCollection(2).Values = "='Tabelle1'!$E$2:E28"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(3).Name = "=""obere Toleranz"""
ActiveChart.FullSeriesCollection(3).Values = "='Tabelle1'!$F$2:F28"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(4).Name = "=""untere Toleranz"""
ActiveChart.FullSeriesCollection(4).Values = "='Tabelle1'!$G$2:G28"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(5).Name = "=""Ist-Wert nach Anpassung"""
ActiveChart.FullSeriesCollection(5).Values = "='Tabelle1'!$I$2:I28"
End Sub

Mit dem vba kommt zwar das raus, was ich will, aber eben immer nur bis Zeile 28. Es kommen aber auch mal Datenreihen bis Zeile xy vor, weshalb ich jeweils bis in die letzte beschriebene Zelle verweisen möchte.
Hoffentlich kann mir von Euch jemand weiter helfen :)
Grüße
Marius

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liniendiagramm bis zur letzten beschriebenen Zelle
21.06.2017 09:42:26
UweD
Hallo Marius
so? (ungetestet)
Sub Diagramm_Messung()
    Dim SH As Worksheet, LR As Double
    Set SH = Sheets("Tabelle1")
    LR = SH.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
    
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select
    With ActiveChart
        .SeriesCollection.NewSeries
        .FullSeriesCollection(1).Name = "=""Ist-Wert"""
        .FullSeriesCollection(1).Values = "='Tabelle1'!$D$2:D" & LR
        .SeriesCollection.NewSeries
        .FullSeriesCollection(2).Name = "=""Sollwert"""
        .FullSeriesCollection(2).Values = "='Tabelle1'!$E$2:E" & LR
        .SeriesCollection.NewSeries
        .FullSeriesCollection(3).Name = "=""obere Toleranz"""
        .FullSeriesCollection(3).Values = "='Tabelle1'!$F$2:F" & LR
        .SeriesCollection.NewSeries
        .FullSeriesCollection(4).Name = "=""untere Toleranz"""
        .FullSeriesCollection(4).Values = "='Tabelle1'!$G$2:G" & LR
        .SeriesCollection.NewSeries
        .FullSeriesCollection(5).Name = "=""Ist-Wert nach Anpassung"""
        .FullSeriesCollection(5).Values = "='Tabelle1'!$I$2:I" & LR
    End With


End Sub

LG UweD
Anzeige
AW: Liniendiagramm bis zur letzten beschriebenen Zelle
21.06.2017 09:53:35
Marius
@Uwe
Super, genau so soll das Diagramm aussehen!
Vielen Dank :)
Prima! Danke für die Rückmeldung. owT
21.06.2017 09:58:00
UweD
VBA: Diagramm bis zur letzten beschriebenen Zelle
21.06.2017 09:43:26
Beverly
Hi Marius,
dein Code erstellt ein Punkt-Diagramm, kein Liniendiagramm.
Eventuell kann man das einfacher realisieren, dazu müsste man aber wissen, wie dein Tabellenaufbau genau ist (hochgeladene Beispielmappe ist immer hilfreich):
- in welcher Spalte befinden sich die X-Werte?
- stehen die Reihennamen in Zeile 1 oder gibt es keine Zellen mit den Reihennamen?
- sind direkt unterhalb der letzen Zeile sowie der ersten und letzten Spalte mit den Diagrammdaten weitere Inhalte, die nicht mit ins Diagramm aufgenommen werden sollen?

Anzeige
AW: VBA: Diagramm bis zur letzten beschriebenen Zelle
21.06.2017 09:57:14
Marius
@Uwe
genau so sollte es sein, Top :)
Vielen Dank!
@Beverly
hat sich damit erledigt, trotzdem Danke :)
AW: VBA: Diagramm bis zur letzten beschriebenen Zelle
21.06.2017 10:08:31
Beverly
Hi Marius,
schön dass dein Problem gelöst ist, dennoch meine Frage: du möchtest nicht erfahren, wie man den Code eventuell wesentlich vereinfachen könnte?

AW: VBA: Diagramm bis zur letzten beschriebenen Zelle
21.06.2017 11:21:29
Thomas
Hi Beverly,
mich würde es interessieren.
VG Thomas
AW: VBA: Diagramm bis zur letzten beschriebenen Zelle
21.06.2017 11:50:02
Beverly
Hi Thomas,
dazu müsstest du bitte die Fragen aus meinem vorhergehenden Beitrag beantworten, oder besser eine Beispielmappe hochladen, damit man den genauen Tabellenaufbau sehen kann.

Anzeige
AW: VBA: Diagramm bis zur letzten beschriebenen Zelle
22.06.2017 09:07:26
Beverly
Hallo Thomas,
mir ist gerade aufgefallen, dass du ja gar nicht der Fragesteller bist und somit meine Fragen auch nicht beantworten kannst. Angenommen deine Tabelle ist wie folgt aufgebaut:

Tabelle1
 CDEFGH
1X-WerteIst-WertSollwertobere Toleranzuntere ToleranzIst-Wert nach Anpassung
2135744,5
3266749
4345746
5425743
6566749
76797410,5
8766749
9856747,5
10947746
111057747,5

verwendete Formeln
Zelle Formel Bereich N/A
H2:H11=D2*1,5  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.11 einschl. 64 Bit


Dann reicht folgende Codezeile aus:
ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Chart.SetSourceData _
Source:=Range("C1").CurrentRegion

Anzeige

302 Forumthreads zu ähnlichen Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Anzeige
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
16
9
4
4
3
7
2
2
12
1
3
3
9
2
2
2
3
4
1
2
11
3
2
5