[VBA EXCEL] Automatisch kleine letters uitschakelen

[Verwijderd]

Ik ben bezig met een prijskaartjetool in Excel. Aan de hand van hoeveel prijskaartjes er gemaakt moeten worden kopieert hij in een lus ook de TextBoxen.

Helaas als ik de deze regel in typ:

code:

    Blad1.TextBox(i).Text = intArtikelNummer

maakt Hij zoals in de onderstaande sub te zien is automatisch van de B van Box een kleine letter en krijg ik de foutmelding dat hij de methode of gegevenslid niet vindt. Hoe los ik dit op?

code:

Public Sub Invullen()

For i = 1 To dblAantalRijen
    
    Sheets("Schaprandklein").Select
    
    Range("A" + CStr(i)).Select
    intArtikelNummer = ActiveCell.Value
    
    Range("B" + CStr(i)).Select
    intOmschrijving = ActiveCell.Value
    
    Sheets("Schaprandklein").Select
    Range("G" + CStr(i)).Select
    intPrijs = ActiveCell.Value
   
    Sheets("Blad1").Select
        
    strArtikelnummer = "txtArtikelnummer" & i
    strOmschrijving = "txtOmschrijving" & i
    strPrijs = "txtPrijs" & i
    
    Blad1.Textbox(i).Text = intArtikelNummer
    Blad1.Textbox(i).Text = intOmschrijving
    Blad1.Textbox(i).Text = intPrijs
   
Next i

End Sub

[RobIII]

Waar hoort mijn topic?
PRG >> OFF

Waarom doe je zo moeilijk met .Select, Range en ActiveCell.value? Je weet dat dat vele malen makkelijker kan?

Als intellisense zich gaat bemoeien met de case van je objects dan zal 'ie wel gelijk hebben. Heet de textbox echt TextBox? Daarbij zet je 3 keer achter elkaar hetzelfde object's text property in de lus

[ Voor 63% gewijzigd door RobIII op 31-05-2009 22:42 ]

[Verwijderd]

RobIII schreef op zondag 31 mei 2009 @ 22:39:
Waar hoort mijn topic?
PRG >> OFF

Waarom doe je zo moeilijk met .Select, Range en ActiveCell.value? Je weet dat dat vele malen makkelijker kan?

Als intellisense zich gaat bemoeien met de case van je objects dan zal 'ie wel gelijk hebben. Heet de textbox echt TextBox? Daarbij zet je 3 keer achter elkaar hetzelfde object's text property in de lus

Ja, mijn programmeerkwaliteiten zijn misschien idd niet heel geweldig. Maar als ik om het te testen er even

code:

 Blad1.TextBox1.Text = intArtikelNummer

etc. van maak werkt het wel namelijk, maar het is dus de bedoeling dat dit dynamisch gebeurt.

[RobIII]

Verwijderd schreef op zondag 31 mei 2009 @ 22:45:
Maar als ik om het te testen er even

Blad1.TextBox1.Text = intArtikelNummer

etc. van maak werkt het wel namelijk, maar het is dus de bedoeling dat dit dynamisch gebeurd.

Dynamisch? Huh? Je bent dynamisch code aan 't genereren? Of... huh?

[Verwijderd]

RobIII schreef op zondag 31 mei 2009 @ 22:46:
[...]

Dynamisch? Huh? Je bent dynamisch code aan 't genereren? Of... huh?

Ik zal het even proberen te verduidelijken, op het werkblad prijswijzigingen staat een tabel met producten:

artikelnr omschrijving prijs
123456 HP printer 699
129459 Canon Laptop 233

etc.

Dan telt hij hoeveel prijskaartjes gemaakt worden en kopieert hij automatisch per prijskaartje in een cel 3 textboxen. Die krijgen dus de namen TextBox4, TextBox 5 etc.

En met de lus moet hij dus de Textboxen vullen met de artikelnummers, de omschrijving en de prijs.

Ik vermoed dat ik de textboxen aantal op 1 of andere manier moet declareren, maar hoe?

[ Voor 5% gewijzigd door Verwijderd op 31-05-2009 23:42 ]