möchte mit Makro in einen Textblock, in dem schon etwas steht noch was dazuschreiben, ohne dass dies darin gelöscht wird- gelingt nicht, immer alles weg, beim Aufzeichnen entstand das:
ActiveSheet.Shapes("Text Box 4").Select
Selection.Characters.Text =
"blablabla (ist der neue Text)"
With Selection.Characters(Start:=1, Length:=9)Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = x1UnderlineStyleNone
.ColourIndex = x1Automatic
End With