ich habe folgendes Problem.
Über die Suche habe ich schon einige Dinge gefunden, mein Problem ist nur, dass ich nicht das passende finde.
Ich führe folgendes Makro aus.
Sub Makro5()
Diagrammname = InputBox("Bitte Name eingeben")
ActiveSheet.ListObjects("Tabelle24510").Range.AutoFilter Field:=2, Criteria1:=Diagrammname
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkersStacked
ActiveChart.SetSourceData Source:=Range(Cells(1, 1), Cells(Cells(65536, 4).End(xlUp).Row, 4) _
)
End Sub
Dieses erstellte Diagramm würde ich jetzt gerne drucken, wenn ich es mit dem Makrorecorder aufnehme zum drucken kommt folgendes raus.
Sub Makro8()
ActiveSheet.ChartObjects("Diagramm 22").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Das Problem ist jetzt, ich erstelle jedes mal ein neues Diagramm und kann mit dem Makro immer nur Diagramm 22 ansteuern, weil ich nicht rausfinde wie ich mit VBA den Diagrammnamen ändern kann.Gibt es dafür irgendeinen Befehl den ich oben in das Makro mit einbauen kann?
Ich suche jetzt bestimmt schon 3 Stunden und probiere hin und her. Komme einfach nicht weiter.
LG
Ben