Thema Datum  Von Nutzer Rating
Antwort
Rot Nach Auswahlkriterium bestimmte Zellen nach Word kopieren
04.10.2021 16:05:54 Oliver
NotSolved

Ansicht des Beitrags:
Von:
Oliver
Datum:
04.10.2021 16:05:54
Views:
130
Rating: Antwort:
  Ja
Thema:
Nach Auswahlkriterium bestimmte Zellen nach Word kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Nach Auswahlkriterium bestimmte Zellen nach Word kopieren
04.10.2021 16:05:54 Oliver
NotSolved