en lille excel opgave

Jeg vil tro at du kan bruge "find.rad" funktionen. Jeg kan forsøge (klik mit nick for kontagtinformation).

Du er velkommen til at sende et eks. til pb(a)supertekst-it dot dk
(Løsning forsøges via VBA)

Har sendt et forslag til dig. Lægger et <Svar> hvis du kan bruge det :)

kengun - tak for dit bud men supertekst er kommet med et bedre bud.

Mange tak for din tid.

/Clauska

så vil vi gerne se hvordan det hele er løst

sådan løste jeg den: http://www.kengun.com/eksperten/861344.zip - mine formler ligger i B, C og J (tekst med rød farve)

Måske skulle vi få afsluttet "sagen"...

Ja det ville være nice. Vi trænger blot at se hvordan du løste "sagen".... for som du ved så skal ikke Eksperten opgaver løses udenfor Eksperten, hvis du forstår.

Supertekst du er nødt til at lave et svar for at jeg kan lukke sagen.

...og ifølge Ekspertens regler skal også løsningen vises for Ekspertens brugere.

Undskyld - kommer her:

Private Sub workbook_open()
    ActiveWorkbook.Sheets("Besøgsrapport").Activate
   
    Load UserForm1
    UserForm1.Show 0
End Sub

USERFORM:
Rem Model 1 - 28-01-2009
Rem ====================
Dim antalRæk
Private Sub Cb_indsæt_Click()                      'varebeskrivelse valgt
    If ActiveCell.Row >= 12 Then
        bræk = ActiveCell.Row
       
        lræk = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
       
Rem Flere data kan hentes fra lager - indsættes i besøgsrapport
        With ActiveWorkbook.Sheets("lager")
            varenr = .Cells(lræk, 1)
            varebeskrivelse = Me.ComboBox1
            pris = .Cells(lræk, 3)
        End With
       
        With ActiveWorkbook.Sheets("Besøgsrapport")
            .Cells(bræk, 1) = varenr
            .Cells(bræk, 2) = varebeskrivelse
            .Cells(bræk, 3) = pris
        End With
    Else
        MsgBox ("RækkeNr. skal være 12 eller derover")
    End If
End Sub
Private Sub Cb_luk_Click()
    Unload Me
End Sub
Private Sub UserForm_initialize()
Dim lagerArk As Worksheet
Rem indlæs varebeskrivelse fra arket Lager
    With Me.ComboBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "200;25"
    End With

    Set lagerArk = ActiveWorkbook.Sheets("lager")
    lagerArk.Activate
   
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    With lagerArk
   
        For ræk = 2 To antalRæk
Rem Hvis der er vare-nr.i kolonne A - sæt beskrivelse og rækkenri listen
            If .Cells(ræk, 1) <> "" Then
                Me.ComboBox1.AddItem .Cells(ræk, 2)
                Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = ræk
            End If
        Next ræk
   
'        Me.ComboBox1.DropDown
    End With
   
    ActiveWorkbook.Sheets("Besøgsrapport").Activate
   
End Sub