Office: Makro funktioniert nach Kopieren in andere Arbeitsmappe nicht mehr

Max1987 · 14. Juli 2009

Hallo mal wieder,
Ich bin wieder mit meinem Latein am Ende.
Ich habe ein Makro in Excel programmiert, das bestimmte Daten aus Excel ausliest und aus diesen Daten und einem Word-Template eine neue Word-Datei erstellt. Das hat auch jetzt endlich alles geklappt und ich bin fertig.
Nur: Das Makro hab ich in meinem Personal Workbook erstellt und nicht in dem Workbook der Excel-Schablone selber.
Da ich das aber anderen Personen zugänglich machen möchte, muss ich das Makro folglich in das Workbook der Excel-Schablone importieren (oder?).

Naja, das hab ich dann einfach gemacht und zack jetzt funktioniert nichts mehr.

Erstmal war das Problem, dass die Word-Konstanten, die ich benutzt habe, nicht mehr definiert waren. Z.B. wdLineStyleSingle.
Das hab ich dadurch gelöst, dass ich jeweils z.B. o_WordApp.LineStyleSingle geschrieben habe, wobei oWord_App der Name meiner Word-Instanz ist.

Nun gibt er mir die Fehlermeldung "Object doesn't support this property or method" raus.
Wie gesagt: Wenn ich das Makro im Personal Workbook ausführe, funktioniert es, in der Arbeitsmappe des Dokuments nicht.

Woran kann das bloß liegen? Ich hab sonst wirklich nichts am Quelltext verändert.

Ich hab auch versucht, den Fehler einzukreisen und bin aber nicht sehr weit gekommen. Es hapert jedenfalls in folgendem Abschnitt:
Code:

Public Sub DocErstellen()
If Not Word_Connect Then Exit Sub
On Error GoTo Fehler
With oWord_App
.Documents.Add Template:="C:\Users\ameria GmbH\Documents\aNS Vertrag hyperlink_neu.dotm"

Dim Firma As String
Dim Firmenstraße As String
Dim Firmenort As String
Dim Manager As String
Dim SummeFTE As String
Dim Datum As String
Dim DatumBis As String
Dim Telefon As String
Dim Email As String
Dim Zeilen, Zeilen2 As Integer
Dim x As Integer

Dim i As Integer
Dim tableRange As Object
Dim listRange As Object
Dim k, l As Integer
Dim m As Integer
Dim mytable As Object
Dim mylist As Object

m = 22
Zeilen = 0

For i = 21 To 29 Step 1
If Not IsEmpty(Worksheets("Dateneingabe").Cells(i, 1)) Then
Zeilen = Zeilen + 1
End If

Next i

If Zeilen > 2 Then
Zeilen2 = Zeilen - 2
Else: Zeilen2 = 1
End If

Set listRange = .ActiveDocument.Bookmarks("Liste").Range
listRange.Collapse

.ActiveDocument.Tables.Add Range:=listRange, NumRows:=Zeilen2, NumColumns:=2
Set mylist = .ActiveDocument.Tables(1)

Set tableRange = .ActiveDocument.Bookmarks("Tabelle").Range
tableRange.Collapse

.ActiveDocument.Tables.Add Range:=tableRange, NumRows:=Zeilen, NumColumns:=4
Set mytable = .ActiveDocument.Tables(2)

With mytable

.Borders.InsideLineStyle = oWord_App.wdLineStyleSingle
.Borders.OutsideLineStyle = oWord_App.wdLineStyleSingle
.Borders(oWord_App.wdBorderTop).Color = -738132173
.Borders(oWord_App.wdBorderBottom).Color = -738132173
.Borders(oWord_App.wdBorderLeft).Color = -738132173
.Borders(oWord_App.wdBorderRight).Color = -738132173
.Borders(oWord_App.wdBorderVertical).Color = -738132173
.Borders(oWord_App.wdBorderHorizontal).Color = -738132173
.Columns(1).Width = oWord_App.MillimetersToPoints(82)
.Columns(2).Width = oWord_App.MillimetersToPoints(16)
.Columns(3).Width = oWord_App.MillimetersToPoints(30)
.Columns(4).Width = oWord_App.MillimetersToPoints(28)

.Rows(1).Borders(oWord_App.wdBorderVertical).Color = vbWhite

.Rows(1).Shading.BackgroundPatternColor = -553582746
.Rows(1).Range.Font.Color = vbWhite
.Rows(1).Range.Font.Size = 11
.Rows(1).Range.Font.Bold = True
.Rows(Zeilen).Range.Font.Bold = True
For l = 1 To 4 Step 1

.Cell(1, l).Range.Text = Worksheets("Dateneingabe").Cells(21, l)
Next l

For l = 1 To 4 Step 1
.Columns(l).Select
oWord_App.Selection.ParagraphFormat.Alignment = oWord_App.wdAlignParagraphCenter

For k = 2 To Zeilen - 1 Step 1

