Hallo ihr Lieben,
ich habe mal eine Frage... Ich habe in meinem ersten Sheet 5 Diagramme, eines mit allen vier Werten und dann nochmal jeder Wert für sich. Die Wert werden nach einem Datenimport aus einer Text-File in das Sheet 2 ("Daten") geschrieben. Es kann sein, dass es machmal nur drei statt vier Werte gibt, folglich soll dann der vorgesehene Platz im Sheet 1 leer bleiben. Ich dachte, ich schaff das mit einer If-Abfrage, indem ich einfach nur frage, ob die Spalte "I1" belegt ist. Aber das funktioniert irgendwie nicht, egal ob die Zelle belegt ist, es wird jetzt garkein fünftes Diagramm mehr angezeigt. Woran liegt das und wie macht man es richtig?
'Diagramm 5 einfügen
If Range("I1").Value ("") Then
With ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Chart
With .Parent
.Top = Range("b88").Top
.Left = Range("b104").Left
.Height = Range("b88:b104").Height
.Width = Range("b88:J104").Width
End With
'Titel und Legende
.ChartTitle.Caption = Sheets("Daten").Range("I1")
'Datenreihen einfügen und Farben zuweisen
With .SeriesCollection.NewSeries
.Name = Sheets("Daten").Range("I1")
.XValues = wksA.Range(wksA.Cells(1, 2), wksA.Cells(lngAKurve, 2))
.Values = wksA.Range(wksA.Cells(1, 10), wksA.Cells(lngAKurve, 10))
.Border.Color = RGB(43, 182, 170)
End With
End With
Else: End If
Vielen Dank für eure Hilfe!
Linda