Thema Datum  Von Nutzer Rating
Antwort
Rot Makro: Diagramm kopieren aus verstecktem Tabellenblatt
 13.10.2015 15:59:15 Parker
NotSolved
13.10.2015 16:45:38 Gast12065
NotSolved

Ansicht des Beitrags:
Von:
Parker		 Datum:
13.10.2015 15:59:15		 Views:
1279		 Rating:
     
Antwort:
  Ja
Thema:
Makro: Diagramm kopieren aus verstecktem Tabellenblatt

Hallo zusammen,

ich habe folgendes Problem: Ich habe eine große Rechentabelle angelegt, aus der ich mir automatisch Diagramme erstellen lasse. Nun will ich mir die Diagramme nicht sofort anzeigen lassen, sondern sie in ein anderes geöffnetes Excel-Sheet "exportieren" lassen.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Diagramm5()
'
' Diagramm5 Makro
'
 
'
    Sheets("Tabellen").Select
    ActiveWindow.SmallScroll Down:=27
    ActiveSheet.ChartObjects("Diagramm 5").Activate
    ActiveChart.ChartArea.Copy
    Windows("Recovery Report.xlsx").Activate
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Pictures.Paste.Select
    Windows("Sheet_MN_v1.3_nicht validiert_06_Okt_2015.xlsm").Activate
    Sheets("Zusammenfassung").Select
End Sub

So hat das wunderbar funktioniert. Das Problem kam auf, als ich den Tabellenreiter auf "Tabellen-Darstellung" umbenannt habe und das Tabellenblatt ausgeblendet habe.

nun habe ich schon 3,4 Möglichkeiten im Internet gefunden, z.B.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    Sheets("Tabellen-Darstellung").Visible = True
    Sheets.ChartObjects("Diagramm 4").Activate
    ActiveSheet.ChartObjects("Diagramm 4").Activate
 
ODER
 
    SelectedSheets("Tabellen-Darstellung").Visible = 0 - xlSheetHidden
    ActiveSheet.ChartObjects("Diagramm 2").Activate
    ActiveSheet.ChartObjects("Diagramm 2").Activate
 
ODER
 
Sub Diagramm1()
'
' Diagramm1 Makro
'
 
'
    With Worksheets("Tabellen-Darstellung")
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.ChartArea.Copy
    Windows("Recovery Report.xlsx").Activate
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Pictures.Paste.Select
    Windows("Sheet_MN_v1.3_nicht validiert_06_Okt_2015.xlsm").Activate
    End With
Sheets("Zusammenfassung").Select
End Sub

Jedoch funktioniert keiner im Ansatz.

Jemand eine Idee?

Vielen Dank im Voraus!

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Makro: Diagramm kopieren aus verstecktem Tabellenblatt
 13.10.2015 15:59:15 Parker
NotSolved
13.10.2015 16:45:38 Gast12065
NotSolved