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:
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
|