Fra regneark til ListBox1

Kan du ikke bruge Excels hjælp? Denne her er (næsten) derfra:

Private Sub CommandButton1_Click()
    ListBox1.ColumnCount = 5
    ListBox1.RowSource = "a1:e4"
    ListBox1.BoundColumn = 0
End Sub

Private Sub CommandButton1_Click()
    Dim rListRange As Range
   
    Set rListRange = Worksheets("Medlemmer").Range("A2:I3")
    With ListBox1
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .ColumnHeads = True
        .RowSource = rListRange.Address
    End With
End Sub

her er 2 forskellige du kan lege med - da jeg ikke rigtig kan læse om det skal skal være fed - i virkeligheden er et ønske om overskrifter... Fed kan du ikke lave.

Private Sub CommandButton1_Click()
    ' Række 2 til X med overskrifter i række 1
    Dim rListRange As Range
   
    Set rListRange = Worksheets("Medlemmer").Range("A2:I3")
    With ListBox1
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .ColumnHeads = True
        .RowSource = rListRange.Address
        .ListIndex = 0
    End With
End Sub

Private Sub CommandButton1_Click()
    ' Række 1 til X uden overskrifter
    Dim rListRange As Range
   
    Set rListRange = Worksheets("Medlemmer").Range("AI:I3")
    With ListBox1
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .RowSource = rListRange.Address
        .ListIndex = 0
    End With
End Sub

Hej  flemmingdahl
Den med overskrifter er fin.
Men jeg har flere ark i excel filen, medlemmer er en af dem,
men hvis jeg har en af de andre oppen kan den ikke hente til listbox

MVH

Mvhansen

smid din kode, hvis jeg skal have en chance... måske bruger du ActiveSheet ... det vil forklare en del.

Userform1



Private Sub CommandButton2_Click()
Unload Me
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Brug knappen!"
  End If
End Sub

Private Sub CommandButton1_Click()
    ' Række 2 til X med overskrifter i række 1
    Dim rListRange As Range
   
    Set rListRange = Worksheets("Medlemmer").Range("A2:H3")
    With ListBox1
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .ColumnHeads = True
        .RowSource = rListRange.Address
        .ListIndex = 0
    End With
End Sub




Userform (frmParts)

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Medlemmer")

'find  første tomme row i database'
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check for  part nummer'
If Trim(Me.txtPart.Value) = "" Then
  Me.txtPart.SetFocus
  MsgBox "Indtast et id nr"
  Exit Sub
End If

'copy de data til database'
ws.Cells(iRow, 1).Value = Me.txtPart.Value
ws.Cells(iRow, 2).Value = Me.txtNavn.Value
ws.Cells(iRow, 3).Value = Me.txtEfternavn.Value
ws.Cells(iRow, 4).Value = Me.txtAdresse.Value
ws.Cells(iRow, 5).Value = Me.txtPostnr.Value
ws.Cells(iRow, 6).Value = Me.txtBy.Value
ws.Cells(iRow, 7).Value = Me.txtCprnr.Value
ws.Cells(iRow, 8).Value = Me.txtMailAdresse.Value

'clear textboxe data'
Me.txtPart.Value = ""
Me.txtNavn.Value = ""
Me.txtEfternavn.Value = ""
Me.txtAdresse.Value = ""
Me.txtPostnr.Value = ""
Me.txtBy.Value = ""
Me.txtCprnr.Value = ""
Me.txtMailAdresse.Value = ""
Me.txtPart.SetFocus

End Sub



Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Private Sub Label10_Click()
Label10 = Sheets("Medlemmer").Range("J1").Value
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Brug knappen!"
  End If
End Sub

det kunne se ud som om der mangler et ws har

'find  første tomme row i database'
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

iRow = ws.Cells(WS.Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

Hej flemmingdahl

prøv at se på den
http://www.michael.hansen7500.dk/Excel/Medlemmer.xls

mvh

mvhansen

Hvis du står på ark mvh, kan den ikke hente fra ark medlemmer.
Og den henter også kun 2 Rækker selv om der står 3 Rækker hvis man står på medlemmer

mvh

mvhansen

Private Sub CommandButton1_Click()
    ' Række 2 til X med overskrifter i række 1
    Dim rListRange As Range
   
    Set rListRange = Worksheets("Medlemmer").Range("A2:H3")
    With ListBox1
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .ColumnHeads = True
        .RowSource = Worksheets("Medlemmer").Name & "!" & rListRange.Address
        .ListIndex = 0
    End With
End Sub

Hej flemmingdahl

Nu kan den hente fra ark mvh
men den kan kun hente 2 rækker
selv om der er flere ?

mvh

mvhansen

kig på denne række... Set rListRange = Worksheets("Medlemmer").Range("A2:H3")

Og kan man lave rækkerne i overskrifter støre da adressen ikke kan være der

Denne løsning skulle gerne være lettere automatisk

Private Sub CommandButton1_Click()
    ' Række 2 til X med overskrifter i række 1
    Dim ws As Worksheet
    Dim rListRange As Range
   
    Set ws = Worksheets("Medlemmer")
    Set rListRange = ws.UsedRange
    Set rListRange = rListRange.Offset(1, 0).Resize(rListRange.Rows.Count - 1)
   
    With ListBox1
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .ColumnHeads = True
        .RowSource = ws.Name & "!" & rListRange.Address
        .ListIndex = 0
    End With
End Sub

.ColumnWidth = "50;50;50;...."
et tal for hver kolonne

Kan du sige mig hvor jeg skal sætte den ind på formen

.ColumnWidth = "50;50;50;100;50;50;50;100"

mvh

mvhansen

blandt de andre imellem With ListBox1 og End With

    With ListBox1
        .Clear
        .BoundColumn = rListRange.Columns.Count
        .ColumnCount = rListRange.Columns.Count
        .ColumnHeads = True
        .RowSource = ws.Name & "!" & rListRange.Address
        .ListIndex = 0
    End With

Jeg logger af for i aften.

Tak

Mange tak for hjælpen, du er meget tålmodig

Lige et sidste spørsmål,hvis du får tid engang, hvordan hænder man data fra ark "medlemmer" til textboxe. for at rettiger dem.
Hvor man indtaster  id nr i en textbox og og søger efter den række hvor id nr er,
og får listet hele rækken i forskællig textboxe, så man kan rettiger i dem og gemme
dem igen.
Hvis du vil have flere point er det ok.
På forhånd tak.


mvh

mvhansen

Jeg er i byen det meste af dagen - opret et nyt spørgsmål, så skal du nok få hjælp af en.

hej flemmingdahl

har prøvet .ColumnWidth = "50;50;50;100;50;50;50;100" virker ikke

mvh

mvhansen

Det hedder .ColumnWidths =

Mange tak brynil

Kunde du hjælpe mig med  hvordan hænder man data fra ark "medlemmer" til textboxe. for at rettiger dem.
Hvor man indtaster  id nr i en textbox og og søger efter den række hvor id nr er,
og får listet hele rækken i forskællig textboxe, så man kan rettiger i dem og gemme
dem igen.

Jeg opretter lige et nyt spørsmål

mvh


mvhansen