Thema Datum  Von Nutzer Rating
Antwort
Rot Zusammenführen von Diagrammen
 24.02.2016 20:53:10 Peter
NotSolved
24.02.2016 21:17:18 Peter
NotSolved
24.02.2016 23:15:16 Gast66476
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
24.02.2016 20:53:10		 Views:
2043		 Rating:
     
Antwort:
  Ja
Thema:
Zusammenführen von Diagrammen

Hallo,

ich habe ein Reihe von identischen Dateien, welche alle ein Punktdiagramm enthalten. Nun möchte ich diese Diagramme alle in einem neuen Diagramm in einer neuen Datei zusammenfasssen. Mein Lösungsansatz ist wie folgt:

Public Sub Daten_mehrerer_Dateien_zusammenfuehren()

Dim WBQ As Workbook
Dim WBZ As Workbook
Dim varDateien As Variant
Dim lngAnzahl As Long
 
Set WBZ = ActiveWorkbook
 
'Formatieren der aktuellen Datei
    Charts.Add.Name = "Gesamt"
    Sheets("Gesamt").Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

    Application.DisplayAlerts = False
    Worksheets("Tabelle1").Delete
    Worksheets("Tabelle2").Delete
    Worksheets("Tabelle3").Delete
    Application.DisplayAlerts = True

varDateien = _
Application.GetOpenFilename("Datei (*.xls),*.xls", False, "Bitte gewünschte Datei(en) markieren", False, True)
 
With Application
  .ScreenUpdating = False
  .EnableEvents = False
  .Calculation = xlCalculationManual
End With
 
For lngAnzahl = LBound(varDateien) To UBound(varDateien)
Set WBQ = Workbooks.Open(Filename:=varDateien(lngAnzahl))
  WBQ.Worksheets("PQ-Kennlinie").ChartObjects(1).Copy _
  Destination:=WBZ.Worksheets("Gesamt").Paste
  WBQ.Close
Next
 
With Application
  .ScreenUpdating = True
  .EnableEvents = True
  .Calculation = xlCalculationAutomatic
End With
 
MsgBox "Es wurden " & UBound(varDateien) & " Dateien zusammengefügt.", 64
 
End Sub

Wie kann ich den Code verändern, sodass es funktioniert?

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot Zusammenführen von Diagrammen
 24.02.2016 20:53:10 Peter
NotSolved
24.02.2016 21:17:18 Peter
NotSolved
24.02.2016 23:15:16 Gast66476
NotSolved