Thema Datum  Von Nutzer Rating
Antwort
28.08.2020 13:35:28 Daniel
NotSolved
28.08.2020 14:58:24 Gast89512
NotSolved
06.09.2020 12:57:09 Gast56067
NotSolved
06.09.2020 16:31:12 Mase
NotSolved
07.09.2020 16:12:49 Gast92741
NotSolved
07.09.2020 16:41:00 Gast20199
*****
Solved
07.09.2020 17:07:23 Gast20199
NotSolved
08.09.2020 09:21:55 Gast87354
NotSolved
Rot Makro zum Einfügen von mehreren Datenreihen
08.09.2020 14:25:50 Gast20199
**
NotSolved
08.09.2020 14:30:02 Gast20199
NotSolved
08.09.2020 16:53:34 Daniel
NotSolved
07.09.2020 21:02:38 Mase
NotSolved
07.09.2020 22:06:24 Mase
NotSolved
07.09.2020 22:07:15 Mase
NotSolved
08.09.2020 09:37:36 Gast77355
NotSolved

Ansicht des Beitrags:
Von:
Gast20199
Datum:
08.09.2020 14:25:50
Views:
724
Rating: Antwort:
  Ja
Thema:
Makro zum Einfügen von mehreren Datenreihen

Du willst doch nicht die "harten" Werte reinschreiben sondern als Formelausdruck nutzen. Schau bei dir mal unter Daten bearbeiten ins Diagramm. Da stehen bei dir überall keine Bereichsangaben, nur Werte. Ändert sich was an den Werten im Blatt, wird bei dir derzeit das Diagramm nicht aktualisiert, weil es von der Änderung nichts mitbekommt.

Option Explicit
  
Sub Einbetten()
    
  Dim rng As Excel.Range
  Dim i As Long
  Dim startingRow As Long
  Dim endingRow As Long
  startingRow = 46
  endingRow = 116
  
  'Bereich referenzieren:
  Set rng = Worksheets("Ebene 1 Teil 1").Range("C59:J59")
'  'das ginge auch - ist nur unüblich:
'  Set rng = Range("'Ebene 1 Teil 1'!C59:JQ59")
  
  For i = startingRow To endingRow Step 1
    
    With ActiveChart.SeriesCollection.NewSeries
      .Name = "=" & rng.Offset(0, -1).Cells(1).Address(External:=True)
      .Values = "=" & rng.Address(External:=True)
    End With
    
    'Bereich eine Zeile tiefer rücken
    Set rng = rng.Offset(1)
    
  Next i
  
End Sub

 

Grüße


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
28.08.2020 13:35:28 Daniel
NotSolved
28.08.2020 14:58:24 Gast89512
NotSolved
06.09.2020 12:57:09 Gast56067
NotSolved
06.09.2020 16:31:12 Mase
NotSolved
07.09.2020 16:12:49 Gast92741
NotSolved
07.09.2020 16:41:00 Gast20199
*****
Solved
07.09.2020 17:07:23 Gast20199
NotSolved
08.09.2020 09:21:55 Gast87354
NotSolved
Rot Makro zum Einfügen von mehreren Datenreihen
08.09.2020 14:25:50 Gast20199
**
NotSolved
08.09.2020 14:30:02 Gast20199
NotSolved
08.09.2020 16:53:34 Daniel
NotSolved
07.09.2020 21:02:38 Mase
NotSolved
07.09.2020 22:06:24 Mase
NotSolved
07.09.2020 22:07:15 Mase
NotSolved
08.09.2020 09:37:36 Gast77355
NotSolved