Avatar billede LeifT Nybegynder
25. april 2012 - 18:02 Der er 5 kommentarer og
1 løsning

Overførsel af PDF dokument (med tekst og talkolonner) til brugbart excel regneark.

Mange regnskaber, selvangivelser etc indeholder talkolonner med forklarende tekst som det kan være ønskeligt at overføre til et regneark til kontrol og videre bearbejdning.
Mit problem er at de overførte tal ikke virker rigtig formaterede så ledes at man kan udføre de normale regningsarter. Man får fejlmeddelelse ved sammenlægning etc.
Jeg har markeret og kopieret pdf dokumentet og derefter benyttet de forskellige former for indsætning i excel 2007 (unicode etc). Derefter har jeg adskilt de enkelte ord og beløb i cellen (data/tekst til kolonner) således alle beløb står i hver sin celle. Jeg har derefter afprøvet de fleste formaterings muligheder (tal, speciel, videnskabelig etc). Når jeg derefter lægger et par af tallene sammen får jeg samme fejlmeddelelse:    "værdi!.
Hvorledes får jeg et brugbart talsæt ?
Avatar billede vejmand Juniormester
25. april 2012 - 18:28 #1
Ved ikke om det virker, men du kan prøve:
Skriv 1 i en tilfældig celle -> marker den -> Ctrl + C (kopiér)

Marker dine data -> Rediger -> Indsæt speciel -> Mutiplicer
Avatar billede supertekst Ekspert
25. april 2012 - 18:28 #2
Du må gerne sende din Excel fil til mig - @-adresse under min profil.

og så velkommen til Eksperten..
Avatar billede supertekst Ekspert
26. april 2012 - 18:25 #3
Ved klik på tal, der ikke kan beregnes på - fjernes blanke.
Formler berøres ikke..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target <> "" And Target.HasFormula = False Then
        Target = Replace(Target, " ", "")
    End If
End Sub

Der var blanke mellem tal i beløbene....
Avatar billede supertekst Ekspert
26. april 2012 - 23:39 #4
Version 2: Marker området og kald makro

Private Sub klargørTal()
Dim indhold As Variant, indhold2 As Variant, indhold3 As Variant
    For Each cc In Selection
        indhold = cc.Value
        If InStr(indhold, ". ") > 0 And InStr(indhold, ", ") > 0 Then
            indhold2 = Replace(indhold, ". ", ".")
            indhold3 = Replace(indhold2, ", ", ",")
            If IsNumeric(indhold3) = True Then
                cc.Value = indhold3
            End If
        End If
    Next
End Sub
Avatar billede LeifT Nybegynder
27. april 2012 - 01:09 #5
Fornem løsning, det fungerer fint. Tak for hjælpen håber at jeg også kan bidrage positivt til dette udmærkede website.

mvh

LeifT
Avatar billede supertekst Ekspert
27. april 2012 - 08:56 #6
Selv tak..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester