Anvend samme henvisning i ny UserForm
Hej,Jeg har en UserForm i Excel, hvor jeg får indlæst nogle værdier i en listbox i en UserForm. Når jeg vælger en af disse værdier der bliver vist, så bliver der udfyldt en række textbox nedenunder listbox.
Jeg kunne godt tænke mig at kunne åbne en ny UserForm, hvor der så skal være 4 txtbox, som skal kunne hente værdier frem mit ark "data", pba. af den værdi jeg har valgt i min listbox.
Håber at ovenstående gav mening.
pft.
Nedenfor fremgår et lille udklip af koden under Listbox:
'slå skærmopdatering fra
Application.ScreenUpdating = False
Dim counter As Integer 'tælle variabel til cellerne i kolonne A på arket Køb
Dim ListeA() As Variant
ListeA = Range("ListeS")
For counter = 2 To Data.Range("A65536").End(xlUp).Row
'set curcell = den næste celle i kolonnen
Set curcell = Data.Cells(counter, 1)
If curcell.Text = Me.ListBox1.Value Then
With Me
.txtRegNr.Value = curcell.Text
.txtBilModel.Value = curcell.Offset(0, 1)
.cmbEjer.Value = curcell.Offset(0, 32)
