Datenauswahl Diagramm mit VBA steuern

Hallo Liebe Forumsteilnehmer,
vor einiger Zeit habe ich hier bereits einen Beitrag gepostet. "Franz" hat mit weitergeholfen, das habe ich aber erst heute gesehen. Nun ist der Thread bereits geschlossen.
Nun zum Thema:
In meiner Bsp. Datei ist es bereits möglich, dass ich ein neues Blatt anlege und der Blattname in das Dropdwonmenü aufgenommen wird.
Wähle ich im Dropdownmenü den Blattnamen, dann werden im Diagramm die Daten aus dem jeweiligen Blatt verwendet. Alles super soweit.
Frage 1: Wenn keine Auswahl getätigt ist, bleibt das letzte Diagramm stehen. Gibt es die Möglichkeit, dass das Diagramm gar nicht oder leer dargestellt wird wenn keine Auswahl getätigt ist?
Frage 2: Wie kann ich es umsetzen, dass ich mehrere Kennlinien in das Diagramm mit aufnheme. Das heißt ich wähle in Zelle B3, B4, B5 ff. etwas aus und im Diagramm sollen alle Kennlinien dargestellt werden.
Ich hoffe ich habe alles verständlich erklärt. Herzlichen Dank euch schon mal
Viele Grüße
Martin
Bsp. Datei: https://www.herber.de/bbs/user/113502.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Martin
hier Listbox mit Mehrfachauswahl...
https://www.herber.de/bbs/user/113511.xlsm

Private Sub ListBox1_Change()
Dim i As Integer, x As Integer
With Me.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 0 Step -1
If i  0 Then .SeriesCollection(i).Delete
Next i
End With
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) And ListBox1.List(i)  "" Then
x = x + 1
Call Diagramm_aktualisieren(ThisWorkbook.Worksheets(ListBox1.List(i)), x)
End If
Next i
Range("A1").Select
End Sub

Private Sub Worksheet_Activate()
'Auswahlliste für Blätter aktualisieren
Dim wks As Worksheet
Me.ListBox1.Clear
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case Me.Name
'dieses Tabellenblatt nicht listen
Case Else
Me.ListBox1.AddItem wks.Name
End Select
Next
Me.ListBox1.AddItem ""
Me.ListBox1.Selected(Me.ListBox1.ListCount - 1) = True
End Sub

Private Sub Diagramm_aktualisieren(wks As Worksheet, iCol As Integer)
' Diagramm_aktualisieren Makro
Dim objChart As Chart, ser As SeriesCollection
Set objChart = Me.ChartObjects(1).Chart
objChart.SeriesCollection.NewSeries
With objChart.SeriesCollection(iCol)
.Select
.Name = "=""" & wks.Name & """"
.XValues = "='" & wks.Name & "'!$B$3:$D$3"
.Values = "='" & wks.Name & "'!$B$2:$D$2"
End With
End Sub

cu
Chris

Beliebteste Forumthreads (12 Monate)

Datenauswahl Diagramm mit VBA steuern

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenauswahl Diagramm mit VBA steuern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread