Hallo zusammen, hätte bitte nochmals eure Hilfe nötig.
Neue Anweisung ohne Select
With ActiveSheet.Shapes("AutoShape 1024")
.Fill.ForeColor.SchemeColor = 49
.Fill.Transparency = 0#
.Fill.OneColorGradient msoGradientMixed, msoIntegerMixed, 0.23
.Fill.ForeColor.fontColor = 56
End With
-------------------------------------------------------------------------------------------------------
Alte Anweisung mit Select
ActiveSheet.Shapes("AutoShape 1024").Activate
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 49
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.OneColorGradient msoGradientMixed, msoIntegerMixed, _
0.23
Selection.Font.ColorIndex = 56
Ich möchte die alte Anweisung insgesamt umstellen so wie oben, ohne Select.
Allerdings funktioniert die obere nur bis Font Color.
In der alleinstehenden Reihe in der die FontColor
definiert werden soll kommt ständig der Debugger.( im Makro steht die Reihe nicht alleine, nur hier damit man sieht welche gemeint ist)
Bitte, wie müsste man den hier die Anweisung richtig schreiben.
Darunter seht ihr das alte Beispiel das mit select zwar funktioniert, sobald man aber die Arbeitsmappe freigibt für mehrere User ,und schütz, dann funkt select nicht mehr.
Also muss ich scheinbar alles mit select anders schreiben.
Könnt ihr mit bei der richtigen Anweisung helfen ( oben ), also ohne select
Besten Dank für eure tolle Hilfe, Gruß udo