Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem beim Verbund-Diagram ...

Problem beim Verbund-Diagram ...
28.01.2005 10:49:44
Marco1005
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag: Sorry - natürlich "Diagramm" o.T.
28.01.2005 10:51:40
Marco1005
AW: Hat sich erledigt o.T.
28.01.2005 11:41:27
Marco1005
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige