Microsoft Excel

Herbers Excel/VBA-Archiv

Combobox Selbststudium | Herbers Excel-Forum


Betrifft: Combobox Selbststudium von: Franz D.
Geschrieben am: 27.12.2009 19:15:21

Halli, Hallo,
Habe mit dem Recorder dies
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=298.5, Top:=14.25, Width:=61.5, Height:= _
9.75).Select
generiert.
Wie kann man aber exact eine bestimmte Zelle wie d7 füllen ohne das sie sich "verzieht"?
Wenn es nicht geht muss ich anders handeln.
Grüße
Franz D.

  

Betrifft: AW: Combobox Selbststudium von: ransi
Geschrieben am: 27.12.2009 19:58:23

HAllo Franz

Versuchs mal so:

Option Explicit


Public Sub test()
Dim objOle As OLEObject
Set objOle = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
    DisplayAsIcon:=False)
With objOle
    .Name = "Meine_Neue_Box"
    .Top = Range("A1").Top
    .Left = Range("A1").Left
    .Height = Range("A1").Height
    .Width = Range("A1").Width
End With
End Sub


ransi


  

Betrifft: AW: Combobox Selbststudium von: Matthias L
Geschrieben am: 27.12.2009 20:04:36

Hallo

Option Explicit
Sub FranzD()
Dim Rng As Object
Set Rng = Range("D7")
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=Rng.Left, Top:=Rng.Top, Width:=Rng.Width,  _
Height:=Rng.Height).Select
Application.SendKeys "{ESC}"
End Sub
Das geht aber auch ohne Select !

Gruß Matthias


  

Betrifft: AW: Combobox Selbststudium von: Franz D.
Geschrieben am: 28.12.2009 11:53:17

Danke schön an Ransi und Matthias,
ich werde mich jetzt da "durchboxen".
Tschüss
Franz D.


Beiträge aus den Excel-Beispielen zum Thema "Combobox Selbststudium"