Objekte erst am Ende des Makros
Hans
Ich will eine Textbox mit Auswahl verschiedener Suchkriterien aus meiner Access-Bibliothek _
erstellen. Das gelingt zunächst auch sehr gut und das Ergebnis ist durchaus in Ordnung. In _
Kurzfassung der entsprechende Code (mit den ersten beiden der 10 OptionButtons):
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 340, 135, _
350, 200).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "" + Chr(13) + "Bitte _
Suchbegriff auswählen!"
ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=370, Top:=175, Width:=50, Height:= _
38).Select
ActiveSheet.Shapes.Range(Array("Suchtextfeld")).Select
ActiveSheet.OLEObjects("OptionButton1").Object.Caption = "Autor"
ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=430, Top:=175, Width:=75, Height:= _
38.25).Select
ActiveSheet.Shapes.Range(Array("Suchtextfeld")).Select
ActiveSheet.OLEObjects("OptionButton2").Object.Caption = "Übersetzer"
ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=510, Top:=175, Width:=80, Height:= _
38.25).Select
ActiveSheet.Shapes.Range(Array("Suchtextfeld")).Select
ActiveSheet.OLEObjects("CommandButton1").Object.Caption = "Ausgewählt"
Sheets("Abfrage").Select
Abfragetext = "Bitte Suchbegriff eingeben!"
Abfragetitel = "Suchen"
Abfrageergebnis = InputBox(Abfragetext, Abfragetitel)
Leider wird der Code nicht in dieser Reihenfolge abgearbeitet, sondern im obigen Beispiel umgekehrt, das heißt, die Input-Box vorher und das Textfeld mit der Auswahl nachher. Der Grund ist der, daß die Textboxen mit den Buttons erst nach Beendigung des Makros, d.h. mit oder vor oder nach End Sub auf dem Bildschirm erscheinen. Damit kann ich natürlich nichts anfangen, denn ich brauche die Auswahl vorher. Wie kann ich erreichen, daß die Auswahltextbox dann kommt, wenn sie im Code auftaucht?Danke, Hans.