Zum Inhalt springen

Empfohlene Beiträge

Geschrieben

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

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...