Supportnet / Forum / Tabellenkalkulation

Hallo! wie kann ich den ein makro zb alle 40 zeilen widerholen? Der makro macht folgendes: erstellung eines diagrammes von zwei Spalten.

Hallo,

mit einer Schleife.

Do Until ... Loop
Do While ... Loop
For ... Next
For Each

Kommt halt darauf an wie dein Makro aussieht und wie oft/ nach welchen Kriterien das Makro durchlaufen werden soll.

Gruß

JöKe

Hi,

verwende in einer For ... Next Schleife den Befehl Step 40

Bis später,
Karin

wie funktionniert eine For ... next schleife?

ich habe den folgenden quellcode den ich aufgezeichnet habe um ein diagramm zu erstellen:

Sub Macro1()
´
´ Macro1 Macro
´ Macro recorded 27.06.2006 by nyzar.jorio
´

´
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Charts").Range("J9")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Charts!R10C5:R16C7"
ActiveChart.SeriesCollection(1).Values = "=Charts!R10C8:R16C8"
ActiveChart.SeriesCollection(1).Name = "=Charts!R8C3"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts"
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True
ActiveSheet.Shapes("Chart 96").IncrementLeft 252.75
ActiveSheet.Shapes("Chart 96").IncrementTop -207#
ActiveSheet.Shapes("Chart 96").ScaleWidth 1.07, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 96").ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft
With Selection.Border
.Weight = 2
.LineStyle = -1
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = 1
End With
Sheets("Charts").DrawingObjects("Chart 96").RoundedCorners = False
Sheets("Charts").DrawingObjects("Chart 96").Shadow = False
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With
ActiveChart.ChartArea.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.ChartTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.ChartArea.Select
End Sub

Wie soll ich die for next schleife einbauen?

Hi,

ich weiß leider nicht genau, was du alle 40 Zeilen machen möchtest: Ein neues Diagramm erstellen, wobei die Datenquelle sich 40 Zeilen unterhalb der ersten befindet? Oder neue Datenreihen zu einem Diagramm hinzufügen, wobei die Quellen der Datenreihen 40 Zeilen auseinander liegen?

Bis später,
Karin

• SelfCert für Excel-Macro
• Macro-Aufruf
• macro über einen command button
• ich möchte ein Macro unter Excel beenden nud direkt speichern
• Macro zuweisen