VBA: Hvordan redigere jeg rækker i en Userform??

Du skal være velkommen til at sende filen - adresse under min profil.

Sender dem til dig når jeg kommer hjem.

1000 tak fordi du gider at bruge din tid på at se det igennem. Det sætter jeg stor pris på!

ok...

--- Form til SØGNING & VALG ---
Private Sub CommandButton1_Click()                  'Søg ID
Dim fundetRække As Integer, ræk As Long, søgFra As Long
Rem slet evt. gl. indhold
    Me.ListBox1.Clear

    søgFra = 1
   
    For ræk = StartRæk To 65000
        fundetRække = søgIdatabase(Me.TextBox1, "E" & CStr(søgFra) & ":E65000")
       
        If fundetRække = 0 Then
            Exit For
        Else
            hentFundneTilListe fundetRække
            søgFra = fundetRække + 1
        End If
    Next ræk
End Sub
Private Sub hentFundneTilListe(række)
    With ActiveWorkbook.Sheets("database")
        Me.ListBox1.AddItem .Range("A" & CStr(række))
        For felt = 2 To 5
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, felt - 1) = .Cells(række, felt)
        Next
       
Rem gem det fundne række-nr
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, felt - 1) = række
    End With
End Sub
Private Sub CommandButton2_Click()
    If Me.ListBox1.ListIndex <> -1 Then
        View2.Show
    End If
End Sub
Private Sub UserForm_activate()
Rem slet evt. gl. indhold
    Me.ListBox1.Clear
End Sub
Private Function søgIdatabase(søgefter, område)
    With Sheets("database").Range(område)
        Set c = .Find(søgefter, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
            søgIdatabase = c.Row
        Else
            søgIdatabase = 0
        End If
    End With
End Function


--- Form til AJF. ---
Dim valgtRække As String
Private Sub CommandButton1_Click()
    ajourførFelt Me.pa_re_txt, "A"
End Sub
Private Sub CommandButton2_Click()
    ajourførFelt Me.cl_re_txt, "B"
End Sub
Private Sub CommandButton3_Click()
    ajourførFelt Me.av_re_txt, "C"
End Sub
Private Sub CommandButton4_Click()
    ajourførFelt Me.carrier_re_txt, "K"
End Sub
Private Sub CommandButton5_Click()
    ajourførFelt Me.Covertype_re_txt, "L"
End Sub
Private Sub CommandButton6_Click()
    ajourførFelt Me.transtype_re_txt, "M"
End Sub
Private Sub CommandButton7_Click()
    ajourførFelt Me.amount_re_txt, "N"
End Sub
Private Sub ajourførFelt(feltVærdi, kolonne)
    ActiveWorkbook.Sheets("database").Range(kolonne & CStr(valgtRække)) = feltVærdi
End Sub
Private Sub UserForm_activate()
    valgtRække = View.ListBox1.List(View.ListBox1.ListIndex, 5)

    With ActiveWorkbook.Sheets("database")
        Me.pa_re_txt = .Range("A" & valgtRække)
        Me.cl_re_txt = .Range("B" & valgtRække)
        Me.av_re_txt = .Range("C" & valgtRække)
       
        Me.carrier_re_txt = .Range("K" & valgtRække)
        Me.Covertype_re_txt = .Range("L" & valgtRække)
        Me.transtype_re_txt = .Range("M" & valgtRække)
        Me.amount_re_txt = .Range("N" & valgtRække)
    End With
End Sub

Jeg vil gerne have lov til at takke dig og udtrykke min beundring for dine egenskaber i Excel.

Det virker perfekt. Jeg har dog rettet den en smule til. Kan man sætte width i kolonerne i Listbox1?

Tak for de pæne ord.

Ja - det kan du godt - f.eks.:

    Me.lb_adrListe.ColumnWidths = "100;20;80"

tak

Jeg har kun et lille problem.

Jeg har for, udfordringens skyld, lavet 12 rækker med samme oplysninger. Desværre viser søgefunktionen ikke alle 12 rækker men kun 8. Er der en grund til dette?

Ok - jeg prøver det samme....