|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.01.2016 12:34:14 |
claudia |
|
|
|
23.01.2016 13:26:09 |
Gast52079 |
|
|
|
23.01.2016 13:45:40 |
claudia |
|
|
|
23.01.2016 19:56:04 |
Gast21899 |
|
|
|
24.01.2016 12:37:23 |
Gast71226 |
|
|
|
24.01.2016 15:11:08 |
Gast56507 |
|
|
|
24.01.2016 19:35:01 |
Claudia |
|
|
|
25.01.2016 15:29:03 |
Gast25549 |
|
|
 Array erstellen und Diagramm übergeben |
25.01.2016 19:49:19 |
Gast52841 |
|
|
|
26.01.2016 17:01:37 |
claudia |
|
|
|
24.01.2016 19:37:10 |
Gast69668 |
|
|
|
25.01.2016 15:24:59 |
Gast22403 |
|
|
Von:
Gast52841 |
Datum:
25.01.2016 19:49:19 |
Views:
1165 |
Rating:
|
Antwort:
|
Thema:
Array erstellen und Diagramm übergeben |
|
Hallo Claudia!
Also hier mal ein Versuch. Die Werte sind im aktuellen Blatt. Für die x Achse sollen die Werte in Spalte A genommen werden. Die Werte aus Y sollen angezeigt werden. Da A ja immer gleich ist, habe ich deshalb nur ein einspaltiges Array genommen. Machts es einfacher. Hatte nur Probleme, dass er deine Zahlen erst nicht als Zahl genommen hat. Schaue mal, ob das dem Ergebniswunsch Nahe kommt. Zudem stimmt der Graph (wenn du ihn anklickst) bei der Datenreihe mit deinen Vgaben überein. VG
Sub chart_fuellen()
Dim i As Long
Dim Mittelwert
Dim Standardabweichung
Dim t(1 To 9)
Dim xspalte
xspalte = ActiveSheet.Range("A1:A9")
Mittelwert = Application.WorksheetFunction.Average(ActiveSheet.Range("A1:A9"))
Standardabweichung = Application.WorksheetFunction.StDev(ActiveSheet.Range("D1"), ActiveSheet.Range("A1:A9"))
For i = 1 To 9 ' Zeilen
t(i) = ActiveSheet.Cells(i, 1).Value ' und in die 2. Spalte vom Array die Werte aus der Berechnung
t(i) = Application.WorksheetFunction.NormDist(t(i), Mittelwert, Standardabweichung, False)
Next i
ActiveSheet.Range("A1:A9").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SeriesCollection(1).XValues = xspalte
ActiveChart.SeriesCollection(1).Values = t
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.01.2016 12:34:14 |
claudia |
|
|
|
23.01.2016 13:26:09 |
Gast52079 |
|
|
|
23.01.2016 13:45:40 |
claudia |
|
|
|
23.01.2016 19:56:04 |
Gast21899 |
|
|
|
24.01.2016 12:37:23 |
Gast71226 |
|
|
|
24.01.2016 15:11:08 |
Gast56507 |
|
|
|
24.01.2016 19:35:01 |
Claudia |
|
|
|
25.01.2016 15:29:03 |
Gast25549 |
|
|
Array erstellen und Diagramm übergeben |
25.01.2016 19:49:19 |
Gast52841 |
|
|
|
26.01.2016 17:01:37 |
claudia |
|
|
|
24.01.2016 19:37:10 |
Gast69668 |
|
|
|
25.01.2016 15:24:59 |
Gast22403 |
|
|