Diagramm kopieren, mit neuen Daten einfügen

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich hoffe mir kann jemand bei meinen Problem helfen:

Ich habe eine Exceldatei die verwendet wird um jeden Tag, alle drei Stunden Messdaten einzutragen.
Um Schwankungen in diesen Daten zu veranschaulichen, hätte ich davon gerne ein Diagramm.

Jetzt ist es so, dass es ein „Grundformular“ für den 1. Tag gibt. Für jeden neuen Tag wird automatisch ein Block um 00:00 Uhr eingefügt, damit dieser mit den Daten des neuen Tages ausgefüllt werden kann.

Genauso möchte ich auch, das für jeden neuen Tag ein neues Diagramm erscheint:
Also in meinem Fall werden die Daten des ersten Tages in D23:K23 und D21:K21 geschrieben und in einem Diagramm (auf Position D40:K50) angezeigt.
Ich möchte jetzt das um 00:00 Uhr genauso ein neues Diagramm auf der Position L40:S50 erscheinen, welches dann die Daten der Zellen L23:S23 und L21:S21 übernimmt. (usw.)

Kann mir da jemand weiter helfen, da ich absolut keinen Plan habe wie ich das anstellen soll!! =(

#2

Kann mir da jemand weiter helfen, da ich absolut keinen Plan
habe wie ich das anstellen soll!! =(

Hallo Sonja,

soll da diese Tabelle für das ganze Jahr gelten?
Dann hast du wohl Excel>=2007.

Du könntest manuell die 365 Diagramme erstellen und vorbereiten
auf Daten die dann in die dazugehörigen Datenzellen eingetragen werden.
Vorher zeigen halt die Diagramme Schrott an.

Diese 365 Diagramme würde ich sowieso per Vba erstellen lassen.
Das kann man einmalig erledigen lassen dann kann man das Makro löschen
und hat eine makrofreie Mappe.

Alternativ diese Diagramme nur bei Bedarf, wenn also daten vorliegen,
erstellen lassen/sichtbar werden lassen.
Das geht nur mit Makros in der Mappe.

Erstelle mal eine Beispielmappe mit 3-4 tagen und deren Diagrammen.
Hochladen mit dem obersten Link von FAQ:2606

Gruß
Reinhard

#3

Hallo Reinhard,

kannst du dich noch an das Excel-Dokument erinnern bei dem du mir mal geholfen hast? Das auf Spanisch/Deutsch?
Da hast du mir ja geholfen per VBA bei jedem neuen Tag (nuevo dia) für die Proben die Rahmen/Datum/etc. einzufügen.
Genauso brauche ich das für das Diagramm, weil ich meine Angestellten kein Diagramm einfügen lassen kann…

Kann ich auf ähnliche weise nicht auch ein Diagramm einfügen bei Tageswechsel?

Liebe Grüße,
Sonja

#4

Hilfe/Infos für Diagramm gesucht
Hallo Sonja,

kannst du dich noch an das Excel-Dokument erinnern bei dem du
mir mal geholfen hast? Das auf Spanisch/Deutsch?

mas o menos :smile:
Hattest Glück, hatte die Mappe von dir noch auf dem PC.

Kann ich auf ähnliche weise nicht auch ein Diagramm einfügen
bei Tageswechsel?

Ich denke schon. Tageswechsel usw. habe ich noch gar nicht eingebaut,
ich hänge noch an der Diagrammerstellung fest :frowning:
Hier die Mappe:
http://www.file-upload.net/download-4504609/kwSonja…
Im Modul3 ist nachfolgender Code.

Ich habe in die Mappe zum Testen ein neues Blatt eingefügt,
„Tabelle1“. Dort fügt der Code „Test“ das Diagramm ein.

Irritation1:
Man kann den Code mehrmals laufen lassen und jedesmal wird ein
Diagramm mit dem Namen „Diagramm4“ eingefügt. Für mich völlig neu,
bislang meckerte Excel immer wenn man Namen doppelt vergeben will!?
Aber wie die Prozedur „Pruef“ zeigt nimmt Excel das klaglos hin.

Irritation2:
Wo habe ich da welches Häkchen übersehen? Denn dein Diagramm im
Blatt „prueba_reunión“ sieht anders aus als meines in „Tabelle1“!?
Ich meine jetzt nicht die äußerliche Größe, die hängt ja u.a. von
der Spaltenbreite ab und ist so okay.

Die erste Irritation ist halb so wild, habe ich halt wieder was gelernt. Die zweite macht mir Sorge steh da grad auf’m Schlauch.

Gruß
Reinhard

Option Explicit

Sub Test()
Call DiagrammErstellen(4)
End Sub

Sub DiagrammErstellen(ByVal Spalte As Long)
Dim wks As Worksheet, L, T, W, H
Set wks = Worksheets("prueba\_reunión")
L = Worksheets("Tabelle1").Cells(40, Spalte).Left
T = Worksheets("Tabelle1").Cells(40, Spalte).Top
W = Worksheets("Tabelle1").Cells(40, Spalte + 8).Left - Worksheets("Tabelle1").Cells(40, Spalte).Left
H = Worksheets("Tabelle1").Cells(51, Spalte).Top - Worksheets("Tabelle1").Cells(40, Spalte).Top
With Worksheets("Tabelle1").Shapes.AddChart(xlLine, L, T, W, H)
 .Chart.SetSourceData Source:=wks.Range(wks.Cells(23, Spalte), wks.Cells(23, Spalte + 7))
 .Chart.SeriesCollection(1).XValues = wks.Range(wks.Cells(21, Spalte), wks.Cells(21, Spalte + 7))
 .Name = "Diagramm" & Spalte
 .Chart.Legend.Delete
 .Chart.SetElement (msoElementChartTitleAboveChart)
 .Chart.ChartTitle.Text = "Peso"
 Range("G17").Select
End With
End Sub

Sub Pruef()
Dim S
For Each S In ActiveSheet.Shapes
 MsgBox S.Name
Next
End Sub

Liebe Grüße,
Sonja

#5

Hallo Reinhard,

ehrlich gesagt verstehe ich nicht ganz was du mir da geschickt hast…
Ich habe die aktuelle Datei nochmal hochgeladen:
http://www.file-upload.net/download-4506578/2012-07-…

Und in dieser sollte es dann in der Mappe „prueba_reunión“ um 00:00h ein neues Diagramm erstellt werden, genauso wie es in L20:S38 einen neuen Tag für die Messungen mit dem dazugehörigen Kommentarfeld erstellt wird und in AB54:AY83 für die Proben und deren Kommentarfeld.

Das neu erstellte Diagramm soll dann die jeweiligen Gewichtsmessungen von dem Tag darstellen.
Es soll einfach wie eine Kopie vom ersten Diagramm sein, nur das die Daten aus den dazugehörigen Tagen entnommen werden…

Würde sowas gehen? Weil bei Diagrammen bin ich total aufgeschmissen. =(

Liebe Grüße,
Sonja

#6

http://www.file-upload.net/download-4506578/2012-07-…

Hallo Sonja,

http://www.file-upload.net/download-4508560/kwSonja2…

erst wenn der Code funktioniert kann man ihn mitternächtlich aufrufen
lassen. Zum Testen klicke auf den Button „Test Diagramm“.
Dieser Klick startet dann diese Prozedur:

Sub Test()
Dim N, S, wks As Worksheet
Set wks = Worksheets("prueba\_reunión")
For Each S In wks.Shapes
 If S.Name Like "PesoDiag\*" Then S.Delete
Next S
For N = 4 To 36 Step 8 ' Spalten D, L, T, AB, AJ
 Call DiagrammErstellen(N)
Next N
End Sub

In der ersten For-Schleife werden alle Diagramme gelöscht, die im
Namen mit PesoDiag beginnen.

In der zweiten For-Schleife werden die Diagramme erzeugt.
Die Unterprozedur „DiagrammErstellen(N)“ braucht als Parameter/Argument N die linke Spalte (-nummer) des geplanten
Diagrammbereichs.

Also erst 4 dann 12 dann 20 usw. was in Buchstaben D, L, T usw. bedeutet. Erhöhe also im Code die „36“ wenn du mehr Diagramme willst.

Du müßtest jetzt Zeile 21 und 23 mit mehr (Test-) Daten füllen.
Dann mitteilen wie z.b. die y-Achse skaliert werden soll,
von 0-40 oder 25-35 oder oder.

Gruß
Reinhard

#7

Ja das sieht ja schon ganz gut aus =) Danke!

Jetzt muss ich nur noch herausfinden wie ich das mit der „Major Unit“ und der „Minor Unit“ mache…

Was ich noch gerne anders hätte - aber ich weiss nicht ob das möglich ist - ist, dass immer nur ein Diagramm aufscheint für jeden neuen Tag.
Als bei jedem neuen Tag ein neues Diagramm. (bzw. per knopfdruck wie auch bei „nuevo dia“).

Wäre das nicht möglich?

Und noch eine andere Frage fällt mir da gerade ein!!! Etwas ganz wichtiges!!
Wenn der Auftrag vorbei ist, wie bringe ich das dann wieder zum Stoppen?? Also das es mir dann in dieser Mappe keinen neuen Tag mehr aufmacht zum Messungen eintragen und auch die Diagramme aufhören?
Denn das Dokument ist ja immer offen, aber es soll eigentlich nur ein neuer Tag kommen, wenn die Maschine mit diesem Produkt läuft.
D.h. ich bräuchte dann noch einen Button mit dem ich die Schleifen abstellen kann… (??)

Liebe Grüße,
Sonja