Ändra värde i Combobox

[cowi]

Hej

 

 

Jag har lyckats få till en combobox i ett arbetsark.

 

Till den är kopplat en tabell.

 

Beroende på vad som står i den länkade cellen körs sedan ett makro när comboboxen ändras.

 

Makrona visar/döljer kolumner.

 

När filen öppnas körs det makro som visar alla kolumner (kan också köras med comboboxen)

 

Nu till problemet, när filen öppnas vill jag att värdet i comboboxen skall ändras till ”Visa alla kolumner” så det inte står kvar på det värde visades sist.

 

Går det att få till det på något sätt med Vba?

 

 

cowi

 

 

[Monshi]

Om den är länkad till en cell, skriv...mmh - formulär combobox eller ActiveX combobox?

 

Oavsett - om den är länkad till en cell, skriv värdet dit.

Eller om en ActiveX combobox är det enkelt att ge den ett värde via VBA.

Me.ComboBox1.ListIndex = 1

exempelvis. Eller = -1 om du vill rensa den.

Om formulärkontroll blir det lite längre kod

Me.Shapes("listruta 2").OLEFormat.Object.ListIndex = 0

för att rensa den.

Fast enklare kanske att skriva till den länkade cellen....

 

Och ja, du vill göra detta när boken startar?

Då lägger du koden i

Private Sub Workbook_Open()

End Sub

och ser till att byta Me-referensen ovan till en korrekt bladreferens.

 

 

Duger detta?

[cowi]

Tack så mycekt för svaret det funkade perfekt.

Kontrollen var en activeX combobox.

cowi