Code ohne Select
08.06.2020 12:10:31
Charly
Ich wuerde gern den folgenden Code ohne Select und Activate schreiben.
Bekomme es aber leider nicht hin.
Sub Makro1()
Tab2.ChartObjects("Dia1").Activate
With ActiveChart
.ChartArea.Select
.Axes(xlCategory).Select
.Axes(xlCategory).TickLabelSpacing = Range("F16").Value
End With
End Sub
Vielen Dank vorabGruss Charly