Thema Datum  Von Nutzer Rating
Antwort
Rot Zellenwert von Excel nach Word
 07.01.2015 17:14:56 Dimi
*****
NotSolved
09.01.2015 10:02:37 Gast35667
NotSolved
09.01.2015 11:51:12 dimi
NotSolved
09.01.2015 21:05:00 Gast51711
*****
NotSolved
12.01.2015 14:00:45 dimi
*****
Solved
12.01.2015 23:08:45 Gast85595
NotSolved
13.01.2015 13:59:08 Dimi
Solved

Ansicht des Beitrags:
Von:
Dimi		 Datum:
07.01.2015 17:14:56		 Views:
1245		 Rating:
     
Antwort:
  Ja
Thema:
Zellenwert von Excel nach Word

Hallo zusammen,

ich möchte von ein Excel jeden ZellenWert der <>"" in der Spalte A kopieren und nach Word einfügen. Es ist mir wichtig das ich jede Zelle einzeln und nicht als Tabelle kopiere. Mein Vorschlag der zum Teil funktioniert (aber überschreibt die vorigen Werte, was nicht erwünscht ist ...) lautet:

 

Private Sub CommandButton3_Click()
Dim i As Integer
Dim LastRowColA As Long
 
LastRowColA = Range("A65536").End(xlUp).Row
 
For i = 2 To LastRowColA
 
 DoEvents
        
       Sheets("Sheet2").Range("A" & i).Copy
        
        AppActivate "word"
        
        With GetObject("C:\Documents\Matchcodes.docx").Content.PasteSpecial
           
         SendKeys "{enter}"
 
        
       End With
        
 Next
 
   
End Sub
 
 
 
Wer weiß eine Lösung? 

Über Eure Hilfe würd ich mich freuen 

mfg Dimi

 

 

 

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 Zellenwert von Excel nach Word
 07.01.2015 17:14:56 Dimi
*****
NotSolved
09.01.2015 10:02:37 Gast35667
NotSolved
09.01.2015 11:51:12 dimi
NotSolved
09.01.2015 21:05:00 Gast51711
*****
NotSolved
12.01.2015 14:00:45 dimi
*****
Solved
12.01.2015 23:08:45 Gast85595
NotSolved
13.01.2015 13:59:08 Dimi
Solved