Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen an Textmarke in Word übergeben

Forumthread: Zahlen an Textmarke in Word übergeben

Zahlen an Textmarke in Word übergeben
Werne
Hallo
Komme mit meinem Problem einfach nicht weiter...
Mit folgendem Code übergebe ich Zahlen an Word:
Doc.Bookmarks("Honorargesamt").Range.Text = Range("B18").Value
Wenn es sich um ganze Zahlen (ohne Nachkommastellen) handelt soll in Word immer ,00 ankommen.
Also in Excel gebe ich z. B. 2000 ein und in Word soll "2000,00 €" ankommen
Das Feld in Excel habe ich als Betragsfeld mit 2 Kommastellen formatiert.
Geht das?
Gruß und Danke vorab.
Werner
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
=Format(Range("B18").Value,"#,##0.00 €") oT
06.02.2012 15:21:20
JoWE
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zahlen an Textmarke in Word übergeben

Schritt-für-Schritt-Anleitung

  1. Excel vorbereiten: Stelle sicher, dass das Feld in Excel als Betragsfeld mit zwei Nachkommastellen formatiert ist. Gehe dazu zu Start > Zahl und wähle das entsprechende Format.

  2. Textmarke in Word definieren: Öffne das Word-Dokument, in das du die Zahlen übergeben möchtest. Füge eine Textmarke ein, indem du zu Einfügen > Textmarke gehst. Vergib einen Namen, zum Beispiel "Honorargesamt".

  3. VBA-Editor öffnen: In Excel drücke ALT + F11, um den VBA-Editor zu öffnen.

  4. Neues Modul erstellen: Klicke mit der rechten Maustaste auf VBAProject (DeineDatei.xlsx) und wähle Einfügen > Modul.

  5. Code eingeben: Füge folgenden Code in das Modul ein:

    Sub ZahlenAnTextmarke()
   Dim Doc As Object
   Set Doc = CreateObject("Word.Application")
   Doc.Visible = True
   Doc.Documents.Add
   Doc.Bookmarks("Honorargesamt").Range.Text = Format(Range("B18").Value, "#,##0.00 €")
End Sub

  6. Code ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Zahl an die Textmarke in Word zu übergeben.

Häufige Fehler und Lösungen

  • Fehler: "Die Textmarke 'Honorargesamt' wurde nicht gefunden."

    • Lösung: Überprüfe, ob die Textmarke in Word korrekt definiert wurde. Der Name muss exakt übereinstimmen.

  • Fehler: Die Zahl wird ohne Nachkommastellen in Word angezeigt.

    • Lösung: Stelle sicher, dass der Format-Befehl im VBA-Code korrekt ist. Verwende Format(Range("B18").Value, "#,##0.00 €").

Alternative Methoden

Eine andere Methode, um Zahlen an eine Textmarke in Word zu übergeben, ist die Verwendung von MergeField in Word. Du kannst Platzhalter in Word einfügen und die Werte aus Excel durch Seriendruck einfügen.

Praktische Beispiele

Angenommen, du hast in Excel die Zahl 2000. Mit dem oben genannten VBA-Code wird diese Zahl in Word als 2000,00 € angezeigt, wenn du die Textmarke "Honorargesamt" verwendest.

Tipps für Profis

  • Zahlenformat anpassen: Du kannst das word zahlenformat ändern, indem du die Formatierungszeichen im Format-Befehl anpasst. Experimentiere mit verschiedenen Formaten, um das gewünschte Ergebnis zu erzielen.

  • Automatisierung: Überlege, das Makro so zu erweitern, dass es mehrere Textmarken in einem Rutsch aktualisiert, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Wie kann ich eine Textmarke in Word definieren?
Gehe zu Einfügen > Textmarke in Word und gib der Textmarke einen Namen.

2. Was mache ich, wenn der VBA-Code nicht funktioniert?
Überprüfe die Schreibweise der Textmarke und stelle sicher, dass das Word-Dokument offen ist, während du das Makro ausführst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige