Thema Datum  Von Nutzer Rating
Antwort
10.04.2014 12:04:00 Simpson93
NotSolved
Blau Dynamisches Diagramm mit Makro
 10.04.2014 20:30:31 gabi
NotSolved
11.04.2014 10:12:26 Gast3165
NotSolved
11.04.2014 10:13:38 Simpson93
NotSolved

Ansicht des Beitrags:
Von:
gabi		 Datum:
10.04.2014 20:30:31		 Views:
830		 Rating:
     
Antwort:
  Ja
Thema:
Dynamisches Diagramm mit Makro

< Nun hab ich das Problem, dass

Hallo du,

Nun hab ich das Problem, dass du nicht sehr konkret beschreibst, ergo zum Test

Sub tast()
Dim myChart As ChartObject
Dim chdata As Range
Dim colcnt As Long, rowcnt As Long

'Test, da ich nix wissen woher - wohin kopiert
'Set chdata = Range("A1:C14")
'Set chdata = Range("K3:M7")
Set chdata = Range("$B$22:$C$27")

'ChartObject anpassen
For Each myChart In ActiveSheet.ChartObjects  'da nix wissen wer macht was Chart
  myChart.Select
  ActiveChart.SetSourceData Source:=Range(chdata.Address)
Next myChart
'
'Summen der Spalten
For colcnt = 1 To chdata.Columns.Count
  chdata.Columns(colcnt).Cells(chdata.Columns(colcnt).Cells.Count).Offset(1, 0).Value = _
    WorksheetFunction.Sum(Range(chdata.Columns(colcnt).Address))
Next colcnt
'
'Prozente wovon ?
For rowcnt = 1 To chdata.Rows.Count
  chdata.Rows(rowcnt).Cells(chdata.Rows(rowcnt).Cells.Count).Offset(0, 1).Value = _
  "???"
Next rowcnt

chdata.Cells(1).Select

End Sub

 

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
10.04.2014 12:04:00 Simpson93
NotSolved
Blau Dynamisches Diagramm mit Makro
 10.04.2014 20:30:31 gabi
NotSolved
11.04.2014 10:12:26 Gast3165
NotSolved
11.04.2014 10:13:38 Simpson93
NotSolved