Excel Vba

Status
Niet open voor verdere reacties.

woltersgert

Gebruiker
Lid geworden
15 mei 2001
Berichten
47
Hallo Forum,

Ik ervaar de volgende uitdaging:

in een en hetzelfde werkblad heb ik minimaal 1500 selectievakjes nodig en ik wil met elk selectievakje kunnen programmeren.

met het active x besturingselement checkbox red ik het niet, omdat hij tot 1199 in Excel 2003 en tot 1207 in Excel 2007 gaat.

Weet iemand hoe ver je kunt gaan met het selectievakje van het formulierbesturingselement?

De doelstelling is het volgende: is het vakje actief, dan de tekst meenemen die er bij hoort. Is het vakje inactief, de tekst niet meenemen die er bij hoort.

Heeft u een andere oplossing, dan lees ik het graag

Met vriendelijke groet,

Gert Wolters
 
Reactie op MS Access

Hallo Forum,

dank voor je reactie, maar de klant wil perse met Excel werken.

Gert
 
Hoi Gert,

Heb een loop gemaakt om wat checkbox in een sheet te zetten.
De teller op 5000 en die zitten er nu allemaal in.
Daar haal je het wel mee toch?


Gr,
Alex,
 
Was wat aan het testen met die checkbox.
En dacht dat je deze code wel eens kunt gebruiken voor het maken van je werkboek.

Code:
Sub Test()
Dim NaarRow, StopRow As Long
Dim Links, Bovenkant, Hoogte, breedte As Double

StopRow = Range("A65536").End(xlUp).Row
    For NaarRow = 1 To StopRow
        If Not IsEmpty(Cells(NaarRow, 1)) Then
            Links = Cells(NaarRow, 2).Left
            Bovenkant = Cells(NaarRow, 2).Top
            Hoogte = Cells(NaarRow, 2).Height
            breedte = Cells(NaarRow, 1).Width
            ActiveSheet.CheckBoxes.Add(Links, Bovenkant, breedte, Hoogte).Select
             With Selection
                .Caption = Cells(NaarRow, 1).Value
            End With
        End If
    Next
End Sub

Gr,
Alex,
 
Met dubbelklik 'vink' je in kolom A de tekst in kolom B aan/uit:

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column & Target.Count = 11 Then Target = IIf(Target = "", "X", "")
End Sub
 
CheckBox

Hallo Forum,

de oplossing met Worksheet_BeforeDoubleClick is het nog niet helemaal.

Wat ik zoek is dat je bij links klikken op een selectievakje iets aan of uit zet.

Ik moet gebruiken maken van het selectievakje van het formulierbesturingselement, omdat ik er meer dan 1200 nodig ben waarbij ik met elk selectievakje wil kunnen programmeren.

Met vriendelijke groet,

Gert Wolters
 
Selectievakjes

Hallo Forum,

ik heb in het excel bestand 1 werkblad toegevoegd met hoe ik het wil hebben.

Groetjes,

Gert Wolters
 

Bijlagen

Je hebt mijn vraag niet beantwoord.
Je meende toch wel wat je schreef: 'als je een andere oplossing hebt hoor ik het graag'
 
Laatst bewerkt:
Selectievakjes

Hallo Forum,

Haha, je hebt gelijk.

het is inderdaad een andere oplossing, alleen kan ik deze oplossing niet gebruiken.Ik had gehoopt op een andere oplossing waar ik verder mee zou kunnen.

Zoals het in het werkblad blad2 beschreven staat, daar moet ik mij aan houden.

Groetjes,

Gert
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan