Formatierung von Datenübergabe in Word aus Formular

[UniqueII]

Hallo Leute,

ich habe eine Problem und hoffe Ihr könnt mir helfen.

Ich habe ein Formular mit eine Button der mir die Daten nach Word übergibt. Jetzt hab ich es geschafft dass das schon mal klappt soweit. Es wird Word geöffnet und auch alles befüllt. Ich arbeite mit Textmarken.

Jetzt aber das Problem in einigen Feldern (z.B: Me.bez_Reparaturkosten) stehen Beträge (im Formular mit der Euro-Formatierung). Ich bekomme aber statt 700,00 € nur 700 angezeigt.

Wie bekomme ich das hin dass dann auch 700,00 € steht?

Hier mal mein Code:
--------------
rivate Sub Befehl516_Click()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application")

With wdApp
.Visible = True
Set wdDoc = .Documents.Add("E:\Erste_Bezifferung\Vorlage\Erste_Bezifferung.dotx")
End With

With wdDoc
.Bookmarks("UG_Versicherung").Range = Me.Text519
.Bookmarks("Unser_Zeichen").Range = Me.Text517
.Bookmarks("Sachbearbeiter_Tele").Range = Me.Sachbearbeiter_Tele
.Bookmarks("Sachbearbeiter_Fax").Range = Me.Sachbearbeiter_Fax
.Bookmarks("Sachbearbeiter_Voll").Range = Me.Sachbearbeiter_Voll
.Bookmarks("Betreff_1").Range = Me.Text520
.Bookmarks("Betreff_2").Range = "wegen Verkehrsunfall vom " & Me.Unfalldatum
.Bookmarks("Bez_Reparatur").Range = Me.bez_Reparaturkosten
.Bookmarks("Bez_Wertminderung").Range = Me.bez_Wertminderung
.Bookmarks("Bez_Nutzungsausfall").Range = Me.bez_Ausfall_Tage & " Tag(e) á " & Me.bez_Ausfall_Satz
.Bookmarks("Bez_Mietwagenkosten").Range = Me.bez_Mietwagen
.Bookmarks("Bez_Abschleppkosten").Range = Me.bez_Abschlepp
.Bookmarks("Bez_Gutacherkosten").Range = Me.bez_Gutachterkosten
.Bookmarks("Bez_Kostenpauschale").Range = Me.bez_Gesamt
.Bookmarks("Frist_Erste_Bezifferung").Range = Me.Frist_Zahlung_Erste_Bezifferung


End With
End Sub
--------------

Wäre super wenn mir jemand weiterhelfen kann. Ist es auch möglich dass mir das Dokument gleich unter einem vorgegebenen Namen geöffnet wird?

Ich hätte nämlich ein Feld mit einer Referenznummer und ich dachte es wäre toll wenn das Dokument gleich mit der Referenznummer als Dateibezeichnung geöffnet wird und nicht als Dok1.doc oder so.

Ich danke euch schon mal jetzt :-)

Viele Grüße aus dem düsteren Augsburg

Erich

[DF6GL]

Hallo,

Crossposting ist unerwünscht!


Benutze die Format-Funktion, um den Wert formatiert zu übergeben:

.Bookmarks("Bez_Reparatur").Range = Format(Me.bez_Reparaturkosten,"0.00 €")

wenn das Dokument gleich mit der Referenznummer als Dateibezeichnung geöffnet wird und nicht als Dok1.doc

Das geht so nicht, wenn ein neues Doc auf Basis einer Vorlage neu generiert wird.

Es muss zunächst unter dem betreffenden Namen gespeichert werden:

Code [Auswählen] Erweitern

.SaveAs(2)  ........

[UniqueII]

Hallo DF6GL,

sorry wollte kein Crossposting.

Danke für dein Hilfe so hat es geklappt.

Daaaaaaanke :-)