VBA find værdi i ekstern regneark og returner kolonnenr

ps: navnet på det eksterne ark skal gerne stå i kæde ref i excel arket så hvis jeg skifter kæden skifter ref også i funktionen

Rem Indsættes i Modul
Rem I A1 er komplet sti anført
Rem BrugerDefineret Function
Rem =søgVærdi(A1;2;16;88) (sti,arkNr,Række,Værdi)
Rem
Rem =============================================
Public Function søgVærdi(sti, ark, række, værdi)
Dim xlsObj As Object, kol As Integer, cVærdi
On Error GoTo fejl

    Set xlsObj = CreateObject("Excel.Application")
    With xlsObj
        .Workbooks.Open sti
        .ActiveWorkbook.Sheets(ark).Activate
        antalkolonner = .ActiveCell.SpecialCells(xlLastCell).Column
       
        søgVærdi = 0
       
        For kol = 1 To antalkolonner
            cVærdi = .Cells(række, kol)
            If cVærdi = værdi Then
                søgVærdi = kol              'kolonneNr returneres
                Exit For
            End If
        Next kol
       
fejl:
        xlsObj.Quit
        Set xlsObj = Nothing
    End With

End Function

Kan det lade sig at gøre uden at det eksterne ark bliver åbnet ?

Den eksterne fil vises ikke når jeg afvikler funktionen.

Det har bare givet mig grå hår at finde ud af det her.. hvis det her lykkes uden at give problemer så har du velfortjent dine point.

jeg har et ark hvor jeg skal bruge formlen 50-100 gange vil det give problemer ?? performance eller lign ?

Lad os så håbe det kan lade sig gøre..

50-100 gange lyder af meget. Hvad er formålet, hvis jeg må spørge?  Det kunne jo være at det evt. skulle konstrueres anderledes.

Jeg har flere afd.nr stående i hver sin kolonne i et ark for en periode, hvor jeg har flere (finans)konti stående med beløb i hver sin række

afd Nr 100            Afd nr 200  Osv

Konto xxxx beløb      Beløb      Osv
Konto xxxx beløb      Beløb      Osv

osv


dette skal samles sammen i et ark hvor man sammenligner flere perioder og gammelt år

samtidigt skal dette sammenholdes med et budget hvor man skal summere hen over 12 md dvs "år tid dato" samt for måneden

håber det giver mening

efter et par små rettelser ser det ud til at virke,

Men hvordan kan jeg slippe for at den ikke vil opdatere kæder og gemme ændringer når den har fat i det eksterne ark

Tak for info i #7

Fint,hvis det virker.

Forstår ikke meningen med 2. afsnit #8

i det eksterne ark er der ref. til andre eksterne ark, når du så åbner dem i funktionen vil den gerne opdatere disse kæder, og det skal den ikke, og når den lukker arket spørges der om jeg vil gemme ændringerne, og det skal den ikke den skal bare efterlade det som det var da den åbende det

Ok - skal prøve at forhindre dette..

Rem VERSION 2
Rem =========
Rem Indsættes i Modul
Rem I A1 er komplet sti anførtcel
Rem BrugerDefineret Function
Rem =søgVærdi(A1;2;16;88) (sti,arkNr,Række,Værdi)
Rem
Rem =============================================
Public Function søgVærdi(sti, ark, række, værdi)
Dim xlsObj As Object, kol As Integer, cVærdi
'On Error GoTo fejl

    Set xlsObj = CreateObject("Excel.Application")
    With xlsObj
        .Application.DisplayAlerts = False          '<-- +

        .Workbooks.Open sti
        .ActiveWorkbook.Sheets(ark).Activate
        antalkolonner = .ActiveCell.SpecialCells(xlLastCell).Column
       
        søgVærdi = 0
       
        For kol = 1 To antalkolonner
            cVærdi = .Cells(række, kol)
            If cVærdi = værdi Then
                søgVærdi = kol              'kolonneNr returneres
                Exit For
            End If
        Next kol
       
fejl:
        xlsObj.ActiveWorkbook.Saved = True          '<-- +
        xlsObj.Quit
        Set xlsObj = Nothing
    End With

End Function

Nogen afklaring?

Har lige været på ferie...

og jeps det virker tusind tak for hjælpen

Fint & selv tak...