| Forum: Visual Basic |
Thema:
Währungsrechner in Word ausgeben ! |
Von:
Andreas Gießner (
20.04.2003 20:23) |
Eine frage an euch?
Wie kann Ich diesen Code ändern das in Word die Umrechnung in Word ausgegeben wird.
Ich habe lblWaehrung(Währung), cboWaehrung (Euro und Taler), cmdEnde(Schließen), cmdOK(OK), fra10nerSchritt(10nerSchritt), optEins(Die ersten 10), optZwei(Die zweiten 10, optDrei(Die dritten 10) erstellt.
Sobald man im Formular (cboWaehrung)Taler auswählt und Die Ersten, Zweiten oder Die
Dritten 10 auswählen klickt, soll in Word
Die Umrechnung von Euro in Taler ausgegeben werden.
Bsp.:
Auf "Die ersten 10" klickt.
10 Euro sind 23 Taler
20 Euro sind 46 Taler
usw.
Auf "Die zweiten 10" geklickt
110 Euro sind 253 Taler
120 Euro sind 276 Taler
usw.
Auf "Die dritten 10" geklickt
210 Euro sind 483 Taler
220 Euro sind 506 Taler
usw.
Ich hab angefangen und habe Probleme.
Hier mein Code:
Option Explicit
Private Sub cmdEnde_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim intI As Integer
Dim Summe As Integer
Dim intMax As Integer
Dim strText As String
Dim strTeil1 As String
intMax = 300
strTeil1 = " sind "
Summe = 0
For intI = 300 To 10 Step -10
Summe = Summe + intI
Next intI
For intI = 10 To 300
Application.Selection.TypeText Str(300 + 10) & cboWaehrung & strText & strTeil1 & Str(intI)
Application.Selection.TypeParagraph
Next
Application.ActiveDocument.PrintOut Background:=True, Copies:=2, Range:=wdPrintRangeOfPages, Pages:="1"
End Sub
Private Sub UserForm_Initialize()
With Me.cboWaehrung
.AddItem "Euro"
.AddItem "Taler"
End With
End Sub
Ich hoffe Ihr könnt mir helfen!!!
Danke im vorraus.
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
