Word Serienbriefe: Wie verknüpfe ich Wenn-Dann Funktion mit Tabellen?
Hallo Leute, ich habe ein folgendes Problem.Und zwar habe ich eine Excel Datenbank erstellt und sie mit einer Word Datei über die Funktion Serienbriefe verknüpft. Nun habe ich drei Tabellen in Word erstellt, davon aber je nach Excel Voraussetzung nur eine Sichtbar sein soll.
Sprich: WENN (in der excel datenbank, A1 "1" ist, Dann( Tabelle 1 anzeigen), Sonst leer....
danach kommt ja die verschachtelte Formel, die bekomme ich hin, allerdings zeigt er mir nicht die Tabellen an. Kann mir einer weiter helfen?
VG Robin
2 Antworten
Hallo,
die Lösung von Plotz kann ich leider nicht nachmachen, obwohl es mich wirklich interessieren würde.
Ich würde folgende Lösung wählen:
Speichere deine drei Word-Tabellen jeweils als Textbaustein ab (Gesamte Tabelle markieren und Alt + F3 drücken, dann dem Kind einen Namen geben, unter Speichern in deine jetzige Dokumentvorlage wählen, und auf OK). Diesen Schritt für die anderen beiden Tabellen wiederholen und darauf achten, dass unterschiedliche Textbaustein-Namen vergeben werden.
Dann an der entsprechenden Stelle, an der jeweils die Tabelle erscheinen soll, eine Feldfunktion vom folgenden Format einfügen:
{ IF { MERGEFIELD NameDesSeriendruckfeldes } = 1 "{ AUTOTEXT "NameVonTextbausteinTabelle1" }" "{ IF { MERGEFIELD NameDesSeriendruckfeldes } = 2 "{ AUTOTEXT "NameVonTextbausteinTabelle2" }" "{ IF { MERGEFIELD NameDesSeriendruckfeldes } = 3 "{ AUTOTEXT "NameVonTextbausteinTabelle3" }" "" }" }" }
Ich hoffe, ich habe dich richtig verstanden. Eine Rückmeldung wäre nett.
Gruß, BerchGerch
Die Tabelle soll also nicht als Datenquelle dienen, sondern als Inhalt eines Seriendruckfeldes.
Schreib im Worddokument ne VBA Funktion mit Select Case und setz die Funtion ins Seriendruckfeld, fertig.
VBA Fenster aufmachen (Alt-F11), "Select Case" schreiben - ohne Anführungszeichen, markieren und F1 drücken. Da steht dann wie's geht.
End Select nicht vergessen.
Das Ganze in eine Funktion setzen.
Prinzipiell so:
Public Function Tabellenauswahl(Bedingung as String)
Select Case Bedingung
Case "links"
Tabellenauswahl="links"
Case "rechts"
Tabellenauswahl="rechts"
Case "geradeaus"
Tabellenauswahl="rechts"
End Select
End Function
Vielen Dank, hört sich einfach an, aber kannst du das in einer einfacheren Sprache bitte erklären? :) Danke