Löschen von Datenreihen in XY Diagramm
17.02.2009 13:08:00
Datenreihen
Dieses Problem habe ich bereits in einem anderen Forum gepostet. Dort konnte aber leider niemand mein Problem lösen. Deshalb habe ich es im anderen Forum als erledigt markiert und erwarte auch keine Antwort mehr.
Viel mehr hoffe ich, dass Ihr mir weiterhelfen könnte und ich nicht gegen irgendwelche Crossposting-Regeln verstoße.
momentan kämpfe ich mit folgendem Problem:
Es werden in varibel vielen Arbeitsblättern (erkennbar an dem m, s.u) jeweils 2 XY-Blankodiagramme eingefügt. In diesen werden jeweils 16 Datenreihen mit Namen "USB S1", "USB S2", ..., "USB S16" generiert, die als y-Wert die {1} beinhalten, die x-Reihen werden nicht befüllt.
Anschließend werden alle Diagramme durch ein zufälliges Muster mit Werten aus Datensätzen belegt. Dabei kann es vorkommen, dass einige Datenreihen "leer" bleiben.
Bis hierher funktioniert das ganze auch wunderbar.
Nun möchte ich alle überflüssigen Datenreihen (die, die keine Daten enthalten) per vba löschen. Ich habe entweder die Möglichkeit dies zu tun, indem ich auf Inhalt der x-Reihe prüfe (wenn "", dann lösche) oder aber über den jeweiligen Datenreihennamen, da sich dieser variabel ändert, wenn x-Werte eingetragen werden.
Jetzt erhalte ich wenn ich die x-Datenreihen vergleiche den Laufzeitfehler 13 - Typen unverträglich.
Wenn ich die Namen vergleiche, dann erhalte ich Laufzeitfehler 1004 - Die Methode 'SeriesCollection' für das Objekt '_Chart' ist fehlgeschlagen.
Hier der Code des Makros mit beiden Varianten.
Option Explicit
Public m As Integer
Public Sub loeschen_leerer_Datenreihen()
m = Sheets("Startblatt").Range("A1")
'Löschen der jeweils überflüssigen Datenreihen
Dim x As Long
Dim i As Long
Dim Reihenname As String
For i = 1 To m
Sheets("Endprotokoll_Kunde_" & i).Select
ActiveSheet.ChartObjects("Kunde_" & i & "_I").Activate
For x = 1 To 16
Reihenname = "USB S" & x
If ActiveChart.SeriesCollection(x).name = Reihenname Then
' If ActiveChart.SeriesCollection(x).XValues = "" Then
ActiveChart.SeriesCollection(x).Delete
End If
Next x
Next i
End Sub
Ferner habe ich eine Beispielmappe angefügt, damit mein Problem besser verständlich wird.
https://www.herber.de/bbs/user/59533.xls
Schon mal vielen Dank für Eure Hilfe.
Liebe Grüße