Hallo ich habe noch eine weitere Frage. Ich habe ein Excelsheet mit Knöpfen. Auf KNopfdruck werden verschiedene Analysen gestartet. Die Analysen sind vom Aufbau fast gleich es gibt nur ein paar Unterschiede. Der Name jedes Excelsheets der zur jeder Analyse erstellt wird ist anders. DIe Überschrift des Excelsheets ist anders und Zum Schluss der Analyse werden aus einem anderen Modul noch 4 Diagramme erzeugt, diese sind bei allen Analysen gleich bis auf die Quellenangabe wo sie erzeugt werden sollen. DIe Quelle bezieht sich jedesmal auf den Namen des neuerstellten Excelsheets. Ich wusste mir bisher nicht naders zu helfen als für jede Analyse den Quelltext der Analyse zu kopieren und dort den Namen zu ändern. Für die Diagramme hatte dementsprechen dasselbe gemacht, aber dadurch wird mein Macro riesengross und wie ich denke auch ziemlich langsam. Weiss einer da eine bessere Lösung?
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