Hallo Leute,
habe ein Diagramm, welches ist mittels Makro skalliere. Leider ist da, bedingt durch die unterschiedlichen Monatslängen, immer ein anderes Datum beschriftet. Es soll aber immer der Erste des Monats bei den Achsen beschriftet werden.
Mit folgendem Makro skalliere ich das Diagramm:
diff = DateDiff("m", Start, Ende)
With .Axes(xlCategory)
.MinimumScale = CLng(Start) 'Start ist Date
.MaximumScale = CLng(Ende) ' Ende ist Date
.MinorUnitIsAuto = True
.MajorUnit = CLng(Ende) - CLng(Start)) / diff
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
Bin für jede Hilfe dankbar.
Danke
Fredi