Hallo zusammen,

nach tagelanger, erfolgloser Suche in diesem Forum, bitte ich um Eure Hilfe.

Es geht darum, dass per klick auf eine Schaltfläche, ein Feld (CV4) geprüft werden soll, was da drinnen steht.
Je nachdem was dieses Auswahlkriterium ausgibt (1 bis 4), soll dann ein bestimmter Bereich der Excel Tabelle ausgewählt und in ein WordDokument kopiert werden.

Die Abfrage des Auswahlkriteriums 1 - 2 Funktioniert einmal. Danach hakt es. a) das Word Dokment wird gar nicht mehr aufgemacht. b) wenn schon, dann bleibt er Prozess bei ".Paste" hängen.

Ich arbeite mir Office365 

Hier der mich quälende Code:

Sub Schaltfläche57_Klicken()
' Daten in Word Datei ausgeben
'
    Sheets("FCL Multiple calculation").Select
    If Range("CW4") = ("1") Then
    Range("BM2:BR39").Select
    Selection.Copy
    ElseIf Range("CW4") = ("2") Then
    Range("CA3:CH43").Select
    Selection.Copy
    ElseIf Range("CW4") = ("3") Then
    Range("BT2:BY37").Select
    Selection.Copy
    ElseIf ("CW4") = ("4") Then
    Range("CJ2:CQ40").Select
    Selection.Copy
    End If

Dim wdApp As Object
Dim wdoc As Object
Dim ab As Byte
    
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
    
If wdApp Is Nothing Then
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
End If
    
wdApp.Documents.Add
Set wdoc = wdApp.ActiveDocument

With wdApp.Selection
    .Paste
    
End With

Set wdoc = Nothing
Set wdApp = Nothing
  
  Range("A1").Select

End Sub
 

Vielen Dank für Eure Unterstützung!!!