- I -  

  Inhaltsverzeichnis  

  Eidesstattliche Erklärung  III

  Abbildungsverzeichnis  IV

1.  Einleitung  1

2.  Worksheet ( Depot )  3

2.1  Der Kauf  4

2.1.1  Abbildung Kauf  6

2.1.2  Quelltext VBA  8

2.2  Der Verkauf  12

2.2.1  Abbildung Verkauf  13

2.2.2  Quelltext VBA  14

2.3  Der Barbestand  18

2.3.1  Abbildung Barbestand  18

2.3.2  Quelltext VBA  19

2.4  Gebühren  20

2.4.1  Abbildung Gebühren  21

2.4.2  Quelltext VBA  22

2.5  Datensatz löschen  23

2.5.1  Abbildung Datensatz löschen  24

2.5.2  Quelltext VBA  25

2.6  Kursdaten generieren und löschen  28

2.6.1  Abbildung Kursdaten generieren und löschen  29

2.6.2  Quelltext VBA  30

2.7  Kursdaten sortieren  35

2.7.1  Abbildung Kursdaten sortieren  35

2.7.2  Quelltext VBA  35

3.  Worksheet ( Orderbuch )  36

3.1  Letzten Datensatz löschen  36

3.1.1  Quelltext VBA  38

3.2  Rechnungsabschluss  40

  - II -  

3.2.1  Quelltext VBA  41

4.  Worksheet ( Depotauszug )  47

4.1  Drucken  48

4.1.1  Abbildung Drucken  49

4.1.2  Quelltext VBA  50

5.  Worksheet ( Chart )  51

5.1  Auswahl Chart  51

5.1.1  Abbildung Auswahl Chart  51

5.1.2  Quelltext VBA  52

6.  Worksheet ( Konverter )  53

6.1  Abbildung Konverter  54

6.2  Quelltext VBA  55

7.  Modul 1 ( Drucken und Kursaktualisierung )  56

8.  Modul 3 ( Abruf der Videotextdaten )  57

9.  Modul 4 ( Leere Zeilen im Konverter löschen )  65

10.  Modul 5 ( Kurskontrolle )  66

11.  Modul 6 ( Chartaktualisierung )  68

12.  Modul 7 ( Speicher löschen )  71

13.  Der 24-Stunden Test  72

13.1  Abbildung Beginn Test  73

13.2  Abbildungen Ende Test  74

  Literatur- und Quellenverzeichnis  77

- III -

  - IV -  

  Abbildungsverzeichnis  

  Abbildung 1 S 2 VTPlus Scriptdatei  

  Quelle: Eigene Darstellung mit WinTV (NOVA-T)  

  Abbildung 2 S 3 Bildschirmansicht Videotext Seiten  

  Quelle: Eigene Darstellung mit WinTV (NOVA-T)  

  Abbildung 3 S 4 Worksheet Depot  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 4 S 5 Fehlermeldung  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 5 S 6 Das Kaufformular  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 6 S 7 Die Warnmeldung  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 7 S 12 Warnmeldung  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 8 S 12 Warnmeldung  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 9 S 13 Das Verkaufsformular  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 10 S 18 Formular Barbestand  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 11 S 21 Formular Gebühren  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 12 S 23 Mehrere Datensätze im Orderbuch  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 13 S 23 Ein Datensatz im Orderbuch  

  Quelle: Eigene Darstellung unter Microsoft Excel  

  Abbildung 14 S 24 Formular Datensatz löschen  

  Quelle: Eigene Darstellung unter Microsoft Excel  

- V - Abbildung 15 S. 29 Kursdaten generieren und löschen Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 16 S. 35 Kursdaten sortieren Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 17 S. 36 Arbeitsblatt „Orderbuch“ Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 18 S. 37 Warnmeldung „Keine Umsatzbuchungen“ Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 19 S. 47 Arbeitsblatt „Depotauszug“ (1.Teil) Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 20 S. 48 Arbeitsblatt „Depotauszug“ (2.Teil) Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 21 S. 49 Depotausdruck Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 22 S. 51 „Auswahl Chart“ Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 23 S. 53 „Kursaktualisierung“ Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 24 S. 54 „Konverter“ Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 25 S. 73 Situation bei Aufnahme; Sonntag 10.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 26 S. 74 Situation nach Börsentag; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 27 S.75 Chart „Adidas“; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 28 S.75 Chart „Allianz“; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 29 S.75 Chart „BASF“; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel.

- VI - Abbildung 30 S.75 Chart „Commerzbank“; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 31 S.76 Chart „Continental“; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 32 S.76 Chart „Infineon“; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel. Abbildung 33 S.76 Chart „Linde“; Montag 11.04.2005 Quelle: Eigene Darstellung unter Microsoft Excel.

- 1 -

1. Einleitung

Das Projekt „Vermögen“ umfasst insgesamt fünf Arbeitsblätter mit deren Hilfe eine Depotverwaltung durchgeführt werden kann. Um der Komplexität in einigen Bereichen vorzubeugen, soll sich das Projekt vornämlich auf Aktien und Investmentfonds beschränken. Eine automatische Aktualisierung der Kurse ist mit Hilfe einer Videotext tauglichen TV-Karte möglich. Im folgenden Projekt wurde die WinTV (NOVA-T) Karte von Hauppauge verwendet. Als Schwachstelle hat sich im folgenden Projekt die zeitliche Verzögerung der Anwendung herausgestellt, die in erster Linie durch die Vielfalt der Daten und zum anderen durch die Datenübertragung selbst hervorgerufen wird. Des weiteren kommt es unregelmäßig zu Fehlübertragungen. So kann es sein, dass zeitweise falsche Videotext Seiten übertragen werden bzw. empfangen werden. Eine zukünftige Kopplung mit einer separaten Datenbank ist in der Vorbereitung, wurde an dieser Stelle aber nicht weiter berücksichtigt. Im folgenden sollte demnach, unter Berücksichtigung der vorgenannten Problematik, darauf geachtet werden, dass nur entsprechend wenige Indizes tatsächlich aktiviert sind (vgl. Kap. 6). Ebenso hat es sich als vorteilhaft bei der Handhabung herausgestellt, den Aktualisierungsmodus nicht zu kurzfristig einzustellen. Allein aufgrund der vorhanden Videotextseiten des ZDF sind mehr als 8000 Kurse unterschiedlicher Fonds und Aktien verfügbar. Bei den Seiten der ARD werden die Kurse mit Punkten und nicht mit Kommata wie beim ZDF ausgegeben. Dies führte zu Fehlern bei den Excel-Verknüpfungen. An einer entsprechenden Konvertierungslösung muss noch gearbeitet werden. Ebenso ist die Aufnahme eines Formulars geplant, dass eine flexible Suchfunktion besitzt um ergänzende Kursinformationen in die Anwendung zu integrieren.

Um nun die Übertragung der Daten aus dem Videotext zu gewährleisten ist es zunächst unbedingt erforderlich eine Skriptdatei anzulegen. Die Skriptdatei

- 2 - entspricht dann der eigentlichen Datenquelle, aus der die benötigten Informationen entnommen werden.

Abbildung 1: VTPlus Scriptdatei

Quelle: Eigene Darstellung mit WinTV (NOVA-T).

Die Skriptdatei kann wie folgt bearbeitet werden: VTPlus SCRIPT

SET SYSTIME

SET MULTICHANNEL=YES

get 0001603 repeat=yes get 0001604 repeat=yes …

WINDOW TILE

Bei den Zahlen entspricht die erste Ziffer dem Programmkanal und die letzten drei Ziffern der Videotext Seite. Durch das setzten der „MULTICHANNEL“- Eigenschaft ist es möglich Videotext Seiten unterschiedlicher Kanäle zu nutzen. Des weiteren kann über den Befehl „WINDOW TILE“ die folgende Bildschirmansicht erreicht werden.

