• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Waarde van Cel naar TextBox ???

  • Onderwerp starter Onderwerp starter DZP
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

DZP

Gebruiker
Lid geworden
26 feb 2007
Berichten
242
Code:
TextBox13.Value = Range("B11").Value
Weet iemand hoe ik de waarde achter de = moet neerzetten!
Het is de waarde uit cel B11 die in TextBox13 zou moeten komen.
Bij voorbaat dank voor uw moeite.
Gr. Henk.
 
Je kan al beginnen met het blad te vermelden waarin deze cel B11 zich bevindt.
Verder is je vraag nogal summier. Kan je even verder uitleggen waarover het gaat bv textbox op werkblad, textbox in formulier dat bij het laden moet ingevuld worden ??
 
Code:
Private Sub ComboBox1_Change()
    Dim oRng As Range
        Set oRng = ThisWorkbook.Sheets("Gegevens").Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
              TextBox10.Value = oRng.Offset(0, -6).Value              
              TextBox13.Value = Range("B11").Value
              TextBox14.Value = oRng.Offset(0, 4).Value 
 End Sub
Het tabblad ziet ie al want er staan nog meer textboxen voor die dat ook lezen.
De TextBox staat in een UserForm en de andere textBoxen ook en die worden ook al geladen en zien ook de waarden in de cellen.
Maar die worden geladen dmv een findroute en dan via oRng.Offset huppeldepup
De TextBox (13) die ik bedoel hoeft niets te vinden maar alleen de waarde uit een vaste cel te laten zien.
Ik hoop dat het zo wat duidelijker wordt!
Gr.
 
En op deze manier ?
Code:
Private Sub ComboBox1_Change()
    Dim oRng As Range
    With Sheets("Gegevens")
        Set oRng = .Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
        TextBox10.Value = oRng.Offset(0, -6).Value
        TextBox13.Value = .Range("B11").Value
        TextBox14.Value = oRng.Offset(0, 4).Value
    End With
End Sub

Want je cel B11 heeft op jouw manier niets te maken met oRng (waar wel wordt verwezen naar een bepaald werkblad), die geldt enkel voor TextBox 10 en 14.
 
Duidelijk --> de andere gegevens worden gezocht vanuit de ComboBox
(En die is natuurlijk variabel).
Ik had het inderdaad ook al met een extra puntje maar dat werkte toen ook niet.
Bedankt voor je input en het werkt nu wel naar behoren.
Merci en werk ze. :thumb::thumb:
Gr. Henk
 
Laatst bewerkt:
Graag gedaan en slaap ze ;)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan