Opslag i liste i andet regneark

Princippet er følgende:
=LOPSLAG(E3;'C:\[Mappe2.xls]Ark1'!$A$1:$B$3;2)

E3: Den celle du indtaster din debitorreference i.
'C:\[Mappe2.xls]Ark1'!$A$1:$B$3: Listen over debitorer. Hvis arket er i samme projektmappe kan 'C:\[Mappe2.xls] udelades.
2: Den kolonne i debitorlisten du vil hente oplysning i.

Lopslag kender jeg, men jeg leder efter en løsning, hvor jeg kan se mine debitorer i en dropdown liste.
Man kan under data - validering - oprette en liste, men det kræver (efter hvad jeg kan finde ud af) at listen er i samme regneark. Jeg vil gerne have adresserne i et helt andet ark.

Det kan godt lade sig gøre via VBA:

1) Hente data fra Debitor-filen og indsætte som liste i Faktura-fil - evt. på ark2 - herefter opbygge en valideringsliste på selve faktura-arket.
eller
2) Anvende en userform i faktura-filen, hvor kundedata indsættes i listeboks/comboboks. Kundedata hentes fra debitor-filen.

Jeg tror jeg vælger en mere simpel løsning og går den modsatte vej. Vælger den ønskede debitor og kopierer navn og adresse over i faktura-filen.

Det kunne jeg selv finde ud af selv at lave, men det jeg har lavet ville jeg gerne have speedet lidt op. Princippet i min løsning er, at jeg står i adressefilen, den linie jeg står i kopierer jeg først navnet (kolonne A) fra går til fakturafilen og sætter det ind, går tilbage til adressefilen og kopierer adressen (kolonne B), går til fakturafilen og indsætter det osv indtil jeg har alle 4 felter med. Men disse hop mellem den ene og den anden fil vises jo når makroen kører. Jeg kunne i stedet forestille mig, at jeg undgik disse hop frem og tilbage. Den position jeg står på i adressenfilen må jeg kunne bruge til at bestemme et range, som jeg kopierer og sætter ind i faktura-filen. Men hvordan finder jeg positionen i adressen filen og anvender den som udgangspunkt??

Til orientering ser min nuværende kode således ud (og det fungerer):

            ActiveCell.Offset(0, 1).Select
            Selection.Copy
            Windows("faktura1").Activate
            Range("A9").Select
            ActiveSheet.Paste
            Windows("adresser.xls").Activate
            ActiveCell.Offset(0, 1).Select
   
            Selection.Copy
            Windows("faktura1").Activate
            Range("A10").Select
            ActiveSheet.Paste
            Windows("adresser.xls").Activate
            ActiveCell.Offset(0, 1).Select

Tville

Så er løsningen vel - at via positionering i Debitor-filen - aktivering af en knap - og deb.data overføres til faktura-filen - ??

Har en model - der ganske vist ikke følge dit ønske m/en simpel løsning - men  -synes jeg - er noget mere letbenet:

Når du åbner din faktura vises en userform med alle kunder (hentes via VBA i debitor-filen). Klik på den ønskede kunde - OK - Navn, adresse & postnr. by indsættes i faktura.

Send en mail til pb@supertekst-it.dk - hvis du er interesseret - så sender jeg en kopi af modellen - så kan du jo vurdere dette alternativ.

Ikke længere relevant