Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Daten erfassen für Charts


Betrifft: Daten erfassen für Charts von: Alfred
Geschrieben am: 28.03.2018 16:26:40

Hallo zusammen, ich lese meine Daten aus...

https://www.herber.de/bbs/user/120740.jpg

und visualisiere sie mit folgendem Makro


Sub Makro1()
  
  Application.ScreenUpdating = False
  
    Sheets(Sheets.Count).Select
  
    'Deklaration
    Dim ar As Range
  
      jZeile = 3
      iZeile = ActiveSheet.UsedRange.Rows.Count
                                                                        
      For Each ar In Range("E:F").SpecialCells(2).Areas                 'ar ist ein Range
      
        With ActiveSheet.Shapes.AddChart.Chart
          .ChartType = xlXYScatterSmooth
          .SetSourceData Source:=ar
          With .Parent
                .Top = ar.Cells(1).Top
                .Left = ar.Cells(1).Offset(0, 6).Left
                .Height = ar.Height
                .Width = Range("K1:O1").Width
            End With
        End With
          
      Next ar
      
  Application.ScreenUpdating = True
  
  MsgBox ("Ihre Daten wurden visualisiert.")
  
  End Sub

Beim ersten Durchlauf werden die Daten leider nicht erfasst wie gewünscht
Das Resultat sieht wie folgt aus:

https://www.herber.de/bbs/user/120741.jpg

Wenn ich alle Spalten, in der Charts sind, lösche und das Makro erneut laufen lasse, dann funktioniert es, so wie gewünscht:

https://www.herber.de/bbs/user/120742.jpg

Mittlerweile sehe ich den Wald vor lauter Bäumen nicht mehr. Und da es ja beim zweiten Anlauf funktioniert, habe ich absolut keine Ahnung, was falsch sein könnte.

Hat jemand eine Ahnung?

  

Betrifft: Weshalb ein neuer Thread? von: Beverly
Geschrieben am: 28.03.2018 18:00:20

Ausgang: https://www.herber.de/forum/archiv/1616to1620/t1616986.htm#1616986


GrußformelBeverly's Excel - Inn


Beiträge aus dem Excel-Forum zum Thema "Daten erfassen für Charts"