Print side | Luk vindue

Returneret værdi virker ikke

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=4766
Udskrevet den: 01.Maj.2024 kl. 03:41


Emne: Returneret værdi virker ikke
Besked fra: Jais
Emne: Returneret værdi virker ikke
Posteringsdato: 08.Aug.2022 kl. 20:49
Jeg har et ark med to Combobokse, men boks 2 skal kun være synlig når værdi: "1" vælges fra boks 1 og returneres til A1. Dette virker imidlertid ikke hvis værdien "1" kommer fra boksen, men fungerer fint hvis jeg taster "1" ind i A1, så forsvinder boks 2.
Min kode findes i koden på boks 2.
Er der nogen der kan hjælpe med dette, så vil jeg blive rigtig glad. https://forum.excel-regneark.dk/uploads/1866/Test_skjul_comboboks.xlsm - uploads/1866/Test_skjul_comboboks.xlsm


Svar:
Besked fra: Jais
Posteringsdato: 09.Aug.2022 kl. 06:38
Her er filen. Der gik lidt kludder i Upload

uploads/1866/Test_skjul_comboboks.xlsm" rel="nofollow - uploads/1866/Test_skjul_comboboks.xlsm

Besked fra: Jens S
Posteringsdato: 16.Sep.2022 kl. 21:54
Hvis du bruger denne makro, som skal linkes til ComboBox1, skulle det virke:

Sub Combo()
If Cells(1, 1) <> 1 Then
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Visible = True
Else
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Visible = False
End If
End Sub


Print side | Luk vindue