Forums Neueste Beiträge
 

Von Excel 2003 nach 2007

18/11/2007 - 13:44 von puck | Report spam
Hi!

Bisher vergeblich versuche ich, ein unter 2003 laufendes Blatt in 2007 zu
laufen zu bekommen.
Ein Makro, das Texte in Buttons austauschen soll, versagt bei dem
folgenden Code:

Sheets("Kopie").Select
ActiveSheet.Shapes("Button 324").Select
Selection.Characters.Text = "BEFORE TRANSFERING as dealer version:" &
Chr(10) & "1. For changing language and currency," & Chr(10) & " click the
relevant button and" & Chr(10) & "2. than click THIS button." & Chr(10) & "3.
THE RESULT is the individual dealer version." & Chr(10) & "Please ONLY save as
such and transfer!"

(Für mich) gleicher Code wie

ActiveSheet.Shapes("Button 39").Select
Selection.Characters.Text = "Prepare for saving"

làuft ohne Probleme.

Vielleicht weiss jemand die Auflösung meines Ràtsels?

MfG
GvB
 

Lesen sie die antworten

#1 Claus Busch
18/11/2007 - 13:58 | Warnen spam
Hallo Gebhard,

Am Sun, 18 Nov 2007 13:44:00 GMT+1 schrieb Gebhard von Busse:

Bisher vergeblich versuche ich, ein unter 2003 laufendes Blatt in 2007 zu
laufen zu bekommen.
Ein Makro, das Texte in Buttons austauschen soll, versagt bei dem
folgenden Code:

Sheets("Kopie").Select
ActiveSheet.Shapes("Button 324").Select
Selection.Characters.Text = "BEFORE TRANSFERING as dealer version:" &
Chr(10) & "1. For changing language and currency," & Chr(10) & " click the
relevant button and" & Chr(10) & "2. than click THIS button." & Chr(10) & "3.
THE RESULT is the individual dealer version." & Chr(10) & "Please ONLY save as
such and transfer!"

(Für mich) gleicher Code wie

ActiveSheet.Shapes("Button 39").Select
Selection.Characters.Text = "Prepare for saving"



du kannst nur etwas auf einem aktiven Blatt selektieren. Du müsstest also
schreiben:
Sheets("Kopie").Activate
Dann sollte es funktionieren.


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen