Comboboks problem
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=66
Udskrevet den: 21.Nov.2024 kl. 17:03
Emne: Comboboks problem
Besked fra: Lonny
Emne: Comboboks problem
Posteringsdato: 24.Aug.2010 kl. 18:34
|
hej
Jeg skal via auto_open af et excel-ark lave en comboboks med indhold på et ark (pt. arket "Forside") som jeg efterfølgende skal referere til
Jeg har følgende kode
Worksheets("Forside").OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=70#, Top:=60#, Width:=130, Height:=20).Select With Selection .Name = "liste" End With som funker fint - jeg får en comboboks med navn men uden indhold
Jeg har også følgende kode
With Worksheets("Forside").OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=70#, Top:=60#, Width:=130, Height:=20) With .Object .AddItem "Telefonliste" .AddItem "Mailliste" .AddItem "Fødselsdagsliste" End With End With som også funker fint - jeg får en comboboks med indhold men uden navn som jeg efterfølgende kan refere til
Nu til problemet - jeg skal have en kombination af de to sæt af koder - dvs oprettet comboboks med indhold og samtidigt skal denne comboboks være navngivet, så jeg efterfølgende kan refere til denne
Måske er jeg dum og løsningen er simpel, men pt er jeg kørt fast - så enhver form for hjælp påskønnes
På forhånd tak for hjælp fra Lonny
 |
Svar:
Besked fra: Allan
Posteringsdato: 24.Aug.2010 kl. 21:03
|
Hej Lonny,
Dumme spørgsmål findes ikke, specielt ikke i noget så indviklet som programmering af Forms
Du kan tilføje denne stump i slutningen af din kode:
ActiveSheet.Shapes("ComboBox1").Name = "Liste"
Så skulle den være i vinkel
//Allan
|
Besked fra: Lonny
Posteringsdato: 25.Aug.2010 kl. 17:53
|
hej Allan
Jeg har tilføjet din kode efter mit andet eksempel - det med additem - men det funker bare ikke
Vh Lonny
|
Besked fra: Lonny
Posteringsdato: 25.Aug.2010 kl. 17:57
|
hej Allan
undskyld min besked for lidt siden
Nu funker det - ved ikke lige hvorfor det ikke funkede før
Tusind tak for hjælpen.
VH Lonny
|