Hallo, ich habe folgendes Problem:
Über VBA habe ich eine neue Excel-Datei mittels Workbooks.Add erstellt.
Über
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=2.25, Top:=12, Width:=66.75, Height:= _ 39.75)
habe ich eine Listbox in das neue Dokument eingefügt und mittels
Public oo As OLEObject Sub noname() Set oo = Sheets(1).OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, DisplayAsIcon:=False, Left:=1.25, Top:=12.75, Width:=65, Height:= _ 55) With oo.Object .Clear .AddItem ("€") .AddItem ("T€") .AddItem ("M€") End With End Sub
befüllt. Wie kann ich auf ein Anklicken dieser neu erstellten Listbox reagieren in der Art:
Public Sub ListBox1_Click() If ListBox1.Value = "T€" Then Cells(2,3).Value=Cells(2,3).Value/1000 End If End Sub?
Vielen Dank |