Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketLeft(Application.VLookup(C, InitialRange, 19, Fals

 Besvar Besvar
Forfatter
fiajakt Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Okt.2017
Land: Danmark
Status: Offline
Point: 76
Direkte link til dette indlæg Emne: Left(Application.VLookup(C, InitialRange, 19, Fals
    Sendt: 17.Apr.2018 kl. 19:47
Hej.

Min kode virker når det er tal, men ikke når det er tekst.

Jeg ønsker at de første tre bogstaver bliver returneret.

Er det nogen som kender en løsning?

Sub test()

Dim AntalO As Integer
Dim AntalM As Integer
Dim res As String 
Dim CountryRange As Range, InitialRange As Range, C As Range

AntalO = Worksheets("ark1").Cells(2, 4).Value    
AntalM = Worksheets("ark1").Cells(4, 4).Value   

Set CountryRange = Sheets("Hoved").Range(Cells(2, 6), Cells(AntalM, 6))    
Set InitialRange = Sheets("ordre").Range("A1:R50000")     

For Each C In CountryRange    
    res = Left(Application.VLookup(C, InitialRange, 19, False), 3)    

    If Not IsError(res) Then   
        C.Offset(0, -1).Value = res
    End If

Next C

End Sub
Til top



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk