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