- 3 - Abbildung 2: Bildschirmansicht Videotext Seiten.

Quelle: Eigene Darstellung mit WinTV (NOVA-T).

Beim Verlassen der Anwendung „Vermögen“ ist es wichtig den letzten Stand stets abzuspeichern, da bestimmte Daten wie zum Beispiel der Tagesschlusskurs in separaten Dateien automatisch gespeichert wird.

2. Worksheet („Depot“)

Das Arbeitsblatt „Depot“ umfasst alle relevanten Depotdaten. Neben der Erfassung der Einzelwerte wird auch der Barbestand sowie der aktuelle Gebührensatz und der aktuelle Gewinn und Verlust dargestellt. Mit entsprechenden Textkommentaren werden die relevanten Zellen erläutert und können vom Betrachter direkt ausgewählt werden. Außerdem ist das Arbeitsblatt die Quelle für fast alle auf Excel basierenden Programmierungen. Die eigentliche Erfassung und Bearbeitung der Einzelwerte erfolgt fast ausschließlich über die angeordneten Buttons. Die Aktualisierung der Kurse kann bei Aufruf der Anwendung „Vermögen“ im Rhythmus der Aktualisierung der Videotext Seiten gewählt werden. Hierfür bei Start der Anwendung bei der Frage nach der Aktualisierung mit OK bestätigen. Alternativ kann aber auch

- 4 - ein anderer Aktualisierungsrhythmus gewählt werden durch manuelle Eingabe im Feld unterhalb des Feldes „Aktualisierungstakt“. Hierfür zu Beginn bei der Frage nach der Aktualisierung „Nein“ wählen. Diese Funktion ist insbesondere dann ratsam, wenn mit größeren Datenmengen operiert wird um zu lange Aktualisierungszeiten zu verhindern. Der Takt sollte dann auf mindestens 60 Sekunden eingestellt werden. Neben den aktuellen Kursdaten existiert auch die Möglichkeit die „intraday“ Kursveränderungen zu beobachten (G+V / Heute). Ausschlaggebend für die jeweilige Berechnung ist der letzte gespeicherte Kurs des Vortages.

Abbildung 3: Worksheet „Depot“

Quelle: Eigene Darstellung unter Microsoft Excel.

2.1 Der Kauf

Drückt man den Button „Kauf“, so erscheint das Formular „Kauf“. Hinter dem Feld „Bezeichnung“ verbirgt sich eine ComboBox die alle im Konverter aktivierten Wertpapiere auflistet. Das gesuchte Wertpapier kann entweder mit Hilfe der Scroll- Methode gesucht oder einfach per Eingabe identifiziert werden. Die Verknüpfung zur entsprechenden Videotext Seite vollzieht sich nach dem Kauf automatisch. Sowohl der Name als auch der Kurs werden mit der Videotext Seite verknüpft, damit sich gegebenenfalls Verschiebungen innerhalb der Videotextseiten nicht nur im Kurs niederschlagen sondern offensichtlich werden. Entscheidend für die Identifizierung des Wertpapiers ist

- 5 - allerdings die Wertpapierkennnummer (WPKN od. WKN). Sie dient bei Nachkäufen z.B. um den Einstiegskurs zu senken als eindeutiges Identifizierungsmerkmal damit Verwechslungen bei Vorzugs und Stammaktien vorgebeugt wird. 1 Des Weiteren muss im folgenden ausgewählt werden ob es sich um Aktien oder Fonds handelt. Bei Fonds fallen keine direkten Kaufgebühren an, die Kosten liegen dann zumeist in einem einmaligen Ausgabeaufschlag, der sich hier in Form eines niedrigeren Rücknahmekurses bzw. niedrigeren aktuellen Kurses niederschlägt. Ebenso fallen dann natürlich bei Fonds auch keine Verkaufsgebühren an! Stückzahl und Kurs sind ebenfalls zu ergänzen. Das Kaufdatum wird automatisch auf den aktuellen Tag gesetzt. Abweichungen müssen dementsprechend verändert werden. Die betroffenen Felder im Worksheet „Depot“ (Spalten: „Name“ bis „Kaufkurs“) können manuell auch direkt verändert werden. Die anderen Spalten mit Ausnahme von der Spalte „Aktuell“ sind mit Excel-Formeln versehen und sollten nicht manuell verändert werden. Außerdem erfolgt bei jedem Kauf eine Überprüfung des Barbestands. Reicht die erforderliche Deckung nicht aus, so erfolgt im Anschluss an den Kauf eine Fehlermeldung und Rückabwicklung!

Abbildung 4: Fehlermeldung

Quelle: Eigene Darstellung unter Microsoft Excel.

1

Vorzugs und Stammaktien unterscheiden sich oftmals nur anhand der letzten Ziffer der

sechsstelligen WPKN.

- 6 - Bei eventuellen Nachkäufen wird automatisch der gewogene Einstiegskurs ermittelt und ins Worksheet übertragen und die Kaufgebühr zu den bestehenden oder verbleibenden Kaufgebühren addiert. Das Kaufdatum wird immer auf den letzten Nachkauf aktualisiert um Problemen bei der steuerlichen Bindungsfrist (aktuell 1 Jahr) entgegen zu wirken. Mit „Cancel“ kann jederzeit der Kaufvorgang abgebrochen werden.

2.1.1 Abbildung „Kauf“

Abbildung 5: Das Kaufformular

Quelle: Eigene Darstellung unter Microsoft Excel.

Werden nicht alle Felder ausgefüllt, erscheint eine Warnmeldung mit der Aufforderung auch die restlichen Felder auszufüllen.

- 7 -

Abbildung 6: Die Warnmeldung

Quelle: Eigene Darstellung unter Microsoft Excel.

- 8 -

9

10

Dim dd As Single

11

Dim e As Single 'SpeicherVariablen

12

Dim f As Single 'SpeicherVariablen

13

Dim g As Variant 'Änderung 08.03.2005

14

Dim h As Variant 'Änderung 08.03.2005

15

Dim k As Variant 'gewogener Einstiegskurs

16

Dim i As Integer

17

Dim j As Integer

18

'Überprüfung ob alle Felder ausgefüllt sind ?

19

If (ComboBox1.Value = "") Or _

20

(TextBox2.Value = "") Or _

21

(TextBox3.Value = "") Or _

22

(TextBox4.Value = "") Then

23

'wenn nicht : Fehlermeldung

24

GoTo fehler

25

'andernfalls

26

Else

27

'Übertragung der Eingaben aus Form5 in freie Zeile !

28

For i = 4 To 23

29

If i = 23 Then ' Bedingung "Wenn" Tabelle voll "dann"

30

Fehlermeldung+ Abbruch

31

MsgBox " Tabelle ist voll"

32

UserForm5.Hide

33

Exit Sub

34

End If

35

'Wenn Wert bereits vorhanden !

36

For j = 4 To 23

37

If (Cells(j, 3).Text = TextBox2.Text) Then

38

'Speichervariablen - alte Werte

39

e = Cells(j, 4).Text 'Stück

40

f = Cells(j, 5).Text 'Kaufkurs

41

g = Cells(j, 6).Text 'altes KaufDatum

42

h = Cells(j, 7).Text 'KaufGebühren

43

Cells(j, 4).Value = Cells(j, 4).Value +

44

TextBox3.Value 'Neue Stückzahl

45

Cells(j, 6).Value = TextBox5.Value 'Neues Kaufdatum

- 9 -

46

k = ((e * f) + (TextBox3.Value * TextBox4.Value)) /

47

(Cells(j, 4).Value) 'gewogener Kaufkurs

48

Cells(j, 5).Value = k

49

