lopslag Excel 2013

Upload til gupl.dk med en mere uddybende forklaring end denne.

Så er jeg på igen. Med hensyn til opload, vil jeg gerne, at vi bruger adgangskode. Hvordan fungerer dette? Har ikke prøvet, at bruge gupl.dk før. Kan jeg evt. sende den til dig?

Du må gerne sende direkte til mig.
Se min mailadresse på profilen (klik på mit brugernavn).

Har sendt - har du modtaget?

Har modtaget filen, men har ikke haft tid til at kigge på den endnu.

Filen returneret med kommentarer.

Problemstillingen er at LOPSLAG()fejler pga. opslagsværdien og den tilsvarende værdi i tabellen er hhv. tal og tekst.

Du får et svar!

Sådan skal det vist se ud.


Sub TekstTilTalOgDerefterStandard()
   
    'tekst til tal
    Range("D2:D10000").Select
    Range("D2").Activate
   
    On Error Resume Next
    For Each C In Selection.Cells
        C.Value = C.Value * 1
    Next C
    'Talformat
    Selection.NumberFormat = "0"
    'Fjern alle celler med 0
    Range("D1:D10000").Select
    Selection.AutoFilter
    ActiveSheet.Range("$D$1:$D$10000").AutoFilter Field:=1, Criteria1:="=0", _
        Operator:=xlAnd
    Selection.ClearContents

  'Til standard
    Columns("D:D").Select
    Selection.NumberFormat = "General"
    Range("D1").Select

End Sub

Tak for hjælpen.