Hallo,

Ich habe folgendes Problem:

Kurz zur Situation. Tabelle 1 ist eine Auswahlliste einer bestimmten Kombination (genaue Zuordnung per Nummer gegeben) eines Produktes.
Diese Auswahl hat Auswirkungen auf die Tabelle 2 in der bestimmte Texte und einige beschreibende Bilder in einem Umfang von ca. 1300 Zeilen stehen. Nun werden die nicht ausgewählten Zeilen per VBA ausgeblendet.

Die nicht ausgeblendeten Zeilen sollen nun per VBA in MS Word kopiert und übertragen werden.

Mein VBA Code:

Private Sub CommandButton2_Click()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Add

With Sheets("Deutsch")
Range("F6:K1131").Select
End With

objWord.Visible = True
Selection.Copy
With objWord
.Selection.Paste
.PrintOut
End With
Application.CutCopyMode = False
Set objWord = Nothing
Set objDoc = Nothing
End Sub

Jetzt ist es komischerweise so, das das etliche Male funktioniert und dann stürzt excel beim Kopiervorgang nur noch ab. Ich habe dann auch schon den Cache regelmäßig geleert. Funktioniert dann trotzdem nicht.

Habe ich irgendetwas im Code übersehen? Kann es an den Bildern liegen?

Wäre Dankbar für euer Feedback.

Beste Grüße
Roman