de Caption veranderen met regel in VBA

[markwat]

Beste

De CheckBox staat in eren UserForm en zijn er vele.
Graag wil ik dat wanneer ik in de cel de naam veranderd, dat dan ook de Caption in de CheckBox wordt veranderd.
als ze allemaal tegelijk worden nagekeken/veranderd mag ook.
en anders zet ik de regel gewoon 1 voor 1 in de programma code
Het gaat om het woord vloerbedekking

Private Sub CheckBox1_Click()
 With Sheets(1)
  .Range("B2") = CheckBox1 * -1
 End With
End Sub

 

[snb]

Een xlsx bestand kan geen userform bevatten.

 

[markwat]

het klopt wat u zei.
ik heb het aangepast.

 

[markwat]

Beste kikker,

Wil je dit even weg halen en een nieuwe vraag starten?

 

[VenA]

Het is wel handig als je aangeeft waar de namen staan.

Bv zo

Private Sub UserForm_Initialize()
ar = Sheets("Blad1").Columns(1).SpecialCells(2)
For j = 1 To UBound(ar)
    Me.Controls("CheckBox" & j).Caption = ar(j, 1)
Next j
End Sub

 

[markwat]

ja dat was ik vergeten ze staan in kolom A

het is wel zo dat alle checkboxen op deze manier zijn gezet

Private Sub CheckBox1_Click()
 With Sheets(1)
  .Range("B4") = CheckBox1 * -1
  .Caption.Cells(1) = .Caption
 End With
End Sub

Private Sub CheckBox10_Click()
 With Sheets(1)
  .Range("B13") = CheckBox10 * -1
 End With
End Sub

Private Sub CheckBox11_Click()
 With Sheets(1)
  .Range("B14") = CheckBox11 * -1
 End With
End Sub

Private Sub CheckBox110_Click()
 With Sheets(1)
  .Range("B104") = CheckBox110 * -1
 End With
End Sub

Private Sub CheckBox116_Click()
 With Sheets(1)
  .Range("B109") = CheckBox116 * -1
 End With
End Sub

Private Sub CheckBox2_Click()
 With Sheets(1)
  .Range("B5") = CheckBox2 * -1
 End With
End Sub

Private Sub CheckBox20_Click()
 With Sheets(1)
  .Range("B17") = CheckBox20 * -1
 End With
End Sub

Enz...

 

[VenA]

Heb je de code in #5 geprobeerd? En zo ja wat gaat er mis?
De caption van CheckBox1 komt uit A1, de caption van CheckBox2 komt uit A2, etc.

 

[markwat]

nee de fout melding staat in de afbeelding
ook is niet Checkbox1 a1 dit kan verschillen. maar kunt u het zo zetten dat ik de cel zelf kan aanpassen?

 

[VenA]

Volgens mij staat het niet op de plek in de code die ik aangegeven heb? Welke afhankelijkheid is er bij het wijzigen van kolom B met kolom A? Staat er in kolom A een formule? Plaats een relevant voorbeeldbestand.

 

[markwat]

ik ben benieuwd wat ik dan fout deed.

 

[VenA]

Probeer eens te begrijpen wat je aan het doen bent. Je gaat uit van een opgemaakte sheet terwijl dit een doel/resultaat sheet zou moeten zijn. Je hebt maar 70 artikelen in jouw bestand staan (zie tab artikelen) en je hebt 163 CheckBoxen die niet correct doorgenummerd zijn (zie tab Controle). Breng dus eerst structuur aan en bedenk of leg eens even uit wat het doel van dit geheel is.

Volgens mij is er door andere helpers al veel tijd in jouw project gestoken waarbij je steeds van gedachte veranderd.

tip: Maak een FD van wat je wilt bereiken ipv maar iedere keer vragen te stellen zonder dat je zelf weet hoe je iets kan toepassen.

 

[markwat]

Beste VenA

Oke ik begrijp u. Sorry.
Ik begrijp ook een hoop dingen niet dat klopt.
Maar mijn bedoeling is om de UserForm2 te laten openen bij de klant en dat ik dan alleen de checkboxen hoeft aan te vinken en de lengtes in te vullen en hopla de prijs rolt eruit.
Maar het is in iedergeval niet hopla zoals ik bezig ben.
om bij een klant met een tabblad te zitten vogelen vond ik niet zo handig...

 

[markwat]

Beste VenA

als ik de command knop gebruikt blijf hij de nummers verkeerd weergeven.
De checkboxen heb ik opnieuw genummerd.
Ben bezig geweest om de overige weg te halen, maar eenmaal aangemaakt krijg ik ze niet meer weg.
Moeten alle ControleSource nu weer leeggemaakt worden of naar Artikelen Omschrijving verwijzen? of.....

gr paul