Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagramm aus Variablen

Diagramm aus Variablen
14.03.2006 09:06:54
Müller
Hi,
sorry, wenn ich mit trivialen Fragen nerve, aber leider habe ich noch kein vba buch rumstehen, welches mir meine fragen beantwortet...
ziel:
- diagramm Punkt(x,Y) mit Linien
daten:
- in vba definiertes x1 bis x9 und ebenfalls in vba definiert sind y1 bis y7
- diese sind jeweils zu nem x,y punkt zusammenzufügen und im diagramm abzubilden
frage:
- wie realisierbar? kenne bisher nur die möglichkeit die daten aus ner excel tabelle rauszuholen :(
also kern meiner frage ist die zuweisung der source des diagramms...
vielen dank...

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm aus Variablen
14.03.2006 12:39:57
Herbert
hallo Müller,
das geht so:
Dim dQu
Set dQu = Sheets("Tabelle1").Range("A1:D20")
Sheets("Tabelle1").ChartObjects(1).Chart.SetSourceData Source:=dQu, PlotBy:=xlRows
gruß Herbert
AW: Diagramm aus Variablen
14.03.2006 13:29:53
Müller
hi,
entweder ich verstehe was net richtig, oder du hast mich falsch verstanden. ich habe sozusagen im vba quelltext die variablenwerte für x1 bis x9 stehen
(irgendwie so in der art: x1 = irgendeine_variabel) und y1 bis y9 (wobei y1=1 und y2=2 - rest analog)...nun möchte ich in einem diagramm die wertepaare (x1,y1) bis (x9,y9) abtragen und mit einer linie verbinden...die werte stehen aber in KEINER tabelle, so dass ich über nen Range(Zellenbereich) arbeiten könnte.
jetzt klarer? oder geht das gar nicht? oder versteh ich was net ganz richtig?
vg, müller
Anzeige
AW: Diagramm aus Variablen
14.03.2006 15:03:23
K.Rola
Hallo,
lad mal bitte ein Beispiel hoch, aus dem hervorgeht, wie dein Diagramm aussehen soll.
Gruß K.Rola
AW: Diagramm aus Variablen
14.03.2006 15:43:24
Müller
hi,
also so hier soll das diagramm ungefähr aussehen: http://www.innovation-aktuell.de/images/0808ab02.gif
dabei möchte ich dann halt für die einzelnen zeilen die spaltenwerte (in diesem fall 1 - 6) abtragen...also ist bei mir der "leistungsindex" (1 für sehr stark, 6 für sehr schwach) die variable, welche ich per vba ermittelt habe
AW: Diagramm aus Variablen
14.03.2006 16:19:52
K.Rola
Hallo,
hab mich unglücklich ausgedrückt, ich meinte eine Excelmappe mit einem entsprechenden Diagramm. Die Werte können ja erstmal tabellengestützt dargestellt werden.
Ich bastle den Code dann dort ein.
Gruß K.Rola
Anzeige
AW: Diagramm aus Variablen
14.03.2006 19:24:05
Herbert
ich habe etwas zu schnell drüber gelesen...
d.h.du willst die Daten direkt in die Datenquelle schreiben ?
das wäre ein Ansatz:


Option Explicit
Public Sub Diagr_erst()
Dim xv, yv(8, 0), xv1, yv1, xv2, yv2
Dim i%
    For i = 0 To 8
        yv(i, 0) = i + 1
    Next
        xv = Array("AAA""BBB""CCC""Finanzen""EEE""FFF""GGG""Patentsituation""III")
        xv1 = Array(0.9, 2.8, 1.7, 2.3, 3.3, 3.4, 4.5, 2.1, 0.8)
        yv1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
        xv2 = Array(1.9, 2.1, 3.3, 1.9, 2.2, 2.7, 3.3, 3.1, 1.5)
        yv2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
               
With Worksheets("Tabelle1").ChartObjects.Add(180, 95, 240, 210)
        .Name = "xy"
     With .Chart
            .SeriesCollection.NewSeries
            .ChartType = xlBarClustered
            With .SeriesCollection(1)
                    .XValues = xv
                    .Values = yv
                    .Border.LineStyle = xlNone
                    .Interior.ColorIndex = xlNone
             End With
             
            .SeriesCollection.NewSeries
            With .SeriesCollection(2)
                   .ChartType = xlXYScatterLines
                   .XValues = xv1
                   .Values = yv1
                   .Border.ColorIndex = 11
                   .MarkerBackgroundColorIndex = 34
                   .MarkerForegroundColorIndex = 1
                   .MarkerStyle = xlCircle
                   .MarkerSize = 6
            End With
            
            .SeriesCollection.NewSeries
            With .SeriesCollection(3)
                   .ChartType = xlXYScatterLines
                   .XValues = xv2
                   .Values = yv2
                   .Border.ColorIndex = 3
                   .MarkerBackgroundColorIndex = 46
                   .MarkerForegroundColorIndex = 1
                   .MarkerStyle = xlCircle
                   .MarkerSize = 6
            End With
            
        With .Axes(xlValue)
            .MaximumScale = 6
            .MajorUnit = 1
            .TickLabels.Font.Size = 7
        End With
        .HasAxis(xlCategory, xlSecondary) = False
        .HasAxis(xlValue, xlPrimary) = False
        .HasAxis(xlValue, xlSecondary) = False
        .Legend.Delete
        With .PlotArea
            .Width = 225
            .Height = 180
            .Top = 30
           ' .Interior.ColorIndex = xlNone
        End With
        
    End With
End With
    
End Sub

     gruß herbert
Anzeige
AW: Diagramm aus Variablen
15.03.2006 13:07:58
Müller
danke, das war ein guter ansatz zum weiterarbeiten :)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige