Thema Datum  Von Nutzer Rating
Antwort
Rot mit Word von Excel Daten lesen ändern schreiben
 29.12.2019 15:38:14 FlyingGancho
NotSolved
29.12.2019 16:34:59 Mase
NotSolved
29.12.2019 17:59:53 FlyingGancho
NotSolved
30.12.2019 01:36:28 Mase
NotSolved
29.12.2019 19:07:58 xlKing
NotSolved
29.12.2019 19:12:25 xlKing
NotSolved
29.12.2019 19:35:09 xlKing
NotSolved
29.12.2019 22:25:43 FlyingGancho
Solved

Ansicht des Beitrags:
Von:
FlyingGancho		 Datum:
29.12.2019 15:38:14		 Views:
1503		 Rating:
     
Antwort:
  Ja
Thema:
mit Word von Excel Daten lesen ändern schreiben

Hallo zusammen,

ich möchte mit einem Word-Macro Werte aus eine Excel-Tabelle holen, verändern und wieder reinschreiben.

Prinzipiell funktiomiert das auch, nur nicht im speziellen.

in v1 ist die Anzahl der Seiten des aktuellen Dokuments, es soll aus einer Zelle der Wert (anderer Seitenzahlen) ausgelesen werden: vSeiten

zu vSeiten soll v1 addiert werden.

eine Rechnung mit der Variblen klappt nicht

es kann nur in dem Code vZeichen = vZeichen + 1 gerechnet und wieder geschrieben werden

 

Anbei mein Code:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    Dim vZeichen, vSeiten, vFarbS, vZeichen2, vSeiten2, vFarbS2, v1 As Integer
    v1 = ActiveDocument.ComputeStatistics(wdStatisticPages)
     
    Set xl = CreateObject("excel.application")
 
    On Error Resume Next
    xl.workbooks.Open FileName:=strPfad & "z_GA-Daten.xlsm"
 
  '  xl.Visible = True
 
  ' xl.ActiveWorkbook.worksheets("Vorbereitung").Activate
 
    vZeichen = CInt(xl.ActiveWorkbook.worksheets("Vorbereitung").Cells(12, 8))
    vSeiten = CInt(xl.ActiveWorkbook.worksheets("Vorbereitung").Cells(12, 5)) + v1
    vFarbS = CInt(xl.ActiveWorkbook.worksheets("Vorbereitung").Cells(12, 7)) + v1 - 1
 '   xl.Close savechanges:=True
 '   xl.Quit
     
      
    ' vZeichen2 = vZeichen + 1
   '  vSeiten2 = vSeiten + v1
    ' vFarbS2 = vFarbS + v1 - 1
      
 '    Sleep 1500
      
      
  '   On Error Resume Next
  '   xl.workbooks.Open FileName:=strPfad & "z_GA-Daten.xlsm"
     xl.ActiveWorkbook.worksheets("Vorbereitung").Cells(12, 5) = vSeiten
     xl.ActiveWorkbook.worksheets("Vorbereitung").Cells(12, 8) = vZeichen + 1
      
     xl.ActiveWorkbook.worksheets("Vorbereitung").Cells(12, 5) = vFarbS
      
     Sleep 1500
      
  '  xl.Save
    xl.Close savechanges:=True
    xl.Quit
DoEvents
 
 
Ich habe schon alles mögliche probiert.
Excel öffnen-lesen-schließen-rechnen-Excel wieder öfnnen- schreiben
Excel öffnen-lesen--rechnen- schreiben
mit anderen Variblen rechnen usw usf.- nix funktioniert richtig...
 
Die Werte werden richtig ausgelesen aber nicht verrechnet bzw geschrieben
 
 
Danke für die Hilfe !
DC

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot mit Word von Excel Daten lesen ändern schreiben
 29.12.2019 15:38:14 FlyingGancho
NotSolved
29.12.2019 16:34:59 Mase
NotSolved
29.12.2019 17:59:53 FlyingGancho
NotSolved
30.12.2019 01:36:28 Mase
NotSolved
29.12.2019 19:07:58 xlKing
NotSolved
29.12.2019 19:12:25 xlKing
NotSolved
29.12.2019 19:35:09 xlKing
NotSolved
29.12.2019 22:25:43 FlyingGancho
Solved