Aktier med opdaterede kurser

Kan du bruge noget her:
http://www.eksperten.dk/spm/492519

Jeg har set på spørgsmålet, men kan ikke rigtigt bruge indholdet.

Bak skriver noget om, at det er nemmere med excel 2002, men ikke noget om, hvad der gør det nemmere.

OK

Har du ikke den mulighed i din webbank?

Ikke det jeg ved af, men vil undersøge det nærmere. Det undre mig bare, hvis ikke der er en mulighed for via børsens kurslister at hente enkeltkurser.

Hvad med http://www.eksperten.dk/spm/803627 - koden kan herefter tilpasses

Du kunne evt importere alle oplysninger
derefter i et andet ark hente relevante oplysninger via LOPSLAG
Når du har sat egenskaber for dataområde kan arket skjules

Hej Supertekst - det ser ud til at din kode kan bruges. Kan du knytte nogle kommentarer til linien med ulr'en? Jeg vil gerne kunne ændre den, således at jeg kan vælge mellem menupunkterne til højre (danske aktier, investeringsforeninger osv.)

Vil se på det og vende tilbage

Hvilke kurser er du interessert i og hvor ofte skal de være opdateret?

Jeg bruger query til at hente opdaterede kurser ind en gang om dagen til næste dags bogføring..

Jeg er kun interesseret i at få kurserne en gang om dagen. Det kunnne f.eks. ske via en knap. Jeg har en blandet sammensætning af aktier og obligationer, dels i investeringsforeninger dels i enkeltvirksomhedder.

Jeg vil gøre det at jeg henter alle dataene over via en web query. den kan også sættes til at opdater automatisk.

I Excel vælger du DATA - importere ekstern data.

Så kommer der et vindue frem hvor i du skriver adressen på den side hvor du henter dine oplysninger fra. Det kunne f.eks være fra sydbank.

I venstre side ser du nogle små gule pile. De angiver hvilke områder på siden du ønsker at hente over i excel. Vælg du den pile ud for kursoplysningerne vil du se at pilen herefter bliver grøn.

Tryk importere i bunden og dataene ryger over i excel.

For hvert ark placere du en webquery - en med aktier, obligationer osv. 

Adresser til:

Ivesteringsbeviser:
http://www.sydbank.dk/investering/kurser/aktier/aktuelle

Aktier:
http://www.sydbank.dk/investering/kurser/aktier/aktuelle

Obligationer:
http://www.sydbank.dk/investering/kurser/obligationer/aktuelle

Næste gang du skal køre forespørgelsen kan du se der i excel er kommet nogle nye værktøjsknapper. Der er et rødt udråbstegn. Klikker du på den opdatere den kurserne..

Det er den hurtige måde at hente data på..

Hvad siger du til den løsning?

Det er jo nemmere at hente alle oplysninger og så hverefter lave en lookup på de aktier og obligationer mv. du har i din portefølje..

Opdateringen af arkene kan også laves med en macro eller køre automatisk..

Hej igen. Jeg er lidt presset arbejdsmæssigt, så det kniber lidt med tiden. Jeg vil dog gerne at opdateringen sker via en makro.

Jeg tror nok jeg er på sporet af det du efterlyser - jeg vil arbejde videre med det i ledige stunder.

Basis-kode, der kan danne grundlag for udtræk at de "interessante papirer":

'Koden indsættes i ThisWorkbook:

Const aktier = "(cc (level1 1) (level3 5))"
Const invest = "(cc (level1 9) (level3 5))"
Const obligat = "(cc (level1 6) (level3 1))"
Private Sub workbook_activate()
    ActiveWorkbook.Sheets(1).Activate
    Range("A1:G1000").Select
    Selection.Clear
   
    hentKurser aktier, "A"
    hentKurser invest, "I"
    hentKurser obligat, "Q"
       
    ActiveSheet.Columns.AutoFit
End Sub
Private Sub hentKurser(del, kol)
   
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://trader.borsen.dk/borsendk/site/miniweb/miniweb.page?magic=" & del _
        , Destination:=Range("$" & kol + "$1"))
   
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Jeg har lavet et eksempel hvor opdatering sker når du åbner filen..

Kan hentes her:
http://www.gratisupload.dk/show.php?fileId=6067

Du skal bare indsætte aktivnavnet evt. kopiere navnet fra en af de tre sider, da der ikke skal meget til før en ændring ikke kan slåes op via en lookup.

Derefter vælger du 1 for aktier, 2 for oblgationer og 3 for investeringsforeninger.

Så kan du få total forventede afkast for aktier, obligationer og for investeringsforeninger. Og idet du sælger kan de indsætte en salgskurs. Dog skal du lige lave beregningen, da denne ikke er lavet...

Du kan bare vælge subtotaler fra, da jeg har indsat kode for opslag indtil række 50. Opslag er gemt ved betingetformatering hvis tallet er lig nul mellem F2 og F50..

De kan også placeres i et og samme ark. Hvis det ønskes..

Her er en med macro...

ctrl + q for opdatering..

http://www.gratisupload.dk/show.php?fileId=6070

Det ser rigtig godt ud, især kommentar 12:40:31. :0). Jeg vil se frem til at kunne bruge noget tid her i weekenden på at gennemarbejde det. Så dette skal blot betragtes som en foreløbig kommentar.

Hej Hubertus,

jeg opdagede den ikke opdaterede alle kurser.

http://www.gratisupload.dk/show.php?fileId=6102

Denne skulle gerne virke efter planen.

Jeg får denne fejl #I/T  flere gange, når jeg sætter mine egne papirer ind i porteføljelisten.
Det sker hvis jeg indsætter: Nordea Invest Japan BUIA 
Har du et bud på årsagen?

Prøv find den omme i listen og kopiere den ved at vælge kopiere specielt og så vælge kun værdi..

Det skal nemlig stå helt præcist som i listen. Hvis du går om i listen vil og vælger en aktie og klikker på den. Så vil du opdage der er et tomt mellembagefter. Det kan godt være det du lige mangler..

Det tomme mellemrum kan du også finde bag de eksempler jeg har sat ind på den første side..

Hej olehen - jeg har prøvet at tilføje mine papirer til arket 11:04. Det ser ud til, at ikke alle kurser for f.eks. nordeas invest hentes. Tilsvarende kan jeg ikke finde alle mine obligationer. F.eks. mangler jeg 4,549 Nykredit 40D 2001. Hvordan kan det være?

Supertekst - Når jeg prøver din kode, så får jeg kun første side af investeringsforeningerne. Hvordan får jeg din kode til at hente alle siderne?

Den der nykredit 40D 2001 der er da udløbet.. Eller mener du 2011??

Hvilken Nordea Invest mangler du??

Disse er på listen..

Nordea Invest Aktier BUA
Nordea Invest Aktier II
Nordea Invest Aktiv Rente
Nordea Invest Danmark BDUA
Nordea Invest Direct
Nordea Invest DK aktier
Nordea Invest Emerging Markets
Nordea Invest Erhverv Aktiv...
Nordea Invest Erhverv Stabi...
Nordea Invest Erhverv Stabi...
Nordea Invest Eurobonds
Nordea Invest Europa BUIA
Nordea Invest Fjernøsten BUIA
Nordea Invest Formueforvalt...
Nordea Invest Global Vaeskt
Investforening
Nordea Invest Global Value ...
Nordea Invest Globale Oblig...
Nordea Invest Health Care
Nordea Invest HojrenteLande
Nordea Invest IT
Nordea Invest Japan BUIA
Nordea Invest Korte Obligat...
Nordea Invest Lange Obligat...
Nordea Invest Latinamerika
Nordea Invest Lav Kuponrente
Nordea Invest Mellemlange O...
Nordea Invest Norden
Nordea Invest Nordic Small Cap
Nordea Invest Osteuropa
Nordea Invest Placeringsfor...
Nordea Invest Sp Danske Ak ...
Nordea Invest Sp Europ Hi Yi B
Nordea Invest Special Europ...
Nordea Invest Special Formu...
Nordea Invest Special Priva...
Nordea Invest Stabil Balanc...
Nordea Invest Stabile Aktier
Nordea Invest Stabile Aktie...
Nordea Invest Stratega Hoj
Nordea Invest Stratega Lav
Nordea Invest Stratega Middel
Nordea Invest USA BUIA
Nordea Invest Verden BUIA
Nordea InvestHigh Yield Bonds

Det er ikke investeringsforeningerne fra Nordea der mangler, der er dags kursen på dem. Ja, det var en skrivefejl med 2001, det er 2011. men det var blot et eksempel.
Jeg mangler også:
0.00% exportfinans valutaobl eurtry 2009
0.00% kommunekredit jap. ejd. 11 sup. 2011
9.41% HNG BRL 2009
7,81% Sek MXN/DKK 07
6.00% statslå INK st.lån 09
2.00% Skibskr Skibe ink ST 13
m.fl.
Det er altså kurser på enkelt obligationer, som jeg ikke kan finde i kurslisten.

Listen er hentet inde fra børsen, samme sted som supertekst vil hente den..

Skal du have kursen på alle investeringsforeninger fra Nordea Invest eller hvilken en søger du efter?  Hvis der ikke er kurs er det fordi den ikke blev handlet i fredags = ingen dagskurs..

Den er kun sat til at hente de toneangivende obligationer.. Hvilken gruppe tilhører dine obligationer?

Det er nok ikke alle obligationer, investeringsbeviser mv. de henter ind..

Hvem handler du igennem? Jeg ved ikke med dig, men jeg kan på mit depot se dagskurser mv.

Så ville det nemmest være at hente..

Hvilke investeringsforeninger mangler du?

olehen - jeg handler primært gennem Nordea. Skal jeg hente kursen hos dem, så skal jeg være logget på. Jeg har prøvet at hente kurserne fra dem, men kan ikke få lov at afmærke kurserne.

Supertekst - jeg mangler ingen investeringsforeninger, jeg mangler blot kurserne på nogle af dem.

Hvis ikke der er en dagskurs, er det så muligt at få den sidst handlede kurs? i såfald skal den være afmærket f.eks. med en anden cellebaggrund.

Har du prøvet med en forespørgsel som dem jeg laver?

Jeg har ændrede side til obligationerne og investeringsbeviserne så de hentes fra Københavns fondsbørs. Aktierne hentes stadig fra Børsen..

http://www.gratisupload.dk/show.php?fileId=6196

Hvis du ønsker at hente andre obligationer kan du bare tilføje dem på listen.. Jeg har lavet en lang liste, så du skal bare indsætte nogle nye rækker før investeringsbeviserne. Da alle obligationer har samme format udvider du bare opslagsformelen med det nye område

olehen - det ser rigtigt godt ud. Der er noget at arbejde videre med. Hvad er årsagen til, at lægger kurslisten i et ark og i forlængelse af hinanden. Det virkede mere overskueligt, da de var delt på 3 worksheets

Det var vlookup'en.. Der kunne godt være tre lister eller 3 ark. Aktier, obligationer og invest. foreninger.

Men det er helt op til dig.

Opslagene skal bare tilpasse, så køre det..

For obligationerne skal der laves flere opslag da det ikke er muligt at hente alle på en gang. Da de er ens bygget op er det nemmeste at de står i forlængelse af hinanden..

Men jo - jeg ville nok foretrække tre ark. Så kunne du lave opslag på hele ark'et. Så slipper du for at tænke på om alle oplysningerne kommer med.

Når man laver opslag indtil OMX så kommer der en hel del tomme række med. Det kan godt være nødvendigt at slette dem for at få plads til flere kolonner.. Det vil du opdage hvis du placere en forespørgsel til venstre for nogle data.

Hejsa - spørgsmålet lever endnu, men grundet arbejdspres har jeg ikke haft så meget tid til at arbejde med sagen. Jeg er dog kommet så langt, at jeg tror, at jeg kan få det til at fungere efter hensigten. Jeg vil derfor gerne sige tak for hjælpen. Olehen lægger du et svar? så vil der fluks være nogle point på vej. ;O))

Jeg tror også det nok skal komme til at fungere.. Det er bare et spørgsmål om at tilpasse det lidt i kanterne..

Så her er et svar til dig... Mvh Ole