Hallo zusammen,
Ich habe einen Sheet „Blatt 2“ mit einem Formular im Hintergrund. Mit Hilfe von Textfeldern setze ich Werte aus einem anderen Sheet „Blatt 1“ ein.
Bisher habe diese Prozedur zum Füllen der Textfelder benutzt.
Sheets("Blatt2").Select
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = “Text”
Jedoch ist es nachteilig, wenn ich immer wieder auf das Blatt 2 selectieren muss, um die Textfelder zu selectieren und mit Daten aus einem anderen Sheet „Blatt 1“ zu füllen.
Wenn man dies zum Beispiel mit mehreren Datensätzen aus Blatt 1 durchführt, flackert das Display zwischen Blatt1 und Blatt2 hin und her, da es immer selectiert wird.
Deshalb habe ich diese Prozedur verwendet, um ohne auf das Blatt2 zu selectieren die Text Box 1 anzusprechen und nicht vom Sheet Blatt 1 zu wechseln.
Sheets("Blatt2").Shapes("Text Box 1").Select
Selection.Characters.Text = "Text”
Leider fügt er aber mit der zweiten Anweisung Selection.Characters.Text nicht den String ein, obwohl er mit der ersten Anweisung die richtige Textbox1 anspricht.
Was mache ich falsch?
MaxPayne