Thema Datum  Von Nutzer Rating
Antwort
24.08.2016 21:07:54 Ingainkognito
NotSolved
27.08.2016 11:37:37 Gast34525
NotSolved
Rot Schleife Diagramm erstellen
27.08.2016 13:31:40 Gast58923
NotSolved

Ansicht des Beitrags:
Von:
Gast58923		 Datum:
27.08.2016 13:31:40		 Views:
631		 Rating:
     
Antwort:
  Ja
Thema:
Schleife Diagramm erstellen

Hallo,

mit kleinen Korrekturen (header?) sollte dieser Code die gesamte Datenarbeit (Vorbereitung für die Chart) erledigen, unabhängig, wie viele Zeilen es gibt.

Voraussetzung: die Spalte 20 ist frei.

 

Sub Test()
Dim ar As Range
ls = 20 'freie Spalte
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lr
    If i Mod 24 = 0 Then Cells(i, 20) = "x"
Next i
For Each ar In Columns(20).SpecialCells(2).Areas
    Debug.Print ar.Address
    Rows(ar.Row + 1).EntireRow.Insert
Next ar
R2:
For Each ar In Columns("I").SpecialCells(2, 1).Areas
    ar.Offset(0, 4) = WorksheetFunction.Average(ar)
    ar.Offset(0, 5).FormulaR1C1 = "=RC[-5] / rC[-1]"
    ar.Offset(0, 6) = WorksheetFunction.StDev_S(ar)
    Range(Split(ar.Offset(1, 6).Address, ":")(1)).FormulaR1C1 = WorksheetFunction.StDev_S(ar)
    Range(Split(ar.Offset(1, 7).Address, ":")(1)).FormulaR1C1 = "=RC[-1]/R[-1]C[-3]"
Next ar
End Sub

mfg

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
24.08.2016 21:07:54 Ingainkognito
NotSolved
27.08.2016 11:37:37 Gast34525
NotSolved
Rot Schleife Diagramm erstellen
27.08.2016 13:31:40 Gast58923
NotSolved