Diagramme erstellen

Peter · 2006-09-20T16:16:07+00:00

Hallo Excelfreunde kann mir bei meinem Problem jemannd weiterhelfen. Ich erhalte aus mehreren Dateien (Excel) Daten die in dieser Jahresdatei zusammengefasst sind. In dieser Datei soll für jedes Werkzeug (Spalte A) aus der Zeit und der Häufigkeit und aus jedem Monat ein Diagramm erstellt werden. Hier als Beispiel die Trayzufuhr. Ich kann zwar das Diagramm mit seinen Einstellungen copieren, muss dann aber für jedes weitere Werkzeug die Zeilennummer für die Standzeit und die Häufigkeit ändern. Dies ist sehr umständlich, da die Originaldatei aus etwas 150 Werkzeugen besteht. Mein Wunsch währe folgender. 1. Komplett für alle in dieser Datei enthaltenen Werkzeuge Diagramme zu erstellen. oder 2. Nur wenn unter einem Monat jeweils Standzeit und Häufigkeit eingegeben wurde, auch ein Diagramm für das Werkzeug zu erstellen. Ist es möglich dies automatisch zB mit Vba zu realisieren.? Wenn ja dann bitte für Anfänger erklären. Hier die Datei: https://www.herber.de/bbs/user/36859.xls Gruß Peter Schilling

Hallo Peter,
### 1. Es wird bei jedem Ausführen des Macros eine neue "MusterDiag" erzeugt.
### Kann ich dies unterbinden.? (MusterDiag 2, 3, 4 usw.)
Ich hab mal alle Diagramme außer MusterDiag gelöscht und das Makro gestartet. Es wurden keine Extra-Kopien des Musters angelegt. Dies passiert evtl. wenn man das Makro mehrmals starte, da dann das Makro mit Fehler abbricht, da ein Registername doppelt vergeben werden soll.
### 2. Gruppennamen in "AB" eintragen. Das verstehe ich nicht wie das gemeint ist.
### Diese Datei soll für 6 verschiedene Gruppennummern mit den selben einstellungen
### gelten. Kann die Nummer nicht aus der Musterdiag entnommen werden.!!!
Wenn die Nummer für alle Diagramme in der Arbeitsmappe gleich ist, dann kann man die Nummer fest im Makro eintragen. Falls die Nummer sich für die verschiedenen Werkzeuge ändert, dann muss man in dem Makro irgendwo die Info herholen. Im Moment holt das Makro diese Info aus der Spalte AB. Aber ggf sind auch andere Lösungen möglich.
### 3. Kann ich per Macro alle Diagramme (Außer MusterDiag) löschen. ?
Hier der Code zum Löschen der Diagramme.


Sub DiagrammeLoeschen()
Dim diagramm As Chart
For Each diagramm In ActiveWorkbook.Charts
Application.DisplayAlerts = False
If diagramm.Name <> "MusterDiag" Then diagramm.Delete
Application.DisplayAlerts = True
Next diagramm
End Sub

### 4. Wenn zB das Macro mehrmals ausgeführt wird, (Wegen Aktualisierung) dann kommt
### eine Fehlermeldung. (Laufzeitfehler 13 Typen unverträglich)
Wenn das Makro mehrmals ausgeführt wird, dann versucht das Makro den gleichen Namen ein zweites mal für ein Diagramm zu vergeben.
Abhilfe: vorher alle Diagramme außer dem Muster löschen
oder
Im Makro vor der Umbenennung des neuen Blattes prüfen, ob der ermittelte Blattname schon vorhanden ist, und dann geeignete Maßnahmen ausführen.
Gruß
Franz

Hallo Peter,
Mit der Gruppen-Nummer ist folgendes: Ich hatte es so eingerichtte, dass wenn die Nummer in Spalte AB zu jedem Maschinen-Teil eingetragen wird, dann wird sie auch im vom Makro im Diagramm-Titel eingetragen. Man könnte es auch so machem, dass die Gruppennummer nur einmal für die Maschine eingetragen wird oder in einer Tabelle eine Liste der Maschinen mit den zugehörigen Gruppennummer, die man dann im Makro auswertet.
Ich hab hier einen Code-Abschnitt der im Diagramm ein Textfeld anlegt, in dem die Bezeichnung der Maschine eingetragen wird. Mit dem Code wird die Maschine unter dem Diagrammtitel eingetragen. Du kannst das Textfeld aber noch beliebig plazieren. Die Variable "Bereich" mit der Maschinen-Bezeichnung wird schon zu Begnn des Makros mit dem Wert gefüllt, um den Namen des Diagramm-Registers festzulegen.


With DiagNeu
.HasTitle = True
.ChartTitle.Characters.Text = "Störzeiten 2006  Gruppe 7621 " _
& "  " & wksEingabe.Cells(iZ, 1)
End With
DiagNeu.ChartTitle.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "Arial"
.Size = 20 ' Schriftgröße für Diagrammtitel
End With
'Position Diagrammtitel
Selection.Left = 30
Selection.Top = 5
'Maschinenname in Textfeld schreiben
DiagNeu.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 30, 200, 30).Select
' Zahlen in vorheriger Zeile geben Position und Größe der Box an (Links, Oben, Breite, Höhe)
Selection.Characters.Text = "Maschine: " & Bereich
'Textausrichtung in Box
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.Orientation = xlHorizontal
.AutoSize = False
End With
'Schriftformatierung Box
With Selection.Font
.Name = "Arial"
.Size = 20
.Bold = True
.ColorIndex = xlAutomatic
.Background = xlTransparent
End With
ActiveChart.PlotArea.Select

Alternativ kannst du natürlich auch die Bezeichnung einfach am Ende des Diagrammtitels anfügen:


.ChartTitle.Characters.Text = "Störzeiten 2006  Gruppe 7621 " _
& "  " & wksEingabe.Cells(iZ, 1) & "    " & Bereich

Die Zeile in der du die Fontgröße des Diagrammitels einstellen kannst findest du oben im Code.
Gruss
Franz

Forumthread: Diagramme erstellen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Diagramme erstellen

Forumthread: Diagramme erstellen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread