• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel show userform gebaseerd op ComboBox selectie

Status
Niet open voor verdere reacties.
T

TJ86

Gebruiker
Lid geworden
28 sep 2014
Berichten
127
Goedemiddag,

ik heb een ComboBox met een 3-tal optiies t.w.:
- 4Weken
- Maand
- Anders...

Indien de optie "Anders..." wordt geselecteerd dient een Userform te openen. Indien een van beide andere opties wordt geselecteerd hoeft er verder niets te gebeuren.

Volgende code werkt prima met het openen van het userform ik krijg alleen een foutmelding als ik een van beide andere opties aanklik...

Code: 
Private Sub ComboBox7_Change()

Sheets("Klantgegevens").Range("AA46").Value = ComboBox7.Value

  Dim strUserformName
    Select Case Me.ComboBox7.Value
        Case "Anders…"
            strUserformName = "q_4weken_naam"
    End Select
 
 VBA.UserForms.Add(strUserformName).Show
 
End Sub

Iemand enig idee ??

Thx!

TJ
 
Je zou inplaats van Select Case de Functie If kunnen gebruiken.
In je code staat niet wat je met de andere opties wil doen.
 
Hoe moet ik dit met IF gebruiken dan?

Indien optie MAAND of optie 4WEKEN wordt geselecteerd hoeft er verder niets te gebeuren.
 
Je kunt ok de Select Case uit breiden.

Of
Code: 
If ....
    Wat de bedoeling is
Else
    Exit sub
End if
 
Laatst bewerkt:
Dei Select Case heb je inderdaad niet nodig als je maar 1 vergelijking doet. Wat ExcelAmateur bedoelt is dit:
Code: 
Private Sub ComboBox7_Change()
    Sheets("Klantgegevens").Range("AA46").Value = ComboBox7.Value
    If Me.ComboBox7.Value = "Anders…" Then
        VBA.UserForms.Add("q_4weken_naam").Show
    End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan