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)
Danke, Hans.
Anzeige