Suche nach einer Verbesserungmöglichkeit
01.09.2004 09:06:06
Ryu_hoshi
So siht das ganze aus:
Sub Analyse_letzter_Monat()
.
.
.
Worksheets.Add After:=Worksheets(Worksheets.Count)
Set wks = ThisWorkbook.ActiveSheet
wks.Name = "Analyse des letzten Monats"
Set wksL = ThisWorkbook.Worksheets("excel")
xLastRow = wksL.UsedRange.SpecialCells(xlCellTypeLastCell).Row
wks.Cells(1, 8).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
With Selection.Font
.Name = "Tahoma"
.Size = 16
End With
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
ActiveCell.FormulaR1C1 = "Analyse für vergangenen Monat"
.
.
.
'und jetzt die Diagramme
Module3.Macro1
Module3.Macro2
Module3.Macro3
Module3.Macro4
Module3.Macro5
Beispiel eines Diagrmms:
Charts.Add
ActiveChart.ChartType = xlCylinderColClustered
ActiveChart.SetSourceData Source:=Sheets("Analyse des letzten Monats").Range( _
"A50:G50,A52:G52"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"Analyse des letzten Monats"
.
.
.
Was würdet ihr da machen?
Gruss
Ryu_Hoshi