Cells(j, 5).NumberFormat = "#,##0.00 €"

50

'Berechnung der Kaufgebühren wenn Aktie bereits

51

vorhanden

52

aa = TextBox3.Value * TextBox4.Value

53

'Wenn ausmachender Betrag > Mindesanlagesumme

54

If aa >= Cells(2, 3).Value Then

55

bb = Cells(1, 2).Value + (Cells(1, 3).Value +

56

Cells(1, 4).Value) * aa / 100

57

'If bb < Cells(2, 4).Value Then

58

'Damit Mindestgebühr auf jeden Fall

59

'bb = Cells(2, 4).Value

60

'gezahlt wird auch wenn Anlagesumme größer

61

'End If

62

'Mindestanlagesumme!

63

Cells(j, 7).Value = Cells(j, 7).Value + bb

64

End If

65

If aa < Cells(2, 3).Value Then

66

'Wenn ausmachender Betrag < Mindesanlagesumme

67

bb = Cells(2, 4).Value

68

Cells(j, 7).Value = Cells(j, 7).Value + bb

69

End If

70

If OptionButton2 = True Then

71

'Wenn Fonds dann Kaufgebühr = 0

72

bb = 0

73

Cells(j, 7).Value = ""

74

End If

75

cc = aa + bb

76

'Kaufgebühren+ ausmachender Betrag

77

dd = Cells(25, 5) - cc

78

'Barbestand wird reduziert

79

Cells(25, 5) = dd

80

'Zelle aktualisieren

81

If dd < 0 Then

82

'Warnmeldung wenn Barbestand zu klein!

83

MsgBox "Sie haben Ihren Barbestand überschritten" &

84

vbLf & _

85

"Bitte zahlen Sie zuerst was ein!"

86

'Alles wieder löschen!

87

'Speichervariablen kommen zum Einsatz

88

Cells(j, 4).Value = e

89

Cells(j, 5).Value = f

90

Cells(j, 6).Value = g

91

Cells(j, 7).Value = h

- 10 -

92

Cells(25, 5) = Cells(25, 5) + cc

93

UserForm5.Hide

94

End If

95

UserForm5.Hide

96

Exit Sub

97

Else

98

End If

99

Next j

' Wenn die Aktie neu ist dann geht's hier weiter..... 'Übertragung der Eingaben aus Form5 in freie Zeile ! If (Cells(i, 2).Text = "") And _ (Cells(i, 3).Value = "") And _ (Cells(i, 4).Value = "") And _ (Cells(i, 5).Value = "") And _ (Cells(i, 6).Value = "") Then

ComboBox1.BoundColumn = 3 Cells(i, 2).Value = "=" & ComboBox1.Value 'Übertragung Formel(Name der Aktie) in Zelle 25.03.05 ComboBox1.BoundColumn = 4 Cells(i, 9).Value = "=" & ComboBox1.Value 'Übertragung Formel(Kurs der Aktie) in Zelle

Cells(i, 3).Value = TextBox2.Value Cells(i, 4).Value = TextBox3.Value Cells(i, 5).Value = TextBox4.Value Cells(i, 5).NumberFormat = "#,##0.00 €" Cells(i, 6).Value = TextBox5.Value 'Berechnung der Kaufgebühren a = TextBox3.Value * TextBox4.Value 'Wenn ausmachender Betrag > Mindesanlagesumme If a >= Cells(2, 3).Value Then

B = Cells(1, 2).Value + (Cells(1, 3).Value + Cells(1,

4).Value) * a / 100 'If b < Cells(2, 4).Value Then 'Damit Mindestgebühr auf jeden Fall 'b = Cells(2, 4).Value 'gezahlt wird auch wenn Anlagesumme größer

'Mindestanlagesumme!

Cells(i, 7).Value = B

If a < Cells(2, 3).Value Then 'Wenn ausmachender Betrag < Mindesanlagesumme

B = Cells(2, 4).Value

137

Cells(i, 7).Value = B