Beiträge von Maximus

Guten Morgen Jan,

das wäre lieb von dir, anschauen tät ich mir das gern einmal

Hallo,

ich habe jetzt dank ralf, witchdream und investor alle Profilseiten automatisch gescannt, auch die von value, nicht das wer doppelte Arbeit macht.
Norbert hat sie und wird die aktualisierte Version bald online stellen. Für die anderen Seiten bastele ich noch an einer automatischen Lösung.

Hauptsache es wird keine Premium Content Geschichte!

Hallo Jan,

also ich stehe deinem Newsletter nicht abgeneigt gegenüber. Natürlich halte ich eine ausschließliche Insiderstrategie für Quatsch, aber vielleicht stößt man so auf die ein oder andere interessante Investmentidee!

Ach Leuts, ich halte diese ganze besser/schlechter Diskussion ehrlich gesagt für unsinnig und übertrieben. Was sagt schon ein Zeitraum von ein paar Monaten aus? Nichts!

Ganz unschuldig ist Herr Fugger natürlich auch nicht an solchen Diskussionen, immerhin hat seine völlig überhebliche 90%-Aussage erst den Nährboden dafür geliefert. Und unnötig war sie sowieso, an seiner Kompetenz haben die meisten ja eh nicht gezweifelt! Tja was solls, er hats bestimmt fünftausend mal bereut, sich mit so einer Äußerung so unter Druck setzen zu lassen.
Und unter Druck setzen lassen hat er sich; meiner Meinung nach nicht zu wenig. Anders kann ich mir z.B. nicht erklären wie man nach ein paar Monaten seine SL-Strategie komplett über den Haufen wirft nur weil sie in einer Periode mal nicht funktioniert hat? (Gerade wenn man jahrzehntelange Erfahrung mitbringt und erfolgreich war sollte er doch besser als wie alle wissen, ob SL nun sinnvoll sind oder nicht. Sind sies nicht, warum verwenden)

Ich war neulich auf der AAC Seite und dachte ich spinne. Ich bin, und das meine ich absolut ehrlich!, fast umgefallen:

"In 19 von 20 Jahren ist dies auch der Fall - aber 2002, das schlechteste Börsenjahr der Nachkriegsgeschichte, war eben in vielerlei Hinsicht eine Ausnahme."

Herr Fugger ändert also seine langfristige Strategie, die nachweislich in 19 von 20 Jahren erfolgreich ist, weil sie 2002 mal nicht funktionierte??? Für mich gibt es nur 3 Erklärungen:

a) Horst Fugger glaubt an eine völlig "neue Börsenwelt" - schon allein durch die Antizyklisch-Investieren-Übersetzung und seine Erfahrung wird er dies ganz sicher nicht tun!

b) er macht einen der gefährlichsten Anfängerfehler, seine Strategien ständig den jüngsten Entwicklungen umzustellen. Nein, ich denke er ist klüger sein als seine Strategie ständig wieder über den Haufen zu werfen!

c) Druck durch Mails / Forenbeiträge. Ich denke da ist der Haupt-Grund zu suchen! Nachvollziehbar, dass man für fremde Gelder ein stärkeres Verantwortungsgefühl entwickelt und kurzzeitige Verluste und die darauf folgende Kritik gewaltigen Druck ausüben können. Kaum ein Fondsmanager kann sich dem Widersetzen, HF könnte ein ähnliches Problem haben!

Deshalb kann ich auch die Forenabschaltung verstehen (mal abgesehen von der schlechten Werbung für den AAC bei derart vielen kritischen Beiträgen)

Meine Empfehlung für HF: nicht beirren lassen und dein Ding so weiter machen wie du es für richtig hältst!

Meine Empfehlung für Gesellschafter: Lasst ihn euer Geld verwalten, außert konstruktive Kritik wenn nötig, aber setzt ihn verdammt nochmal nicht so stark unter Druck dass er eure Gelder vor den Baum fährt!

Meine Empfehlung für AAC - Hasser: einfach so weitermachen wie bisher, Strategie funktioniert offensichtlich gut

Ich finde es mangelhaft, dass die Charts keinen Vergleichsindex beinhalten. So sieht doch kein Mensch wie sich das Depot relativ zu den anderen Märkten entwickelt hat!
Vielleicht geht es ja nur mir so, aber ich finde das überaus unprofessionell (ich möchte das als konstruktive Kritik für Herrn Fugger verstehen). Über die Motive kann ich nur spekulieren!

Deren forum ist schon seit Stunden offline? Ich wollte gerade rüberlunzen, doch alles ist abgeschaltet.
Ist vielleicht auch der Virus drübergerollert wie über mein System

schau mal unter http://www.corporateinformation.com/ctryind.asp?ctry_cod=280

Dort ist eine Auswahlbox für alle deutsche Unternehmen. Und wie vermutet, erfolgt die Verlinkung über dir CUISPs. Du musst nur den Quelltext öffnen und extrahieren.

Die WKNs bekomme ich leider nicht hin, aber vielleicht fällt mir da nochwas ein!

Könnte man die verknüpfung nicht über die 2002er Sales machen? zusätzlich vielleicht ticker o.a.?

Bei unserer Teamarbeit scheint großes zu entstehen

schaut mal was ich hier habe: alle CUSIPs für Deutschland ;D

Das sind alle in WISI verfügbaren Unternehmen (933 Stück) ;D

Außerdem kann man die CUSIPs für alle anderen Länder ebensoleicht beschaffen. Wenn wir jetzt noch das Skript auf die Research / ... Seiten erweitern, braucht keiner mehr von Hand zu tippen!

Hallo ralf,

ich könnte dir um den Hals fallen! Auf diese Idee ist man im Excelforum nicht gekommen, dort habe ich heute morgen mal nachgefragt nachdem ich meinen Computer fast verschrottet hätte

http://www.ms-office-forum.net…7c86f0eb8e&threadid=99106

Hallo Ralf.

Ich habe es vorhin getestet, die Profilseiten (gilt nicht für z.B. research) kann ich mit meinem Noname-Account unendlich lange testen
Allerdings ändern die derzeit noch an der Tabellenstruktur, so dass mein Makro nicht mehr 100%ig läuft.

Für das Datum habe ich eine Idee:

Könnte man nicht nach

Worksheets.Add After:=Worksheets(Worksheets.Count)

einen Befehl einsetzen, der die Standard-Formateinstellungen für alle Zellen auf Zahlen setzt? Ich denke die Standard "Standard"-Einstellung ist das Problem.

Dummerweise geht das Makro nicht für die research seiten, da diese nicht immer gleich aussehen!

Noch einen Fehler gibt es: Manche Daten werden als Datum übernommen. Ist ein komischer Fehler! Hat dazu jemand eine Lösung oder weiss wie man diese Zellenformatierung deaktiviert?

nochmal vielen Dank Ralf!

Hallo!

Ich habe gerade Ralfs Makro getestet und es läuft super. Irgendwie gibt es auch keine Seitenbeschränkung mehr für die Company Profile Seite

Ich habe es etwas erweitert, so dass jetzt alle wichtigen Daten aus der ProfilSeite herausgezogen werden

Sub wisi()
Dim wks As Worksheet
Dim sQuery As String
Dim zeile, startzeile, cus_spalte As Integer

'On Error GoTo errorhandler
Application.ScreenUpdating = False

'Vorbelegungen
Set wks = ActiveWorkbook.Sheets("Datenbank")
startzeile = 35 'Erste Datenzeile in der Datenbank
cus_spalte = 3 'Spalte mit der CUSIP, über die bei WISI gesucht wird
hi_spalte = 4 'Spalte mit Hauptindustrie in der Datenbank
si_spalte = 5 'Spalte mit Subindustrie in der Datenbank
aa_spalte = 6 'Spalte mit Aktienanzahl in der Datenbank
um_spalte = 7 'Spalte mit Umsatz in der Datenbank
div_spalte = 8
kgv_spalte = 9
kuv_spalte = 10
kbv_spalte = 11
kurs_spalte = 12
shares_spalte = 13
name_spalte = 1

'Schleife über alle Wertpapiere in der Datenbank
zeile = startzeile
Do While wks.Cells(zeile, 3).Value <> ""
If wks.Cells(zeile, cus_spalte).Value <> "" Then
'Query definieren
sQuery = "http://corporateinformation.com/corpinfo.asp?CUSIP=" & wks.Cells(zeile, cus_spalte).Value
'Neues Tabellenblatt einfügen
Worksheets.Add After:=Worksheets(Worksheets.Count)
'Wisi-Seite in das Tabellenblatt kopieren
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & sQuery, _
Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
'Hauptindustrie auslesen
wks.Cells(zeile, hi_spalte).Value = ActiveSheet.Range("H12").Value
'Subindustrie auslesen
wks.Cells(zeile, si_spalte).Value = ActiveSheet.Range("H15").Value
'Aktienanzahl auslesen
wks.Cells(zeile, aa_spalte).Value = ActiveSheet.Range("H39").Value
'Umsatz auslesen
wks.Cells(zeile, um_spalte).Value = ActiveSheet.Range("H9").Value
wks.Cells(zeile, div_spalte).Value = ActiveSheet.Range("E30").Value
wks.Cells(zeile, kgv_spalte).Value = ActiveSheet.Range("D32").Value
wks.Cells(zeile, kuv_spalte).Value = ActiveSheet.Range("D33").Value
wks.Cells(zeile, kbv_spalte).Value = ActiveSheet.Range("D34").Value
wks.Cells(zeile, kurs_spalte).Value = ActiveSheet.Range("B14").Value
wks.Cells(zeile, name_spalte).Value = ActiveSheet.Range("B4").Value
wks.Cells(zeile, name_spalte).Value = ActiveSheet.Range("H39").Value
'Tabellenblatt mit Wisi-Seite löschen
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
zeile = zeile + 1
Loop

wks.Activate
Application.ScreenUpdating = True
Exit Sub

errorhandler:
MsgBox "Es ist ein Fehler aufgetreten: " & Err.Number
'Application.DisplayAlerts = False
'Application.DisplayAlerts = True
wks.Activate
Application.ScreenUpdating = True

End Sub

Hallo

ich habe von Norbert die Mail mit dem Link zur Exeltabelle bekommen und kann jetzt beginnen. Da wir jedoch Schulden und EBITDA mit einbeziehen, kann ich mit einem Account nur je ein Unternehmen scannen. Bei meinen 10 WISI Accounts macht das nur 10 Unternehmen pro Tag

Falls einer von euch also mit mir teilen mag, ich zahle gern einen gewissen Beitrag und kann mich auch nach exotischen Zeiten richten.

Arbeitswütiger Maximus

Hallo witchdream

Von mir aus kann der Spass beginnen! Und teilen würde ich mit dir auch ;-)!

ich mache definitiv mit, solange die Kosten nicht 62,50$ übersteigen, also noch 2 weitere zusammenkommen.
Ich bin mit einer Zeiteinteilung aber auch einer Tageseinteilung einverstanden. Am liebsten wäre mir ein Zeitraum am Abend. Vielleicht bist du ja auf Arbeit und wir kämen uns so sowieso nicht ins Gehege.

witchdream

Respekt auch von mir!! Möchte auch loslegen, aber zuvor sollten wir doch klären, wer was macht? 59 Unternehmen müsste jeder von uns sechs abchecken. Wir könnten die Ränge als laufende Nummer nehmen. Z.B.

Value 1-59
Witchdream 60 - 118
Investor 119 - 177
Ralf 178 - 236
Sam 237 - 295
Maximus 296 - 354

Dann müssen wir auch noch genau klären, welche Daten wir von wo nehmen. Nicht das wir Cash Flow von 6 verschiedenen Quellen nehmen, dann haben wir ja keine Aussagekraft mehr.

;D

ralf

ich habe das Datumsproblem gelöst. Du musst beim Importieren die Zellenformate verändern. Und zwar "." statt "," als Komma einstellen, dann funktioniert es.

Kannst du nicht einfach die ganze Exel-Datei hierreinstellen? Notfalls gepackt?