.Cell(k, l).Range.Text = Worksheets("Dateneingabe").Cells(k + 20, l)
.Cell(k, 3).Range.Text = Worksheets("Dateneingabe").Cells(k + 20, 3) & " "
.Cell(k, 4).Range.Text = Worksheets("Dateneingabe").Cells(k + 20, 4) & ",00 "

Next k

Next l

For l = 1 To 4 Step 1
.Cell(Zeilen, l) = Worksheets("Dateneingabe").Cells(29, l)
.Cell(Zeilen, 4) = Worksheets("Dateneingabe").Cells(29, l) & ",00 "
Next l

End With

mytable.Select
.Selection.Copy
.Selection.Goto What:=.wdGoToBookmark, Name:="Tabelle2"
.Selection.Paste (.wdPasteDefault)

.Selection.Goto What:=.wdGoToPage, Count:=1

With mylist

.Columns(1).Width = oWord_App.MillimetersToPoints(115)
.Columns(2).Width = oWord_App.MillimetersToPoints(35)
For x = 1 To Zeilen2 Step 1

.Cell(x, 1) = vbTab & Worksheets("Dateneingabe").Cells(x + 21, 1)
.Cell(x, 2) = Worksheets("Dateneingabe").Cells(x + 21, 2) & " FTEs/Monat"
Next x

End With
End With

Aufraeumen:
Word_Disconnect
Exit Sub
Fehler:
MsgBox Err.Description
Resume Aufraeumen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Max1987 · 15. Juli 2009

Mir ist gerade eingefallen, dass das Kopieren vielleicht gar nicht der richtige Schritt ist.
Kann/Muss man das anders machen?

Was ich will: Ich hab also das Makro programmiert und bisher in meinem Personal Workbook also auf meinem Rechner gespeichert.
Jetzt möchte ich das Excel-Template und das dazugehörige Makro auf einem Server speichern und für mehrere Benutzer zugänglich und benutzbar machen.
Wie mache ich das?

ransi · 15. Juli 2009

HAllo

Geh doch den Code mal mit F8 durch.
In welcher Zeile kommt der Fehler ?

ransi

Max1987 · 16. Juli 2009

Ah okay danke das kannte ich gar nicht mit F8.
Also das Programm bricht ab, wenn es an folgende Stelle kommt:

Code:

.Borders.InsideLineStyle = oWord_App.wdLineStyleSingle
.Borders.OutsideLineStyle = oWord_App.wdLineStyleSingle
.Borders(oWord_App.wdBorderTop).Color = -738132173
.Borders(oWord_App.wdBorderBottom).Color = -738132173
.Borders(oWord_App.wdBorderLeft).Color = -738132173
.Borders(oWord_App.wdBorderRight).Color = -738132173
.Borders(oWord_App.wdBorderVertical).Color = -738132173
.Borders(oWord_App.wdBorderHorizontal).Color = -738132173
.Columns(1).Width = oWord_App.MillimetersToPoints(82)
.Columns(2).Width = oWord_App.MillimetersToPoints(16)
.Columns(3).Width = oWord_App.MillimetersToPoints(30)
.Columns(4).Width = oWord_App.MillimetersToPoints(28)

.Rows(1).Borders(oWord_App.wdBorderVertical).Color = vbWhite

.Rows(1).Shading.BackgroundPatternColor = -553582746
.Rows(1).Range.Font.Color = vbWhite
.Rows(1).Range.Font.Size = 11
.Rows(1).Range.Font.Bold = True
.Rows(Zeilen).Range.Font.Bold = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich den Code entferne, bricht das Programm jedoch trotzdem ab.

jinx · 16. Juli 2009

Moin, Max,

in Deinem geposteten Code ist nichts von dem Herstellen einer Verbindung zu Word zu sehen - besser gefragt: wie erstellst Du im Makro oWord_App (klingt nach GetObject bzw. CreateObject)?

Max1987 · 19. Juli 2009

Hi,
Okay das war nicht so clever von mir, ich hab die Verbindung zu Word über eine eigens definierte Funktion hergestellt, die ich oben nicht gepostet habe.

Aber wie auch immer, das Problem hat sich schon gelöst, ich hatte schlichtweg vergessen, die Word-Bibliothek einzubinden.

Trotzdem danke für Eure Bemühungen,

Office: Makro funktioniert nach Kopieren in andere Arbeitsmappe nicht mehr

Makro funktioniert nach Kopieren in andere Arbeitsmappe nicht mehr

Makro funktioniert nach Kopieren in andere Arbeitsmappe nicht mehr

Makro funktioniert nach Kopieren in andere Arbeitsmappe nicht mehr

Makro funktioniert nach Kopieren in andere Arbeitsmappe nicht mehr - Similar Threads - Makro funktioniert Kopieren

Durch Einfügen einer Zeile funktioniert Makro nicht mehr.

Hilfe benötigt bei Fehler in Makro

Makro funktioniert nicht so wie es soll

Makro in Excel 2003 funktioniert nicht mehr

Dateien mit Makro funktioniert an einem PC nicht

VBA Speichern: Warum funktioniert mein Makro nicht richtig

Eigenes selbstzertifiziertes Makro funktioniert plötzlich nciht mehr