AW: Diagram Gestapelt
09.02.2006 13:44:23
Rohr
genial danke,
Noch eine Frage, wenn ich den Wert nicht haben will und nur das Projekt z.b.nur"a" und nicht "6 a"
Wenn ich ShowValue auf False setze; wird nichts mehr reingeschrieben.. hmm muss man in diesem Fall eine andere Methode anwenden ?
hab auch noch gepröbelt und bin eben angestossen konnte zwar beschriften habe aber mit den rows & cells probleme gekriegt so dass die exakten Werte reingeschrieben wurden.
habe mit dem gearbeitet, wobei die colum variabel war aber die row habe ich nicht hingekriegt
Sub Beschriftung()
' Beschriftung Macro
' Macro recorded 09.02.2006 by CHANROH
'hier wird aus D1 die variable max abgefragt, zur steuerung des Durchlaufs der Schleife JAN bis DEZ
Max = Sheets("Werte").Range("D1").Value
For i = 1 To 1
' hier beginnt die Schleife
For n = 1 To Max
'auswahl für das Kriterium zur Steuerung der Farbe der Balken aus Spalte E und der Laufvariablen
wahl1 = "=Werte!R3C" & n + 2
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(i).Points(n).ApplyDataLabels AutoText:=True, _
LegendKey:=False, ShowSeriesName:=True, ShowCategoryName:=False, _
ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(i).Points(n).DataLabel.Select
Selection.Text = wahl1
'Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 7
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveWindow.Visible = False
Windows("Test auslastung 1.xls").Activate
Range("C33").Select
Next n
Next i
' hier endet die Schleife
End Sub
danke für die Hilfe
Gruss
AR