Kan man indsætte celleområde D6:J500 i 1 listbox el. lign ja nej?

Hej  excelent

Private Sub CommandButton1_Click()
    ' Række 2 til X med overskrifter i række 1'
    ' Her henter vi til listebox'
    Dim rListRange As Range
   
   
    Set rListRange = Worksheets("Medlemmer").Range("A2:H100")
   
    With ListBox1
        .ColumnWidths = "35;50;50;100;40;50;60;100"
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .ColumnHeads = True
        .RowSource = Worksheets("Medlemmer").Name & "!" & rListRange.Address
        .ListIndex = 0
       
    End With
End Sub


mvh

mvhansen

Hov jeg var for hurtig man kan ikke redigere i denne her

hej mvhansen
prøver lige

får en runtime error i linien
.RowSource = Worksheets("Ark1").Name & "!" & rListRange.Address

Prøv at se her
http://www.eksperten.dk/spm/683316

ok det skal nok lige studeres lidt nærmre, det gør jeg
så kan jeg evt vende tilbage i morgen
har du fået det til at virke ?
Har forøvrigt fået uploaded en fil til nettet via 'CuteFTP :-)

ja jeg har fået det til at virke.
det er bare fint at du har fået det til at virke

den fejl jeg omtalte er ok nu
jeg havde lavet knappen og listbox direkte på arket...
det skulle jo ind i en userform  min fejl
nu begynder det at dæmre :-)

jeg har ændret Range til A2:H500
og det virker stadig fint
så nu skal det blot rettes til så det passer til mine data
smid lige et svar vmhansen og tak for hjælpen
v.h.Poul

Ok svar

hov Ok svar