Text in Autoform ändern

12/08/2008 - 09:40 von Manuela | Report spam
Hallo,

ich habe in einer Exceltabelle mehrere Autoformen mit Text. Der
"Suchen"-Befehl findet aber diese Textinhalte nicht, und auch Ersetzen klappt
demnach nicht. Gibt es eine Möglichkeit wie es doch funktioniert oder muss
ich jede Form einzeln àndern?

(Excel 2003, SP2 & Windows XP)

mfG Manuela
 

Lesen sie die antworten

#1 Wolfgang Kutsche
12/08/2008 - 10:40 | Warnen spam
Hallo Manuela,

hier ein Makro zur Lösung Deines Problems:

Sub ObjektTextÄndern()
' Ändert den Text jedes Zeichenobjektes
' des aktiven Tabellenblattes
' von'abc' nach 'xyz' bzw. umgekehrt
Dim shbild As Shape
Dim geàndert As Boolean
For Each shbild In ActiveSheet.Shapes
ActiveSheet.Shapes(shbild.Name).Select
geàndert = False
If Selection.Characters.Text = "abc" Then
Selection.Characters.Text = "xyz"
geàndert = True
End If
If Selection.Characters.Text = "xyz" And geàndert = False Then
Selection.Characters.Text = "abc"
End If
Next
End Sub

Die Texte sind Deinen Gegebenheiten (Texte aus Zellen ?) noch anzupassen.
Gruß Wolfgang
WinXP Home SP2, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de


"Manuela" wrote:

Hallo,

ich habe in einer Exceltabelle mehrere Autoformen mit Text. Der
"Suchen"-Befehl findet aber diese Textinhalte nicht, und auch Ersetzen klappt
demnach nicht. Gibt es eine Möglichkeit wie es doch funktioniert oder muss
ich jede Form einzeln àndern?

(Excel 2003, SP2 & Windows XP)

mfG Manuela

Ähnliche fragen