Avatar billede jath08ac Forsker
23. november 2017 - 12:14 Der er 1 løsning

Problemer med Listbox_Change (UserForm)

Hej,
Jeg har et problem. Jeg har nedenstående kode som desværre driller lidt. Jeg når vælger en værdi i min listbox, så udfylder den ikke de valgt txtboxe, optionbutton og combobox.

Kan nogen hjælpe med at se hvad der er af fejl i koden?

pft.

KODE:

Private Sub ListBox1_Change()


'slå skærmopdatering fra
Application.ScreenUpdating = False

Dim counter As Integer


'    On Error GoTo Err_Sub
   
    For counter = 2 To Data_Spec.Range("A65536").End(xlUp).Row

        'set curcell = den næste celle i kolonnen
        Set curcell = Data_Spec.Cells(counter, 1)



            'hvis den aktuelle celleværdi = værdien i testbox1 på userformen
            If curcell.Text = Me.ListBox1.Value Then

                With ufrKontiIkkeOprettet
               
                'udfyld hovedgruppe
                .txtAccount.Value = curcell.Text
                .txtName.Value = curcell.Offset(0, 1)
                .txtAmount1.Value = Format(curcell.Offset(0, 5), " #,##0.00")
                .txtAmount2.Value = Format(curcell.Offset(0, 7), " #,##0.00")

                If curcell.Offset(0, 13) = "Resultatopgørelse" Then
                    .OptionButton1.Value = True
                ElseIf curcell.Offset(0, 13) = "Balance" Then
                    .Balance.Value = True
                End If

                'udfyld aktiver eller passiver

                If curcell.Offset(0, 14) = "" Then
                    .opbAktiver.Value = False
                    .opbPassiver.Value = False
                ElseIf curcell.Offset(0, 14) = "Aktiver" Then
                    .opbAktiver.Value = True
                ElseIf curcell.Offset(0, 14) = "Passiver" Then
                    .opbPassiver.Value = True
                End If

                .cmbNiveau1.Value = curcell.Offset(0, 16)
                .cmbNiveau2.Value = curcell.Offset(0, 17)
                .cmbNiveau3.Value = curcell.Offset(0, 18)
                .cmbSpec.Value = curcell.Offset(0, 19)
                .txtNoteSpec.Value = curcell.Offset(0, 13)
                .cmbNoter.Value = curcell.Offset(0, 20)
                .txtNoter.Value = curcell.Offset(0, 12)
               
               
                End With
           
            Else
               
                Exit Sub

            End If





    Next

'slå skærmopdatering til igen
Application.ScreenUpdating = True
Avatar billede Jan Hansen Ekspert
23. november 2017 - 20:02 #1
Er formateringen på: curcell.Text = Me.ListBox1.Value den samme?? ellers vil den aldrig blive sand i if sætningen!!

klik evt. i venstre kant af koden så den stopper i linien udfor så du kan køre koden linie for linie og se om koden kører som forventet, man kan også holde pilen hen over variabke og se om de indeholder det forventede!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester