Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zahlen von Word in Excel kopieren

Zahlen von Word in Excel kopieren
19.12.2016 10:18:36
Word
Hallo zusammen,
ich habe folgendes Problem. Ich will eine Zahl aus einem geöffnetem Word Dokument in eine Excelmappe kopieren dort Berechnungen ausführen und den Wert anschließend wieder in Word kopieren.
Das funktioniert eigentlich soweit auch ganz gut. Mein Problem ist allerding, dass er die Zahlen nur bis zum Wert 0,999999... richtig kopiert, sobald eine 1 vor dem Komma steht schreibt er keine Dezimalzahl mehr in Excel sondern eine Ganze Zahl.
Bsp.: 2,0234 wird in Excel 20.234
Folgend mein Code zum kopieren der Textmarke aus Word und einfügen in Excel.
If ActiveDocument.Bookmarks.Exists("tan_betaZM") = True Then
ActiveDocument.Bookmarks("tan_betaZM").Select
Selection.Copy
End If
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Range("A11").Select
ExcelSheet.Application.ActiveSheet.Paste
ExcelSheet.Application.CutCopyMode = False
Vielleicht könnt ihr mir helfen. Vielen Dank schon mal im Voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen von Word in Excel kopieren
21.12.2016 19:05:18
Word
Hallo Daum,
wenn ich dein Problem richtig verstanden habe, dann kannst du das mit dem folgenden VBA-Programm machen:

Sub Test()
Dim ws As Excel.Worksheet
Dim xlApp As Excel.Application
Dim zahl As Double
Dim zf As String
Set xlApp = GetObject(Class:="Excel.Application")
xlApp.Visible = True
Set ws = xlApp.ActiveSheet
If ThisDocument.Bookmarks.Exists("tan_betaZM") = True Then
zf = ThisDocument.Bookmarks("tan_betaZM").Range
If IsNumeric(zf) Then
zahl = CDbl(zf)
ws.Range("A11") = zahl
Else
ws.Range("A11") = zf & " nicht numerisch"
End If
End Sub

In dem Word-Dokument muss ein Verweis auf die Bibliothek "Excel" gesetzt sein (VBA-Editor: Extras > Verweise...).
Viele Grüße
Dieter
Hier die Datei mit dem Programm, gezippt, weil Herber keine docm-Dateien erlaubt:
https://www.herber.de/bbs/user/110149.zip
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige