Variabele textbox value laten verwijzen naar een Range via Textbox

[Csuki]

Hoi daar,

Ik ben een tijd aan het stoeien met VBA voor Excel 2003 en stoot nu op het volgende probleem. Ik heb een vereenvoudigd voorbeeld van het bestand bijgevoegd.

Mijn bedoeling is een automatische checklist van de BoiD's (Bok iDentificatie) die binnen staan maken. Het moet mogelijk zijn door via het verwerkingsformulier een BoiD nummer in te vullen zoals deze in het bereik A5:A103 staan in te vullen in de bovenste "uitgave..." of onderste "retour..." Textbox. Wanneer de je dus 005 Invult bij Retour komt er een groen vinkje te staan achter 005 in de cel ("C09"). En vice versa, bij uitgave een rood vinkje in cel ("D9"). Dit is allemaal mogelijk alleen vind ik het moeijlijk om de ingevulde BoiD nummer te vertalen naar een aan te passen cel welke je hiervoor zou moeten activeren en in moet vullen met de characters uit de voorbeeldjes van het vinkje en het kruisje in de cellen C3 en D3.

Dus hoe vertaal ik

005 in een textbox naar een Range om deze characters vervolgens te vervangen met die van C3 of D3.

Wanneer het vinkje verschijnt wil ik het kruisje hiernaast natuurlijk weghebben. Dus hiertussen kunnen switchen. Dus zoiets als

Activecell.Characters = Range("C3").Characters
Range(cel waarvan het vinkje of kruisje wegmoet).Characters.Delete


Hele lap Tekst! sorry wil zo specifiek mogelijk zijn om duidelijk te zijn ofzoiets dus.

Op het moment is het dus ook

Private Sub Mymind_Thinking()

MyMind.Memory.Clear

End Sub

Danku!!!

 

[E v R]

Een aanzetje voor achter de knop Verwerk:
(Ik zou zelf ipv Textboxen met Comboboxen werken..)

Private Sub Verwerk_Click()
    Dim rng    As Range
    Set rng = Sheets("BoiD").Range("A5:A103")
    On Error GoTo fout
    If IsNumeric(Boxout.Value) Then
        Sheets("BoiD").Cells(Application.WorksheetFunction.Match(Boxout.Text, rng, 0) + 4, 4) = "X"
        Sheets("BoiD").Cells(Application.WorksheetFunction.Match(Boxout.Text, rng, 0) + 4, 3) = ""
    End If
    If IsNumeric(Boxin.Value) Then
        Sheets("BoiD").Cells(Application.WorksheetFunction.Match(Boxin.Text, rng, 0) + 4, 3) = "ü"
        Sheets("BoiD").Cells(Application.WorksheetFunction.Match(Boxin.Text, rng, 0) + 4, 4) = ""
    End If
    Boxout.Text = ("Uitgave...")
    Boxout.ForeColor = &H8000000B
    Boxin.Text = ("Retour...")
    Boxin.ForeColor = &H8000000B
    Form.Hide
    Exit Sub
fout:
    MsgBox "Niet gevonden"
End Sub

 

[Csuki]

Hoi Eric,

Bedankt voor de snelle reactie, ik ga hiermee gelijk aan de gang. Ik was ook al bezig geweest met de Combobox/Listbox. Dit was waarschijnlijk het zetje dat ik nodig had!:thumb: