Geänderter Dateiname in Makro übernehmen
04.11.2003 10:52:39
Frank
ActiveWindow.Visible = False
Windows("Individualauswertung_0310.xls").Activate
Range("H28").Select
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Handelsbuch 2").Range( _
"C7:E7,C8:E30"), PlotBy:=xlColumns
Range("A8:E8").Select
Das Makro ist im Code eines Steuerelemets in der Datei "Individualauswertung_0310" abgelegt. Nun wurde die Datei in "Individualauswertung_0311" umbenannt.
Wie kann in Zeile 2 eine automatische anpassung erfolgen?
Danke für die Anwort im voraus!!!