Microsoft Excel

Herbers Excel/VBA-Archiv

Word-Text auf xls-Zellen verteilen

Betrifft: Word-Text auf xls-Zellen verteilen von: Florian
Geschrieben am: 18.08.2008 07:29:22

Guten Morgen zusammen,

eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?

Im Word-File habe ich z.B. den Text

Zeile1
Zeile2
Zeile3

untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.

Danke schonmal!

https://www.herber.de/bbs/user/54691.xls

  

Betrifft: AW: Word-Text auf xls-Zellen verteilen von: Anton
Geschrieben am: 18.08.2008 15:35:11

Hallo Florian,

versuch's mal so:

With objWordApp
 'Text markieren
  .Selection.WholeStory
 'markierung in Variable
  varText = Split(.Selection, vbCr, , vbTextCompare)
  For i = 0 To UBound(varText)  
    Cells(Rows.Count, i + 1).End(xlUp).Offset(1, 0) = varText(i)
  Next
End With  


mfg Anton


  

Betrifft: Danke, funktioniert!! oT von: Florian
Geschrieben am: 18.08.2008 21:24:58

--


 

Beiträge aus den Excel-Beispielen zum Thema "Word-Text auf xls-Zellen verteilen"