Guten Morgen zusammen
Um unnötiges aus der Makroaufzeichnung zu entfernen möchte ich Select und Selection entfernen. Nur läuft dann das Makro nicht mehr.
Weiss jemand wie das geht?
'Bestehenden Druckbutton umschreiben:
ActiveSheet.Shapes("Button 96").Select
Selection.ShapeRange.IncrementLeft 48.75
Selection.Characters.Text = "Rechnung drucken"
'Neuen Button "Archivieren anlegen"
ActiveSheet.Buttons.Add(56.25, 5.25, 123, 16.5).Select
Selection.ShapeRange.ScaleWidth 1.02, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.07, msoFalse, msoScaleFromBottomRight
Selection.Characters.Text = "Rechnung archivieren"
With Selection.Characters(Start:=1, Length:=20).Font
.Name = "MS Sans Serif"
.FontStyle = "Fett"
.Size = 8.5
Selection.OnAction = "'Material.xls'!Offerte_ausbuchen_neu"
End With