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