leider kann ich in meinem alten Beitrag nicht weiter schreiben, deswegen muss ich einen neuen Beitrag öffnen.
Ich habe eine Tabelle in Excel:
A3:A12 = Text
B3:A12 = Datum
C3:A12 = Datum
E3:E12 = Zahl
F3:F12 = Zahl
G3:G12 = Zahl
Folgender Code kopiert mir den Inhalt der jeweiligen Ranges in eine Word Tabelle.
Set Bereich = Worksheets("Tabelle1").Range("C3:C12")
For Each Zelle In Bereich
If Zelle.Text "" Then
TextSpeicher = TextSpeicher & Zelle.Text & Chr(10)
End If
Next
appWord.ActiveDocument.Tables(1).Cell(5, 3).Select
appWord.Selection.Text = TextSpeicher
TextSpeicher = ""
Jetzt habe ich das Wochenende vergeblich versucht diesen Code um folgendes zu erweitern:
Eine Abfrage auf den Inhalt des Textes in Spalte A für jede Zeile.
Bevor der Inhalt von C3 kopiert wird, soll erstmal überprüft werden ob der Text von A3 = "Beispiel" ist. Wenn das der Fall ist sollen etwas mehr Zeilenumbrüche in die Variable geschrieben werden. Bei C4 soll dann bei A4 geprüft werden.
Der Text in A3:A12 ist meistens länger als eine Zeile in der Word Tabelle. Dadurch das ich jede Range unabhängig von einander in die Word Tabelle kopiere, passen sich die anderen Spalten nicht an und es fehlen mir dort Zeilenumbrüche.
Ich muss jetzt nochmal kurz weg, danach werde ich hier noch Beispiel Dateien hochladen.
Danke.
Chak