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