Hallo,
ich habe bei folgenden Quellcode ein Problem:
Dim cht As Chart
Dim chtSC As SeriesCollection
Dim bytRow As Byte
Dim bytType As Byte

Set cht = ActiveSheet.ChartObjects(1).Chart
Set chtSC = cht.SeriesCollection

bytType = Application.InputBox _
("Bitte wählen sie zwischen:" & vbCrLf & _
"1 für Säulendiagramm" & vbCrLf & _
"2 für Balkendiagramm" & vbCrLf & _
"3 für Liniendiagramm" & vbCrLf & _
"4 für Flächendiagramm", _
Default:="1", Title:="Diagrammtyp", Type:=1)
If bytType = False Then
Exit Sub
ElseIf bytType 4 Then
MsgBox "Falsche Eingabe"
End If

If bytType = 1 Then
chtSC(1).ChartType = xlColumnClustered ' Säule
ElseIf bytType = 2 Then
chtSC(1).ChartType = xlArea ' Balken
ElseIf bytType = 3 Then
chtSC(1).ChartType = xlPie ' Linie
ElseIf bytType = 4 Then
chtSC(1).ChartType = xlAreaStacked ' Fläche
End If
Set cht = Nothing
Set chtSC = Nothing
Application.ScreenUpdating = True
Das Problem ist nachdem das erste Diagramm einwandfrei angezeigt wird und ich danach ein anderes auswähle, wird dieses in das erste eingefügt. Also ein Mischmasch. Ich weiss nicht warum. Sieht Jemand den Fehler?
Vielen, vielen Dank. Bin schon soweit alles zu löschen.
Gruß
Marco