Hi ich habe folgendes Problem ich soll fürs studium ein Programm Schreiben was nach eingabe des wechselkurses eine einfache liste in word erstellt von 10 - 300 € in 10er schritten so das umsetzen der rechnung usw. war nicht das problem das problem ist das ich leider keinen ansatz finde um die ausgabe der einzelnen 30 werte in word zumachen.
Vileicht kann mir ja von euch jemand helfen..
währe echt super.
Ich poste mal meinen Code hier damit ihr auch mal seht was ich meine.
mfg Marko
Dim dblEingabe As Double
Dim intErgebnis As Integer
Dim varAusgabe As Variant
dblEingabe = txtEingabe.Value
Do
intI = intI + 10
intErgebnis = intI * dblEingabe
Loop Until intI = 300
Documents.Open FileName:="c:\NewDocument.doc"
With Me
intI = intI
intErgebnis = intErgebnis
With Selection
For varAusgabe = 10 To 300 Step 10
.TypeText varAusgabe & " Euro"
.TypeText " sind"
.TypeText intErgebnis
Next
With ActiveDocument
.PrintOut
.Close
End With
Exit Sub
Wert_Fehler:
MsgBox "Bitte Überprüfen Sie Ihre Angaben!!" & vbCr & "Haben Sie wirklich ein Zahl Eingegeben???" & vbCr & Err.Description, vbCritical, "Fehler:" & CStr(Err.Number)
End With
End With
End Sub
