kann mir jemand helfen:
Ich möchte in folgendem Makro den Zahlenwert [ActiveChart.SeriesCollection(18).Select hier die 18]
durch eine Variable ersetzen und diese dann als Schleife von 1 bis 20 durchlaufen lassen, um nicht jedesmal per Hand den Wert ersetzten zu müssen:
-----------------------------
Sub Makro2()
' Makro2 Makro
' Makro am 19.05.2006 von Paul-Vincent Gromer aufgezeichnet
ActiveChart.SeriesCollection(18).Select
ActiveChart.SeriesCollection(18).ApplyDataLabels AutoText:=True, LegendKey _
:=False, ShowSeriesName:=True, ShowCategoryName:=False, ShowValue:=False _
, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(18).DataLabels.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 53
.Background = xlTransparent
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionCenter
.Orientation = xlHorizontal
End With
End Sub
Vielen Dank!
PV Gromer