Diagramm mit VB erstellen (excel)

Computer: Software & Programmierung Visual Basic
#1

Hallo an alle ich möchte ein Diagramm erstellen mittels VB.

meine Daten sehen wie folgt aus:
6; 31°
5; 32°
4; 30°
3; 33°
2; 36°
1; 34°

Es wird immer wieder eine neue Reihe eingefügt (über der letzten).
vor dem semikolon steht die Messungs-nr und danach kommt der wert in einer anderen Spalte.

Mein Code sieht bislang so aus:

reihe = 4
str = „Werte!R4C2“
Do While Workbooks(1).Worksheets(2).Cells(reihe, 2).Value „“
reihe = reihe + 1
str = „Werte!R“ & reihe & „C2,“ & str
Loop
str = „=(“ & str & „)“

If ActiveSheet.ChartObjects.Count > 0 Then
ActiveSheet.ChartObjects(1).Delete
End If

Charts.Add
ActiveChart.ChartType = xlLine
With Sheets(„Werte“)
ActiveChart.SetSourceData Source:=Sheets(„Werte“).Range(„D12“)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = str
ActiveChart.SeriesCollection(1).Name = „=“„Messwert“""
ActiveChart.Location Where:=xlLocationAsObject, Name:=„Werte“
ActiveChart.HasDataTable = False
ActiveSheet.Shapes(1).IncrementLeft 70.5
ActiveSheet.Shapes(1).IncrementTop -27#

Irgendwie geht es so bei mir nicht und ich hab keine Ahnung wo das Problem in dem Code ist.

#2

Hi Pistol,

meine Daten sehen wie folgt aus:
6; 31°
5; 32°
4; 30°
3; 33°
2; 36°
1; 34°

Es wird immer wieder eine neue Reihe eingefügt (über der
letzten).

Wie wird die eingefügt? manuell durch Zeile einfügen?

vor dem semikolon steht die Messungs-nr und danach kommt der
wert in einer anderen Spalte.

wie sieht der Zellinhalt der Zellen genau aus, haben die den Zellinhalt:

A1: 6;
B1: 31°

oder diesen Zellinhalt:

A1: 6
B1: 31

und der Rest wird durch Formatierung so angezeigt 6; 31° ?

Mein Code sieht bislang so aus:

Ja, ich habe ihn mir angeschaut, bastle bitte eine kleine Beispielmappe wo man sieht wie deine Daten aussehen und wie das Diagramm, dann FAQ:2861

Und, wichtig, sonst kannste dir das Hochladen sparen, mache dir bitte verstärkte Gedanken wie du die Datei gestaltest, was du noch an Erläuterungen dazu schreibst damit dir überhaupt jemand der keine Glaskugel hat dir helfen kann.

Und, „Irgendwie geht es so bei mir nicht“ ist nicht hilfreich :frowning:

Gruß
Renhard

#3

Hi Reinhard,

also ich hab die beispielmappe hochgeladen, Sie dürfte unter folgendem Link zu erreichen sein:
http://www.badongo.com/file/11502267

Mein Ziel ist es das der Aktuelle Wert in der Tabelle oben steht.
Und das das Diagramm sich jedesmal wieder aufs neue anpasst.

Übrigens gibt der User normaler weise die Zahl nicht im Sheet2 3,3 ein sondern via formular.

Danke für die hilfe.

pistol

#4

Hi Pistol,

http://www.badongo.com/file/11502267

Mein Ziel ist es das der Aktuelle Wert in der Tabelle oben
steht.
Und das das Diagramm sich jedesmal wieder aufs neue anpasst.

Übrigens gibt der User normaler weise die Zahl nicht im Sheet2
3,3 ein sondern via formular.

schau an , diesmal 3,3…

Warum vergeudest du sinnloserweise Mühen, Zeit, Motivation?

Du startest mit Zelleinträgen ala:

6; 31°

In deiner Tabelle sehen die wenigen Einträge so asu:

Tabellenblatt: C:\DOKUME~1\ICHALS~1\LOKALE~1\Temp\[beispielmappe.xls]!Werte
 │ A │ B │ C │
──┼─────────┼──────┼────────────┤
3 │ Messung │ Wert │ Datum │
──┼─────────┼──────┼────────────┤
4 │ 4 │ 23 │ 26.09.2008 │
──┼─────────┼──────┼────────────┤
5 │ 3 │ 23 │ 26.09.2008 │
──┼─────────┼──────┼────────────┤
6 │ 2 │ 33 │ 24.09.2008 │
──┼─────────┼──────┼────────────┤
7 │ 1 │ 34 │ 20.8.2008 │
──┴─────────┴──────┴────────────┘

Tabellendarstellung erreicht mit dem Code in FAQ:2363

und jetzt auf einmal steht da irgendwo 3,3 drin !

Das bedeutet, alle Beiträge Denkbemühugen u.v.m. bisher waren für die Tonne :frowning:

Hier dies benutzen:

Do While Workbooks(1).Worksheets( 1 )…

aber in der Datei dann

Do While Workbooks(1).Worksheets( 2 )…

bringt wieder nur sinnlose Ressourcenverschwendung. Willst du eine Lösung oder willst du die Lösung unmöglich machen?

Also mach mal bitte einen großen Denk, komm mal zu Potte und trage in dem Blatt paar mehr Datenzeilen ein, genau so wie sie später da stehen werden, also keine Spielchen mehr mit °, ;, , .

Mir doch völlig gleich was da für Daten stehen, ich muß aber exakt wissen was der echte Zellinhalt ist und was durch Formatierung oder sonstwie die Anzeige des Zellinhalts beeinflußt.

Und zum Posten von Tabellenbereichen kannst du entweder die o.g. FAQ benutzen, oder nur den Pre-Tag, wird unterhalb des Eingabefensters erläutert, dann bleiben Einrückungen per Leerzeichen erhalten.

Gruß
Reinhard

#5

Hallo Reinhard,

Ich war leider das Wochenende nicht zu hause gewesen deswegen jetzt die späte antwort.

zu der 3,3:
Der Wert welcher in die neue Zeile eingefügt wird steht in Sheet(2).Cells(3,3) und da wird eine normale zahl eingegeben. ala 32, 34, 44.
Das sollte nur eine erklärung werden.

Zu dem wichtigeren wenn es einfacher geht bitte zeig mir wie.
Ich bin am verzweifeln … ich hab keine ahnung wie ich das Diagramm erstellen soll.

Schritte:

  1. User gibt einen wert ein.
  2. vba-script wird ausgeführt
  3. neue Zeile wird angelegt
  4. neue Zeile wird mit werten gefüllt.
  5. die neue Zeile und die alten werden via Diagramm dargestellt.

so ich hoffe ich konnte mich diesmal besser ausdrücken.

Viele Grüße
pistol