Hej

Jag har ett problem.

Jag vill hämta värdet "B2" som är ex. 070038 och börjar alltid med 0

Jag har kört fast och kan inte infoga funktionen i cell B3.

Jag har försökt med följande kod, men det funkar inte.
__________________________________________________
Sub Hämta_Data()

Dim B2 As Variant
Range("B3").Select
Do
ActiveCell.Offset(0, -1).Select
B2 = ActiveCell
ActiveCell.Offset(0, 1).Select
If B2 = False Then Exit Do

ActiveCell = "=LETARAD([" & B2 & "];'C:\[bok.xls]Blad1'!$A$2:$G$999;7;FALSKT)"

ActiveCell.Offset(1, 0).Select
Loop Until B2 = False

End Sub
___________________________________________________

Så här ser funktionen ut som funkar:
=LETARAD("070038";'C:\[bok.xls]Blad1'!$A$2:$G$999;7;FALSKT)

Är det någon som vet hur man kan infoga denna "Textsträng" i cellen "B2"?

Mvh
Jörgen

ActiveCell = "=LETARAD(""" & B2 & """;'C:\[bok.xls]Blad1'!$A$2:$G$999;7;FALSKT)"

Hej Åsa

Tack för svaret, men jag får inte till det ändå.

Jag får felmeddelande: Program- eller objektdefinerat fel.

Men om jag har ett mellanslag eller ett ' innan = så får jag in formlen i cellen, men då funkar ju inte formlen, då måste jag gå in i cellen och ta bort mellanslaget. Då funkar det.

Har du något förslag?

Mvh
Jörgen

OK, prova med:

ActiveCell.FormulaLocal = "=LETARAD(""" & B2 & """;'C:\[bok.xls]Blad1'!$A$2:$G$999;7;FALSKT)"


Både kolumnen A och den genomsökta kolumnen i bok.xls ska ha formatet "Text".

Ett alternativt tillvägagångssätt är att skapa en formel i B3 som du sedan utökar till alla raderna:
<code>
Dim lRows As Long
lRows = Range("A3").CurrentRegion.Rows.Count + 2
Range("B3").AutoFill Destination:=Range(Cells(3, 2), Cells(lRows, 2)), Type:=xlFillDefault
</code>

Hej Åsa

Det verkar funka bra, Jag har testat det på en "annan" dator.
På onsdag så lägger jag in det på den "rätta".

Jag har försökt att förstå ditt andra förslag, men det förstår jag inte riktigt?

Eftersom jag vill lära mig VBA så får du gärna förklara.

Rad 1= Dim IRows as Long (Det fattar jag)
Rad 2= Redan här tappar jag tråden...

Har du tid så är jag tacksam om du vill förklara, du får nog förklara grundligt för jag är inte så duktig på VBA.

Tack för hjälpen.
Jörgen