Thema Datum  Von Nutzer Rating
Antwort
06.12.2018 14:34:26 Annika
NotSolved
06.12.2018 15:37:28 ugor
NotSolved
06.12.2018 15:50:44 Gast96025
NotSolved
06.12.2018 16:06:49 ugor
NotSolved
06.12.2018 16:26:35 Annika
NotSolved
06.12.2018 16:56:10 ugor
NotSolved
07.12.2018 09:03:16 Annika
NotSolved
Blau VBA-Makro Diagramm Skalierung
 07.12.2018 09:06:33 Gast27850
NotSolved
07.12.2018 13:54:19 ugor
NotSolved

Ansicht des Beitrags:
Von:
Gast27850		 Datum:
07.12.2018 09:06:33		 Views:
535		 Rating:
     
Antwort:
  Ja
Thema:
VBA-Makro Diagramm Skalierung		 
Dim sWs As String
Dim wZeile As Long
 
For i = 1 To ActiveSheet.ChartObjects.Count Step 3
    sWs = Format((i - 1) \ 3 + 1, "00") 'Tabellenblatt
    'wZeile = i Mod 3 + 3                'Zeile in Spalte W
     

   With ActiveSheet.ChartObjects(i).Chart.Axes(xlValue)
      .MaximumScale = Worksheets(sWs).Range("I5")
      .MinimumScale = 0
      .MinorUnitIsAuto = True
      .MajorUnitIsAuto = True
      .Crosses = xlAutomatic
      .ReversePlotOrder = False
      .DisplayUnit = xlNone
   End With

   With ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory)
      .MaximumScale = Worksheets(sWs).Range("C10")
      .MinimumScale = Worksheets(sWs).Range("C9")
      .MinorUnitIsAuto = True
      .MajorUnitIsAuto = True
      .Crosses = xlAutomatic
      .ReversePlotOrder = False
      .DisplayUnit = xlNone
   End With
     
Next
End Sub

Ich habe es jetzt so versucht, jedoch bekomme ich da in der Zeile: .MaximumScale = Worksheets(sWs).Range("I5") Laufzeitfehler 9

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
06.12.2018 14:34:26 Annika
NotSolved
06.12.2018 15:37:28 ugor
NotSolved
06.12.2018 15:50:44 Gast96025
NotSolved
06.12.2018 16:06:49 ugor
NotSolved
06.12.2018 16:26:35 Annika
NotSolved
06.12.2018 16:56:10 ugor
NotSolved
07.12.2018 09:03:16 Annika
NotSolved
Blau VBA-Makro Diagramm Skalierung
 07.12.2018 09:06:33 Gast27850
NotSolved
07.12.2018 13:54:19 ugor
NotSolved