|
Moin,
ich bin erst seit kurzem dabei mich mit VBA an zufreunden. Oft schnappe ich hier und da etwas auf und versuche es für mein Vorhaben umzustricken.
Zu meiner Herausforderung:
Ich habe Excel-Tabellen, die mit Firmendaten gefüllt sind. Dabei sind nicht immer alle Firmen vorhanden. Diese Infos möchte ich in ein Wordtemplate einfügen lassen. Das klappt auch soweit. Aber da nicht immer alle Firmen vorhanden sind, gibt es im Word Bookmarks die nicht befüllt werden, wie z.B.:
Firma 1 in Bookmark 1, Firma 2 in Bookmark 2, Firma 3 in Bookmark 3
Wenn nun Firma 1 keine Daten hat, ist im Bookmark 1 nichts drin (Bookmark 1 ist dann leer) und es geht erst bei Bookmark 2 los. Leider können die Zeilen bei Bookmark 1 und 2 nicht nach oben verschoben werden, da in diesen Zeilen noch weitere Informationen stehen.
Hier ein Beispiel aus der Wordtemplate:
Montag: Bookmark 1
Bookmark 2
Bookmark 3
Wenn also Firma 1 keine Daten hat, sieht die Word-Datei dann so aus:
Montag:
Firma 2
Firma 3
Ich habe mir schon einmal etwas überlegt, was im kleinen auch funktioniert
| Firma 1 |
Firma 2 |
Firma3 |
|
Wenn
Firma 1>0
dann
Inhalt in Bookmark1 und
gehe zu Firma 2
Else
gehe zu Firma 2
|
Wenn
Firma 2>0
dann
wenn
Bookmark1 prüfen und
wenn noch frei
dann
Inhalt in Bookmark 1 und
gehe zu Firma 3
else
Inhalt in Bookmark 2 und
gehe zu Firma 3
else
gehe zu Firma 3 |
Wenn
Firma 3>0
dann
wenn
Bookmark1 prüfen und
wenn noch frei
dann
Inhalt in Bookmark 1 und
gehe zu Firma 4
else
wenn
Bookmark 2 prüfen und
wenn noch frei
dann
Inhalt in Bookmark 2 und
gehe zu Firma 4
else
Inhalt in Bookmark 3 und
gehe zu Firma 4
else
gehe zu Firma 4
|
Damit wollte ich erreichen, dass die Bookmarks von 1 bis X befüllt werden. Zum Schluss lasse ich dann noch die nicht befüllten Bookmarks löschen.
Nur wird es immer länger und länger, denn ich habe bis zu 15 Firmen und entsprechend auch 15 Bookmarks in meinem Wordtemplate.
Gibt es da etwas das dieses vereinfacht? Ich bin für jeden Hinweis dankbar.
Gruß
Angelo
|