VBA: shapes("Text Box 11") ohne select ?
14.12.2005 07:43:15
Klaus
ich versuche gerade, das letzte Select aus meinem Code zu entfernen.
Dies:
With Sheets("Auswertung")
[...]
.Shapes("Text Box 11").Select
Selection.Characters.Text = Range("d5")
[...]
End With
funktioniert, gefällt mir aber nicht. Andererseits bringt
Sheets("Auswertung").Shapes("Text Box 11").Characters.Text = Range("d5")
nur einen Laufzeitfehler hervor ..
Kann jemand helfen?
Dank und Gruß,
Klaus M.vdT.