Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Währung beim senden der Daten Word mitgeben
zurück: schwer, Formeln weiter: import mehrzeiliger Datensätze Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
etienne
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. März 2009, 15:00
Rufname:
Wohnort: Frauenfeld

Währung beim senden der Daten Word mitgeben - Währung beim senden der Daten Word mitgeben

Nach oben
       Version: Office 2003

Hallo zusammen

Ich möchte beim Senden von Daten an Word bei den Beträgen die Währung mit geben.
Der Code ist wie folgt:
Code:
    SetBookmark worddoc, "Anrede", Me!Pat_Anrede
    SetBookmark worddoc, "vorname", Me!Pat_Vorname
    SetBookmark worddoc, "Name", Me!Pat_Name
    SetBookmark worddoc, "Strasse", Me!Pat_Strasse
    SetBookmark worddoc, "PLZ", Me!Pat_Postleitzahl
    SetBookmark worddoc, "Ort", Me!Pat_Ort
    SetBookmark worddoc, "datum", Me!Datum
    SetBookmark worddoc, "Total", Me!Text19411 = Format(Me!Textfeld, _
                                                        "#,##0.00 CHF")
                   'Feld wird nicht gefunden <== #############################
    Set rs = Me!Erfasst.Form.RecordsetClone
    If Not (rs.BOF And rs.EOF) Then
        rs.MoveFirst
        lngZeile = 2
        While Not rs.EOF
            With .Tables(1)
                If Nz(rs!retourniert, 0) <> 0 Then
                    .Rows.Add
                    .Cell(lngZeile, 1).Range = Nz(rs!retourniert, "")
                    .Cell(lngZeile, 2).Range = Nz(rs!Pharmacode, "")
                    .Cell(lngZeile, 3).Range = Nz(rs!Artikelbezeichnung, "")
Das Problem liegt bei:
Code:
    SetBookmark worddoc, "Total", Me!Text19411 = Format(Me!Textfeld, _
                                                        "#,##0.00 CHF")
dort habe ich keine Ahnung wie das schreiben muss. Die Währung müsste auch angegeben werden bei
Code:
                    .Cell(lngZeile, 4).Range = Nz(rs!Positonstotal, "")
Könnt ihr mir bitte weiterhelfen?
Vielen Dank für Euren Einsatz und Bemühungen.
mfg
etienne
Gast



Verfasst am:
08. März 2009, 16:36
Rufname:


AW: Währung beim senden der Daten Word mitgeben - AW: Währung beim senden der Daten Word mitgeben

Nach oben
       Version: Office 2003

Hallo,
ist halt eine komische Konstruktion, die du da gebaut hast Wink
UNGETESTET
Code:
    SetBookmark worddoc, "Total", Format(Me!NameDeinesWährungsfeldes, _
                                         "#,##0.00 CHF")
Btw:
Prinzipiell besteht auch die Möglichkeit, den Wert zu übergeben (anstatt des Textes, den Format erzeugt), dann musst du in Word die Zahl als Währung formatieren.

Gruß Mike
etienne
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. März 2009, 17:37
Rufname:
Wohnort: Frauenfeld

AW: Währung beim senden der Daten Word mitgeben - AW: Währung beim senden der Daten Word mitgeben

Nach oben
       Version: Office 2003

Hallo Mike

Genial! Es funktioniert. Super!
Wie kann ich das machen bei
Code:
                    ..Cell(lngZeile, 4).Range = Nz(rs!Positonstotal, "")
Vielen Dank für Deinen Einsatz.

gruss
Etienne
Gast



Verfasst am:
08. März 2009, 17:46
Rufname:

AW: Währung beim senden der Daten Word mitgeben - AW: Währung beim senden der Daten Word mitgeben

Nach oben
       Version: Office 2003

Hallo,
genau so Wink:
Code:
                    .Cell(lngZeile, 4).Range = Format(rs!Positonstotal, _
                                                      "#,##0.00 CHF")

gruß Mike
etienne
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. März 2009, 22:57
Rufname:
Wohnort: Frauenfeld

AW: Währung beim senden der Daten Word mitgeben - AW: Währung beim senden der Daten Word mitgeben

Nach oben
       Version: Office 2003

etienne am 09. März 2009 um 18:40 hat folgendes geschrieben:
Hallo Mike

Super! Auch das funktioniert! Vielen Dank für Deinen Einsatz.
Gruss
Etienne

Hallo zusammen

Ich habe versucht bei
Code:
    SetBookmark worddoc, "Total", Me!Text19411 = Format(Me!Textfeld, _
                                                        "#,##0.00 CHF")
die Währung vor die Zahl zu nehmen. Sprich z.B. CHF 2.55 .
Verwendete wurde:
Code:
Format(Me!Text19411, "CHF #,##0.00")
das Ergebnis in Word war:
08.04.19000F #,##0.00.

Komischer weise geht es wenn ich "Fr" benutze statt CHF.

Könnt Ihr mir bitte weiterhelfen?
Vielen Dank.
mfg
Etienne
Gast



Verfasst am:
19. März 2009, 23:13
Rufname:

AW: Währung beim senden der Daten Word mitgeben - AW: Währung beim senden der Daten Word mitgeben

Nach oben
       Version: Office 2003

Hallo,
das solltest du einfach zerlegen:
Code:
                .Cell(lngZeile, 4).Range = "CHF  " & Format(Me!Text19411, _
                                                            "#,##0.00")

Gruß Mike
etienne
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. März 2009, 20:51
Rufname:
Wohnort: Frauenfeld


AW: Währung beim senden der Daten Word mitgeben - AW: Währung beim senden der Daten Word mitgeben

Nach oben
       Version: Office 2003

Super!
Vielen Dank.
Hat funktioniert!
Gruss
Etienne
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: Daten abfragen nach Buchstabenreihenfolge 2 wrengers 699 07. März 2005, 22:59
Gast Daten abfragen nach Buchstabenreihenfolge
Keine neuen Beiträge Access Tabellen & Abfragen: Datanorm Daten erzeugen 2 HH Hans 1531 08. Feb 2005, 10:49
HH Hans Datanorm Daten erzeugen
Keine neuen Beiträge Access Tabellen & Abfragen: Vergleich neue Daten mit alten Daten! 28 Sebowsky 3164 29. Jan 2005, 11:38
Sebowsky Vergleich neue Daten mit alten Daten!
Keine neuen Beiträge Access Tabellen & Abfragen: Summieren von gruppierten Daten 3 Thomas Theurer 1202 27. Jan 2005, 17:36
mapet Summieren von gruppierten Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Abfrage automatisch in Tabelle aktualisieren 4 Christian22 4080 15. Jan 2005, 13:13
Christian22 Daten aus Abfrage automatisch in Tabelle aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeigen der Daten einer vorhandenen Tabelle in einer Abfrag 6 brauzer 830 02. Dez 2004, 13:28
brauzer Anzeigen der Daten einer vorhandenen Tabelle in einer Abfrag
Keine neuen Beiträge Access Tabellen & Abfragen: Importieren von bestimmten Excel Daten 63 umbroboy 11978 25. Nov 2004, 12:07
umbroboy Importieren von bestimmten Excel Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeige aller Daten älter als x Tage 2 abu 819 16. Nov 2004, 13:07
abu Anzeige aller Daten älter als x Tage
Keine neuen Beiträge Access Tabellen & Abfragen: Komment. u Daten in zelle schreiben, Zellenausrichtung festl 2 k@lle 816 06. Okt 2004, 11:49
k@lle Komment. u Daten in zelle schreiben, Zellenausrichtung festl
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Monate zwischen 2 Daten 2 master_tj 1837 22. Jul 2004, 13:17
master_tj Anzahl der Monate zwischen 2 Daten
Keine neuen Beiträge Access Tabellen & Abfragen: logische Zuordnung der Daten / Beziehung 0 DEAthWiNg 991 14. Jul 2004, 22:07
DEAthWiNg logische Zuordnung der Daten / Beziehung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps