Excel macro's

[alpha]

Probeer dit :

Range("a1").Value = CStr(UserForm1.Text_Projectnaam.Value)
Range("a2").Value = Val(UserForm1.Text_Projectnummer.Value)

 

[Jasper]

Super dat werkt!

[alpha]

Gelukkig !

[Jasper]

ik heb deels checkboxen en deels keuzemenu's.

Nou gaan de checkboxen goed als ik daar en vinkje klik dan komt er en een in en cel te staan.

 

nou wil ik in en cel tekst laten komen alleen dan krijg ik de volgende fout:

 

Fout 424 tijdens uitvoering:

 

Object vereist

 

Dit is me code:

 

If Checkbox_Brug.Value = "Brug automatisch" Then
Range("B22") = "Brug automatisch"
End If
If Checkbox_Brug.Value = "Brug handbediend" Then
Range("B22") = " Brug handbediend"
End If

 

[alpha]

In een checkbox kan een vinkje staan of geen vinkje. De waarden die daar bij horen zijn true en false, een checkbox zelf kan geen tekstwaarden zoals "Brug automatisch" of "brug handbediend" bevatten. Maar wel kun je op grond van true of false van de checkbox(en) tekst in bepaalde cellen invullen; dat is ook wat je wil. 

Vergeet ook niet de vermedling WAAR (in welk formulier) de checkbox staat. En 2 if's zijn niet nodig als er maar 2 mogelijkheden zijn.

Als Checkbox_Brug de juiste naam is van de checkbox en de naam van het formulier Userform1 (wijzig zonodig in de naam die jij er aan hebt gegeven), dan zou je voor dat stukje code dit kunnen gebruiken:

If UserForm1.CheckBox_Brug.Value = True Then
Range("B22").value = "Brug automatisch"
Else
Range("B22").value = " Brug handbediend"
End If

 

1 oktober 2016 aangepast door alpha

[Jasper]

Srry ik was denk niet helemaal duidelijk. De checkboxen werken goed

 

Maar het gaat fout bij de pulldownmenu's Hier heb ik meerdere opties waar je uit kunt kiezen en dan klik je en bepaalde aan

 

If Pulldownmenu_Brug.Value = "Brug automatisch" Then
Range("B22") = "Brug automatisch"
End If
If Pulldownmenu_Brug.Value = "Brug handbediend" Then
Range("B22") = " Brug handbediend"
End If

 

Bijvoorbeel Brug handbediend.

 De naam die ik aan het pulldown menu had gegeven was verwarrend sorry Nu gewijzigd naar pulldownmenu_Brug

 

[alpha]

Zoals ik al eerder schreef zijn er geen twee if's nodig als er tussen gegevens moet worden gekozen.

 

Het pulldownmenu pulldownmenu_Brug is dat een combobox in een userform ?

Indien ja, hoe heb je de te kiezen waarden aan de combobox toegevoegd?

 

[Jasper]

Ik heb en keuzelijst gebruikt.  de opties waar je uit kan kiezen heb ik opgeslagen als en lijst met namen.

 

De namen onder elkaar gezet. alle cellen geselecteerd en toen de naam gegeven aan die groep cellen. (gebruikte ik ook zo in excel blad zelf bij en pulldownmenu)

[alpha]

Dat lijkt mij prima.

[Jasper]

Private Sub CommandButton1_Click()


If CheckBox_Basis.Value = True Then
Range("B19") = 1
Else
If CheckBox_Basis.Value = Not True Then
Range("B19") = 0
End If



If Checkbox_Brug.Value = "Brug automatisch" Then
Range("B22") = "Brug automatisch"
Else
If Checkbox_Brug.Value = "Brug handbediend" Then
Range("B22") = "Brug handbediend"
Else
If Checkbox_Brug.Value = "Brug handbediend snelontluchter" Then
Range("B22") = "Brug handbediend snelontluchter"
Else
If Checkbox_Brug.Value = "Geen" Then
Range("B22") = "Geen"
End If


End Sub

Hier krijg ik nu dan de fout Blok IF zonder end If