Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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
Inhaltsverzeichnis

Diagramm Daten mir VBA Auswählen

Diagramm Daten mir VBA Auswählen
22.06.2017 15:10:45
Luftikus
Hallo an Alle,
hier ist mein Code Schnippsel:
With .SeriesCollection.NewSeries
.Name = Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen).Value
.XValues = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen).Value & "'!$F$8:$F$32"
.Values = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen).Value & "'!$E$8:$E$32"
End With
So ist es möglich dass ich via VBA Daten von einem Blatt auswähle und interaktiv in einem Diagramm darstellen kann.
Kann mir jemand sagen wie es funktioniert wenn ich noch eine weitere Kennlinie im Diagramm dargestellt haben will.
Praktisch bedeutet das: Ich habe bei bspw. ein Produkt bei dem es Umsatz, Gewinn, Absatzkennlinie etc. gibt. Ich würde dann gerne per AUswahl alle Kennlinien des einen Produkt im Diagramm sehen.
Ich hoffe ich habe es verständlich erklärt.
Viele Grüße
Luftikus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm Daten mir VBA Auswählen
22.06.2017 15:12:55
Luftikus

Private Sub DiaAktualisieren()
Dim lngReihen As Long
Dim objChart As Chart
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows. _
Count)
Set objChart = Me.ChartObjects(1).Chart
With objChart
For lngReihen = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(lngReihen).Delete
Next lngReihen
For lngReihen = 1 To Range(Cells(4, 4), Cells(lngLetzte, 4)).SpecialCells( _
xlCellTypeAllValidation).Count
If Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  "" And _
Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  _
"keine Auswahl" Then
With .SeriesCollection.NewSeries
.Name = Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen).Value
.XValues = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$F$8:$F$32"
.Values = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$E$8:$E$32"
End With
End If
Next lngReihen
End With
End Sub
Her noch die ganze Sub.
Anzeige
Unklare Fragestellung
22.06.2017 15:18:10
Beverly
Hi,
so richtig verstehe ich dein Problem nicht - du hast doch bereits eine If-Anweisung, mit der du nur bestimmte Daten ins Diagramm bringst; erweitere diese um die entsprechende weitere Bedingung bzw. benutze eine zusätzliche If-Anweisung.


AW: Unklare Fragestellung
23.06.2017 08:51:18
Luftikus
Hey Beverly, so einfach wars auch schon. Vielen lieben Dank! Mein Code sieht jetzt folgendermaßen aus:
 With objChart
For lngReihen = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(lngReihen).Delete
Next lngReihen
For lngReihen = 1 To Range(Cells(4, 4), Cells(lngLetzte, 4)).SpecialCells( _
xlCellTypeAllValidation).Count
If Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  "" And _
Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  _
"keine Auswahl" Then
With .SeriesCollection.NewSeries
.Name = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$E$3"
.XValues = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$F$8:$F$32"
.Values = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$E$8:$E$32"
End With
End If
If Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  "" And _
Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  _
"keine Auswahl" Then
With .SeriesCollection.NewSeries
.Name = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$J$7"
.XValues = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$F$8:$F$32"
.Values = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$J$8:$J$32"
End With
End If
If Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  "" And _
Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  _
"keine Auswahl" Then
With .SeriesCollection.NewSeries
.Name = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$G$7"
.XValues = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$F$8:$F$32"
.Values = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$G$8:$G$32"
End With
End If
If Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  "" And _
Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen)  _
"keine Auswahl" Then
With .SeriesCollection.NewSeries
.Name = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$H$7"
.XValues = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$F$8:$F$32"
.Values = "='" & Range(Cells(4, 4), Cells(lngLetzte, 4)).Cells(lngReihen). _
Value & "'!$H$8:$H$32"
End With
End If
Next lngReihen
End With
Weißt du wie es möglich ist, dass ich für das letzte Diagramm (F8:F32 und H8:32) eine Sekundärachse mit einfüge? Vielen lieben Dank dir nochmal.
Grüße
Martin
Anzeige
AW: Unklare Fragestellung
23.06.2017 08:58:49
Beverly
Hi Martin,
ergänze einfach innerhalb der letzten With-Anweisung am Ende noch diese Zeile
        .AxisGroup = 2


AW: Unklare Fragestellung
23.06.2017 09:07:10
Luftikus
Oh man es kann so einfach sein.... 1000 Dank!

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige