gentagende indsættelse af data i xl fra emails

Jeg vil gerne tilrette dit ark, men det er nok nemmest, hvis du har mulighed for at maile det til: jan_vogt_hansen@hotmail.com

Er det muligt, at få et ægte eksempel på en email tilsendt ? flemse@post3.tele.dk
Hvilket program bruger du til hente dine mails med ?

Hvordan skal Excel konsolidere de mange spørgeskemaer?

Skal du have et Excel-ark for hvert sprøgeskema?

Hvis data står i samme kolonne kan det løses ved at gå ind i menuen under DATA -> TEKST TIL KOLONNER og vælge kolon som separator.
Derved får du delt dine data i to kolonner.

Jan\'s løsning virker fint, men hvis du ikke vil have det mellemrum før svaret med, så kan du benytte en formel som denne.

=MIDT(A2;FIND(\":\";A2;1)+2;LÆNGDE(A2)-(FIND(\":\";A2;1)+1))

Efter at have brugt formlen, så kan du markerer området og kopier det. Højreklikke på området og vælge INDSÆT SPECIEL sætte V udfor VÆRDIER og klik OK - herefter er formlen omsat til værdier.

Hele denne procedure kan laves som en makro, som du kan afspille hver gang du har kopieret en mail ind i dit regneark.

>> jan og flemming
jeg har sendt et ark til jer begge to. Det indeholder kun kolonne overskrifter og række nummre, så der er ikke så meget at se endnu...
jeg bruger outlook til at hente post med og jeg har også vedlagt en kopi af en af de mails jeg får som svar - pricis som de ser ud. Så kan det være at i kan få en bedere ide om hvad det egentlig er jeg ønsker.
jeg regner ikke med at få mere end 2-300 svar via nettet. Det er så meningen at jeg senere vil kopiere alle mine svar fra nettet over i et større ark der indeholder manuelt indtastede data fra 300 personer.
Det er dette større ark der indeholder alle mine krydstabuleringer og beregninger, men det er jo en helt anden sag.

En anden indgangsvinkel vil være at gå tilbage til din hjemmeside og tilrette dine form-elementer så de bliver medsendt i mailen uanset at de er tomme!
På den måde vil du få samme format på alle dine mails. Ideen kan selvfølgelig ikke bruges, hvis du allerede HAR fået dine svar.

>>sorensfar
jeg har desværre fået mange af mine svar...

OK, men så ved du det til næste gang ;-)

Løsningsforslag er sendt.

Forslag sendt. :-)

>> jan & flemming
jeg har modtaget begge jeres fine forslag, skal lige bruge lidt tid til at prøve det af.

>> jan & flemming
de to svar var fine, dog var det jans som jeg gik videre med.

jeg har prøvet at fordele piontene så godt jeg kunne, håber i syntes det er retfærtigt.

I skal begge have tak for hjælpen

jan må jeg få tilsendt dit forslag - takker

Selvfølgelig Flemming - er på vej ......

Til andre interesserede kan jeg kort forklare, hvordan opgaven blev løst:

De rå mail-data kopieres over i Excel i underarket \"Rå\".
Her kan man formatere dem, evt. med \"tekst til kolonner\"
Man behøver ikke spekulere på at der er nogen ekstra tomme linier eller der mangler nogle svar.

I et andet ark \"filter\" er der en korrekt liste, som v.h.a. en udvidet opslagsformel automatisk henter data fra \"rå\"-arket.

Herefter skal hvert spørgeskema flyttes om i et \"hovedark\" eller database, hvor alle data er samlet. Eneste problem er, at data her skal ligge vandret, hvor de jo står lodret (se ovennævnte eksempel) i \"filter\"-arket. Dette problem er løst v.h.a. en makro, som er bygget op v.h.a. INDSÆT SPECIEL -  VÆRDIER OG TRANSPONER.
Makroen sørger også for, at finde den næste tomme række i \"hovedarket\" inden den lægger data ind, og sletter derefter alle data i \"rå\"-arket, så man er klar til et nyt spørgeskema.

Man skal vist være Excel-vant for at kunne følge forklaringen, men det virker ihvertfald efter hensigten.

Jeg har grebet det lidt anderledes an - med lidt mindre manuelt arbejde.

Mailen kopieres ind i det ene ark (her NyEmail), med det krav, at linien med email står i celle A2, hvor efter makro\'en skal startes.

Først opdeles f.eks. linie email: f@f.dk, således der står email i kolonne B og f@f.dk i kolonne C

Herefter findes næste ledige linie i det samlede ark (her SvarOversigt), så løbes kolonne B igennem i NyEmail, og de elementer som findes i den indkopierede mail smides om på den nye linie i SvarOversigten.

Underligt at den ikke virkede hos brilleaben - den kører rigtig hurtigt her hos mig - men OK.

Sub SvarTilStatistik()
Dim rCell As Range
Dim iRow As Integer, iNextRow As Integer
Dim wsSvar As Worksheet: Set wsSvar = Worksheets(\"SvarOversigt\")
Dim wsEmail As Worksheet: Set wsEmail = Worksheets(\"NyEmail\")

  If Left(wsEmail.Range(\"A2\"), 5) = \"email\" Then
    For Each rCell In wsEmail.Range(\"A2:A100\")
      If rCell = \"\" And rCell.Offset(1, 0) = \"\" And rCell.Offset(2, 0) = \"\" Then Exit For
        If rCell <> \"\" Then
          rCell.Offset(0, 1).FormulaR1C1 = \"=LEFT(RC[-1],FIND(\"\":\"\",RC[-1],1)-1)\"
          rCell.Offset(0, 2).FormulaR1C1 = _
            \"=MID(RC[-2],FIND(\"\":\"\",RC[-2],1)+2,LEN(RC[-2])-(FIND(\"\":\"\",RC[-2],1)+1))\"
          iRow = rCell.Row
        End If
    Next rCell
   
    \'Kopierer til værdier
    wsEmail.Select
    Range(\"A2:B\" & iRow).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
       
    \'Finder næste ledige svar-række
    wsSvar.Select
    Range(\"A1\").Select
    Selection.End(xlDown).Select
    iNextRow = Selection.Row + 1
    Range(\"A\" & iNextRow).Value = iNextRow - 1
   
    \'Indsætter værdier i svar-arket
    For Each rCell In wsEmail.Range(\"B2:B100\")
      If rCell = \"\" And rCell.Offset(1, 0) = \"\" And rCell.Offset(2, 0) = \"\" Then Exit For
      Select Case rCell
        Case \"email\"
          wsSvar.Range(\"B\" & iNextRow) = rCell.Offset(0, 1)
        Case \"navn\"
          wsSvar.Range(\"C\" & iNextRow) = rCell.Offset(0, 1)
        Case \"kon\"
          wsSvar.Range(\"D\" & iNextRow) = rCell.Offset(0, 1)
        Case \"alder\"
          wsSvar.Range(\"E\" & iNextRow) = rCell.Offset(0, 1)
        Case \"antal-emailadresser\"
          wsSvar.Range(\"F\" & iNextRow) = rCell.Offset(0, 1)
        Case \"irritation\"
          wsSvar.Range(\"G\" & iNextRow) = rCell.Offset(0, 1)
        Case \"primemailadress\"
          wsSvar.Range(\"H\" & iNextRow) = rCell.Offset(0, 1)
        Case \"har-domain\"
          wsSvar.Range(\"I\" & iNextRow) = rCell.Offset(0, 1)
        Case \"hvis-ja-reference\"
          wsSvar.Range(\"J\" & iNextRow) = rCell.Offset(0, 1)
        Case \"searchword1\"
          wsSvar.Range(\"K\" & iNextRow) = rCell.Offset(0, 1)
        Case \"searchword2\"
          wsSvar.Range(\"L\" & iNextRow) = rCell.Offset(0, 1)
        Case \"searchword3\"
          wsSvar.Range(\"M\" & iNextRow) = rCell.Offset(0, 1)
        Case \"searchword4\"
          wsSvar.Range(\"N\" & iNextRow) = rCell.Offset(0, 1)
        Case \"searchword5\"
          wsSvar.Range(\"O\" & iNextRow) = rCell.Offset(0, 1)
        Case \"searchword6\"
          wsSvar.Range(\"P\" & iNextRow) = rCell.Offset(0, 1)
        Case \"oprettelsespris\"
          wsSvar.Range(\"Q\" & iNextRow) = rCell.Offset(0, 1)
        Case \"afgift\"
          wsSvar.Range(\"R\" & iNextRow) = rCell.Offset(0, 1)
        Case \"inden2aar\"
          wsSvar.Range(\"S\" & iNextRow) = rCell.Offset(0, 1)
        Case \"for dyrt\"
          wsSvar.Range(\"T\" & iNextRow) = rCell.Offset(0, 1)
      End Select
    Next rCell

  End If

End Sub