Variablen, Objekt, Prozedur zu groß, Verweisfehler

Thomas · 2015-12-21T00:59:55+00:00

Hallo Forum, ich möchte ein Makro schreiben welches mir aus einer Liste Werte in Variablen schreibt und dann im weiteren Verlauf diese Variablen in ein Word Dokument überträgt. Es läuft soweit wunderbar mit TmpVar(1) = Sheets("xxx").Range("d5").Value Set wdApp = CreateObject("Word.application") Set wdDoc = wdApp.Documents.Open(Filename:=Application.ActiveWorkbook.Path & "\" & TmpVari1 & ".docx") With wdDoc.Content.Find .Execute findtext:="TmpVar(1)", replacewith:=TmpVar(1), Replace:=wdReplaceAll End with Problem Jetzt habe ich knapp 2500 Variablen wie oben generiert und die Fehlermeldung Prozedur zu groß bekommen. Gut also die Variablenschreibung in 5 kleinere Prozeduren (Sub) geteilt und das klappt auch wunderbar. Der erste Block ruft den zweiten auf etc.. Der letzte ruft die Übertragung auf. Leider bekomme ich bei dem Übertragen ins Word Dokument wieder den Fehler Prozedur zu groß. Jetzt habe ich die Übertragung auch zerlegt in 5 Prozeduren. Aber nur der erste Übertrag klappt. Wenn dieser die zweite Übertragungsprozedur aufruft kommt ein Verweisfehler. Meine Frage wäre nun. Wie übergebe ich sauber das Word Ojekt an die Übertragungsprozedur beim zweiten Mal. Er scheint die erstellten Variablen zu 'Vergessen'. Oder wie kann ich die Funktion With wdDoc.Content.Find .Execute findtext:="TmpVar(1)", replacewith:=TmpVar(1), Replace:=wdReplaceAll End with in eine Schleife packen die halt 25ßß durchlaufen wird? Es wäre nett wenn sich jemand die Zeit nimmt um mir meine Denkfehler zu zeigen und eine Lösung auf zu zeigen. Vielen Dank Thomas

Hallo,
ich wollte die Frage nicht sprengen aber hier in Auschnitten der Code:
Dim TmpVar(0 To 5000) As String
Dim TmpVari(1 To 50) As String
Dim wdApp As Object
Dim wdDoc As Object
'Dim TmpVar(0 To 1000) As String
'Dim TmpVar(500 To 1500) As String
'Dim TmpVar(1000 To 2000) As String
'Dim TmpVar(1500 To 2500) As String
'Dim TmpVar5(2000 To 3000) As String
' Die Routinen eine nach der Anderen aufrufen und die Variablen bleiben erhalten

Sub Gen_Var()
' Generate Variables
TmpVar(1) = Sheets("Data entry").Range("d5").Value
TmpVar(2) = Sheets("Data entry").Range("e5").Value
TmpVar(3) = Sheets("Data entry").Range("f5").Value
TmpVar(4) = Sheets("Data entry").Range("d6").Value
TmpVar(5) = Sheets("Data entry").Range("e6").Value
TmpVar(6) = Sheets("Data entry").Range("f6").Value
TmpVar(7) = Sheets("Data entry").Range("f7").Value
  .... und so weiter für alle Zellen die übertragen werden müssen
TmpVar(510) = Sheets("Results").Range("q23").Value
TmpVar(511) = Sheets("Results").Range("q44").Value
TmpVar(512) = Sheets("Results").Range("q65").Value
Gen_Var1
End Sub

Sub Gen_Var1()
' Resident beginn
TmpVar(513) = Sheets("Results").Range("ad3").Value
TmpVar(514) = Sheets("Results").Range("ae3").Value
TmpVar(515) = Sheets("Results").Range("ap3").Value
  .... und so weiter für alle Zellen die übertragen werden müssen insgesamt 5 Blöcke
.... das funktioniert auch wunderbar
.... die Variablen bleiben erhalten und werden wunderbar ausgelesen.
    TmpVar(2149) = Sheets("Results").Range("am65").Value ' Resident Active 3 Sum adult Crop  _
21
TmpVar(2150) = Sheets("Results").Range("ab65").Value ' Resident Active 3 Sum child Crop 21
Var_Tausch
End Sub

Sub Var_Tausch()
Set wdApp = CreateObject("Word.application")
Set wdDoc = wdApp.Documents.Open(Filename:=Application.ActiveWorkbook.Path & "\template.docx")
wdApp.Visible = True    ' show Word document
With wdDoc.Content.Find
.Execute findtext:="TmpVar(1)", replacewith:=TmpVar(1), Replace:=wdReplaceAll   ' Active 
Sub 1
  .... und so weiter für alle Zellen die übertragen werden müssen
End With
TmpVari(1) = Format(Date, "yyyymmdd") & " " & Format(Time, "hhmmss") & " " & " - " & TmpVar(7)
wdDoc.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & TmpVari(1) & ".docx"
MsgBox ("File saved in directory: ") & vbCrLf & Application.ActiveWorkbook.Path & vbCrLf & "  _
with filename: " & vbCrLf & TmpVari(1) & ".docx"
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
Var_Tausch1
End Sub

....Und hier im zweten Block der Tauschaktion laufe ich in den Verweisfehler

Sub Var_Tausch1()
Set wdApp = CreateObject("Word.application")
Set wdDoc = wdApp.Documents.Open(Filename:=Application.ActiveWorkbook.Path & "\" & TmpVari1 & ". _
docx")
wdApp.Visible = True    ' show Word document
' Beginn
.Execute findtext:="TmpVar(513)", replacewith:=TmpVar(513), Replace:=wdReplaceAll
.Execute findtext:="TmpVar(514)", replacewith:=TmpVar(514), Replace:=wdReplaceAll
End with
End Sub

.... etc. es sollen alle anderen getauscht werden alles geschlossen und ich hätte ein fertiges Word Dokument.
Zu
Weißt du die Variablen alle einzeln zu? Da wäre man ja schneller, wenn man in Word die Begriffe per Hand ersetzt, als den Code zu schreiben.

Ja. Ich erstellen quasi aus einer komplexen Berechnung ein Sheet mit den Ergebnissen.
Diese lese ich mit meinem Makro aus und übertrage sie nach Word.
Um die weiderkehrenden Berechnungen ohne Fehle zu übertragen der Versuch der Automation.
Ich hoffe es ist jetzt etwas klarer. Vielen Dank schonmal.
Gruß Thomas

Hallo,
ja den Gruselcode leugne ich nicht. Ist halt learning by doing.
Der Tausch findet in einem einzigen Word Dokument statt das ich immer wieder öffne.
Die Zahlen liegen als Liste vor
in diesem Format

0,0503313 296,07 % 0,00107 6,29 % 0,002933 17,25 % 0,0316406 186,12 %
0,036527 214,86 % 0,00107 6,29 % 0,0191834 112,84 % 0,0733948 431,73 %
0,0322626 189,78 % 0,00107 6,29 % 0,002559 15,05 % 0,1189194 699,53 %
0,0619462 364,39 % 0,00107 6,29 % 0,0184445 108,5 % 0,1614874 949,93 %
0,0215249 126,62 % 0,00107 6,29 % 0,0031445 18,5 % 0,0398898 234,65 %
0,0368716 216,89 % 0,00107 6,29 % 0,0033495 19,7 % 0,0375878 221,1 %
0,3576301 2103,71 % 0,00107 6,29 % 0,0098748 58,09 % 0,0696094 409,47 %

Mein Problem ist halt das ich aus verschiedenen Excel Sheets die Werte zusammensuchen muß.
Die Werte schreibe ich in obige Liste in Spalten.
Nachdem die Suche fertig ist stoße ich dann den Übertrag in ein Word Template an wo ich dann auch wieder vorgegebenen Tabellen in verschiedenen Formaten fülle. Diese enthalten dann die TmpVar Variable die ich aus Excel heraus tausche.
Um die .excecute findtext: .... Tauscherei in eine Schleife zu bekommen bin ich gerne für Vorschläge offen. Da fehlt mir noch etwas die Routine um das einfach hinzubekommen und das runterkopieren des Tauschbefehls ging da schneller.
Die TmpVar Erstellung ist leider organisch gewachsen und nur mit sehr viel Aufwand in die Schleife zu schreiben, da die Werte in dem Berechnungs Sheets nicht in Reihe/Spalte vorliegen sonder verteilt über das Sheet.
Aber deshalb habe ich ja meine Frage eingestellt, um es eleganter zu lösen.
Danke und Gruß Thomas
P.S.: Ich habe bei der Suche jetzt schon zwei Fehler eliminiert
- Ich hatte in dem zweite Tausche Block vergessen zu schreiben
With wdDoc.Content.Find
- Ich hatte die Variable falsch geschrieben statt TmpVari(1) habe ich TmpVari 1 geschrieben

Variablen, Objekt, Prozedur zu groß, Verweisfehler

Forumthread: Variablen, Objekt, Prozedur zu groß, Verweisfehler

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Variablen, Objekt, Prozedur zu groß, Verweisfehler

Forumthread: Variablen, Objekt, Prozedur zu groß, Verweisfehler

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread