• 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.

Krijg de gegevens van listbox niet naar de textboxen

Status
Niet open voor verdere reacties.
Atwist

Atwist

Terugkerende gebruiker
Lid geworden
24 jan 2006
Berichten
1.055
Besturingssysteem
Wndows 10
Office versie
2016
Hallo Formleden,

Probeer de gegevens die ik selecteer in een ListBox naar de TextBoxen te krijgen, maar ik krijg steeds de melding "kan het opgegeven object niet vinden"
Dit snap ik niet wand ik gebruik deze methode vaker en dan gaat het goed.

Hier zou de fout in moeten zitten
Code: 
Private Sub LB_01_Click()
 For i = 0 To 12
    Me("CT_" & Format(i, "00")) = LB_01.Column(i)
    Next
    If LB_01.Column(13) = "Aus Dienst" Then Label_16.Visible = True
    CommandButton_01.Enabled = True

Heb het excel bestand bij gevoegd
 

Bijlagen

  • Neue Planung.xlsm
    45,1 KB · Weergaven: 34
Ct_0 bestaat niet. Zet in de vraag in het vervolg over welk object je het hebt of pas het bestand erop aan.
 
Dank je VenA

Ik heb deze gewijzigt maar het werkt nog steeds niet.

Code: 
Private Sub LB_01_Click()
 For i = 0 To 12
    Me("CT_" & Format(i, "00")) = LB_01.Column(i)
    Next
    If LB_01.Column(13) = "Aus Dienst" Then Label_16.Visible = True
    CommandButton_01.Enabled = True
    
End Sub

In
Code: 
Private Sub LB_01_Click()
 For i = 0 To 12
    Me("CT_" & Format(i, "01")) = LB_01.Column(i)
    Next
    If LB_01.Column(13) = "Aus Dienst" Then Label_16.Visible = True
    CommandButton_01.Enabled = True
    
End Sub


Of zie ik mijn eigen fout nog steeds niet??????
 
Zo denk ik..

Code: 
Private Sub LB_01_Click()
 For i = [COLOR="#FF0000"]1[/COLOR] To 12
    Me("CT_" & Format(i, "00")) = LB_01.Column(i)
    Next
    If LB_01.Column(13) = "Aus Dienst" Then Label_16.Visible = True
    CommandButton_01.Enabled = True
    
End Sub

of een extra textbox plaatsen met de naam CT_00
 
Laatst bewerkt:
Goedemorgen Jack,

Die had ik over het hoofd gezien, nu loopt telkens excel vast na deze verandering.
Ik snap er geen hout meer van.:confused:
 
Inderdaad AD1957

Ik gebruik maar 11 kolomen ipv 12 :eek::eek::eek::eek::eek:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan