Wenn...dann.. in Word Serienbrief verschachteln?

Hallo ich würde gerne einen Serienbrief erstellen,

wenn Feld1 leer ist dann "am Feld2" sonst "von Feld2 bis Feld3" nur leider geht das scheinbar nicht. Mein Code den ich bis jetzt verwende lautet:

{If {MERGEFIELD Feld1}="" "am {MERGEFIELD Feld2}" "von {MERGEFIELD Feld2} bis {MERGEFIELD Feld3}"}

Kann mir jemand sage wie das aussehen muss, damit es geht?

2 Antworten

AKasakow

10.12.2018, 08:48

Am besten bindest du eine Exceltabelle als Datenquelle ein, damit kannst du komplette 'Blöcke' verwenden und vermeidest unnötige Funktionen.

bekJac

Fragesteller

10.12.2018, 09:11

Die Exeltabelle ist schon sehr voll. und soll übersichtlich bleiben... leider ist das keine option

BerchGerch

24.12.2018, 09:32

Das kann man zwar machen, jedoch ist man damit im Dokumenttext manchmal weniger flexibel.

Meist führt das außerdem dazu, dass die Exceltabelle unnötig aufgebläht wird, wenn man zusätzliche Blöcke schreibt, die man auch aus sowieso enthaltenen Daten über Funktionen erzeugen könnte.

BerchGerch

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Word

24.12.2018, 09:23

Hallo,

prinzipiell kann ich in der Struktur deiner Formel keinen wirklichen Fehler entdecken, außer dass man bei solchen Feldfunktionen immer vor und nach geschweiften Klammern oder Operatoren Leerzeichen setzen sollte, damit Word die Formel auch wirklich richtig lesen kann. Das kann manchmal wirklich entscheidend sein.

Bei mir würde deine Formel also so aussehen:

{ IF { MERGEFIELD Feld1 } = "" "am { MERGEFIELD Feld2 }" "von { MERGEFIELD Feld 2 } bis { MERGEFIELD Feld3 }" }

Wichtig ist außerdem, dass du die geschweiften Klammern nicht als „normale“ Klammern in das Dokument schreibst, sondern sie alle mit Strg + F9 erzeugst.

Mal eine Frage ins Blaue hinein: Geh ich recht in der Annahme, dass es sich bei deinen Seriendruckfeldern um Datumsangaben handelt, die dir in Word im amerikanischen Format MM/TT/JJJJ angezeigt werden, oder funktioniert die obige Formel bei dir überhaupt nicht?

Gruß, BerchGerch

Woher ich das weiß:eigene Erfahrung

Hallo Zusammen, ich habe das Problem, dass mein Pfad meiner Bilder welche in der Quelle Excel Datei hinterlegt habe im Serienbrief Word nicht angezeigt wird! Die normale Textausgabe aus der Quelle ohne Probleme! Nur Bilder bekomme ich nicht hin!

Folgender Funktion habe ich hinterlegt ohne Erfolg. INCLUDEPICTURE { MERGEFIELD "PFAD2" } \d

In der Quelle: C:\Users\benutzer\Desktop\Passbilder302.jpg

Fehlermeldung siehe Bild.

Die Serienbrief Vorschau im neuen Fenster habe ich bereits auch probiert ohne Erfolgt!

Was kann ich tun??

Besten Dank für Ihre Mühe

...zur Frage

Serienbrief in Word mit Excel Leere Seite?

Hey ich möchte einen Serienbrief schreiben und nutze dafür eine Excel Tabelle mit jeweiligen Adressdaten etc.

Bei Ende der Adressdaten sind viele leer stehende Zellen (Excel Tabelle ist ja nach unten immer offen). Nur bei Word druckt er dann eben für diese Zellen noch den Brief aus, d.h. der Brief bloß ohne iwelche Anschrift oder Andrede.
Wie lösche ich diese Zellen aus dem Serienbrief ? Sonst habe ich wieder 500 Blätter nur mit Brief und ohne Anschrift nachdem die gewollten beendet sind?!!

...zur Frage

Python: Wie kann ich feld1 bis feld7 so zusammenfassen, sodass ich das nicht alles einzeln eingeben muss?

Hey, ich möchte feld1 bis feld7 so zusammenfassen, sodass ich das nicht alles einzeln eingeben muss. Dazu finde ich nur leider nichts im Internet.

import tkinter as tk from tkinter import *

modul = tk.Tk()
modul.geometry("900x900")
modul.title("Bunt3x3")
modul.resizable(width=False, height=False)

r = "red"
y = "yellow"
g = "green"
b = "blue"

def change():
  if feld1["bg"] == r:
    feld1.config(bg=g)
    feld3.config(bg=g)
    feld5.config(bg=g)
    feld7.config(bg=g)
    feld2.config(bg=b)
    feld4.config(bg=b)
    feld6.config(bg=b)
    feld8.config(bg=b)

    feldlabel.config(text="Rot & gelb")

  elif feld1["bg"] == g:
    feld1.config(bg=r)
    feld3.config(bg=r)
    feld5.config(bg=r)
    feld7.config(bg=r)
    feld2.config(bg=y)
    feld4.config(bg=y)
    feld6.config(bg=y)
    feld8.config(bg=y)

    feldlabel.config(text="Gruen & blau")

feld1 = tk.Frame(bg=r, width=300, height=300)
feld1.grid(column=1, row=1)
feld3 = tk.Frame(bg=r, width=300, height=300)
feld3.grid(column=3, row=1)
feld5 = tk.Frame(bg=r, width=300, height=300)
feld5.grid(column=1, row=3)
feld7 = tk.Frame(bg=r, width=300, height=300)
feld7.grid(column=3, row=3)
feld2 = tk.Frame(bg=y, width=300, height=300)
feld2.grid(column=2, row=1)
feld4 = tk.Frame(bg=y, width=300, height=300)
feld4.grid(column=1, row=2)
feld6 = tk.Frame(bg=y, width=300, height=300)
feld6.grid(column=3, row=2)
feld8 = tk.Frame(bg=y, width=300, height=300)
feld8.grid(column=2, row=3)

feld = tk.Frame(bg="white", width=300, height=300).grid(column=2, row=2)
feldlabel = tk.Label(text="Gruen & blau", bg="white", fg="black", font=("Arial", 15, "bold"))
feldlabel.grid(column=2, row=2)
feldbutton = tk.Button(text="Farbe aendern!", font=("Arial", 15, "bold"), bg="white", fg="black", command=change).place(x=370, y=470)
modul.mainloop()

...zur Frage

Wie kann ich beim Serienbrief bei Word eine leere Zeile löschen, wenn kein Datensatz vorhanden ist?

Meine Frage bezieht sich auf die Erstellung eines Serienbriefes. Mein Problem: In der Excel-Tabelle, aus der die Adressen gezogen werden stehen zwei Spalten für Firmennamen (da Teilweise noch eine Abteilung gemeint ist oder der Firmanname so lang ist, dass eine Spalte zu wenig wäre) Im Serienbrief setze ich die Platzhalter für beide Spalten untereinander.

Beispiel:

Firma GmbH

Abteilung Kommunikation

Straße

PLZ + Ort

Wenn es aber nun keine Abteilung gibt, macht der mir da eine Leerzeile. Wie muss ich da welche Feldfunktion einfügen, dass der die Leerzeile nicht macht, wenn der Datensatz für die zweite Spalte (bzw. in der Adresse die Zeile 2) leer ist?

Habe Word für MAC, falls das von Relevanz ist. Wäre super, wenn mir jemand helfen könnte.

...zur Frage

Wie stelle ich die Regeln für einen Serienbrief ein?

Servus Leute,

ich möchte einen Serienbrief mit Word und Excel erstellen.

Ich habe zwei Word Vorlagen erstellt, eine für die Menschen die ich Duzen möchte und eine Vorlage für Leute die ich siezen möchte.

In der Excel Datenbank gibt es ein Feld für Duzen, dieses ist entweder mit einem x gefüllt oder leer. Anhand dieses Feldes soll jetzt entschieden werden, ob ich für die Person die Sie oder Du Vorlage brauche.

Außerdem gibt es ein Feld für Weihnachten, dass auch mit einem x gefüllt sein muss.

Also Bedinung für Du Vorlage: Duzen = x und Weihnachten = x und die Bedingung für die Sie Vorlage: Duzen ungleich x und Weihnachten = x

Im Prinzip würde ich jetzt die Du Vorlage öffnen, dort alle Briefe erstellen und anschließen das selbe mit der Sie Vorlage machen. Mit Hilfe der Regeln möchte ich bezwecken, dass keine Person zwei Briefe bekommt, also einmal mit Sie und einmal mit Du.

Die Frage ist jetzt wie mach ich das mit den Regeln?

Die Vorlage für den Du-Brief sieht wie folgt aus:

«Anrede» «Vorname», Ich wünsche Dir und Deiner Familie schöne Weihnachtstage und für das Jahr 2017 Glück, Gesundheit und viel Erfolg! «Persönlicher_Gruß_zu_Weihnachten»

Die Felder Anrede, Vorname und Persönlicher Gruß sind natürlich auch in der Excel Tabelle eingetragen.

...zur Frage

Word: Unterschied zwischen Fillin und Ask?

Ich schreibe gerade eine Einladung (Serienbrief) und verwende dafür die Regeln Fillin unf Ask. Was ist jetzt aber der Unterschied zwischen diesen Regeln und wann verwende ich was?

...zur Frage

"Getränkeautomat" mit Java Programmieren

Hallo Leute ich möchte mit Java einen Getränkeautomaten Programmieren. Jetzt hab ich eine Methode Wasser_kaufen, in BlueJ sieht sie folgendermaßen aus:

public void WasserKaufen(){

    Wasser=Wasser-1;

}

Im Automaten ist aber nur Platz für 10 Flaschen Wasser. Wenn ich aber diese Methode verwende dann kann man ja mehr kaufen! Also mein versuch das Problem zu beheben: eine if-Bedingung. Sieht bei mir folgendermaßen aus:

public void WasserKaufen(){

    Wasser=Wasser-1;
    if (Wasser=0)// meine Idee: wenn bei Wasser bereits nichts mehr drin ist,
    {Wasser=0;// kann nichts mehr gekauft werden. Toll wäre auch                     noch eine Meldung wie Wasser leer 
    }
}

Dann kommt allerdings von BlueJ die Fehlermeldung: incompatible types

Wie kann ich diesen Fehler beheben so, dass nicht mehr als 10 Flaschen gekauft werden können. Danke schon mal für eure Antworten nummer100

...zur Frage

Discord Bot Embeds User und Kanäle Erwähnen?

Mein Code hier:

import discord

intents = discord.Intents.default()
intents.members = True
intents.presences = True

class MyClient(discord.Client):
    async def on_ready(self):
        print("Successfully joined the server!")

    async def on_message(self, message):
        if message.content.lower().startswith("infos"):
            embed1 = discord.Embed(
                title="Informationen",
                description="Beschreibung1",
                color=0x60eb63
            )
            embed1.add_field(
                name="Admins",
                value="@MeinName, @AndererAdmin, @AndererAdmin",
                inline=True
            )
            embed1.add_field(
                name="Kanäle",
                value="#Kanal1,#Kanal2,#Kanal3",
                inline=True
            )
            embed1.set_author(
                name="Die Administratoren",
                icon_url="https://cdn3.emoji.gg/emojis/7609-admin.png"
            )
            await message.channel.send(embed=embed1)

client = MyClient(intents=intents)
client.run(token)

Jetzt wollte ich dass die Users in Feld1 und die Kanäle in Feld2 erwähnt werden, momentan wird eben einfach nur der Text angezeigt.

...zur Frage

Wie lautet das Standard - Passwort für die Fritz - Box?

Die Frage findet man zig male im Netz - die Antwort scheinbar nie..

Ich brauche das (Standard) Passwort für die Fritz Box Benutzeroberfläche

(in meinem Fall 7330 und 7360 - aber ich denke , das PW dürfe bei allen Boxen gleich sein?)

Lt Anleitung gibt es das garnicht, aber ich werde doch danach gefragt.

Was ich schon rausgefunden habe:

-es ist nicht das gleiche, wie das W-Lan Passwort

-es ist nicht "leer"

-es ist nicht 0000

-es ist nicht admin

-es ist nicht 1234

-bei der "Notfall ip" über Kabel leider das gleiche Spiel

Weiß jemand die sicher einfache Lösung des Rätsels?

...zur Frage

Bei Serienbrief Dokumente einzeln Speichern mit Makro funktioniert nicht?

Ich möchte die Dokumente im Serienbrief einzeln automatisch speichern mittels Makro und habe das unten angefügte Makro dafür auch gefunden aber es funktioniert bei mir noch nicht sondern debugt immer und zeigt Fehler in der Variable an. Ich hab auch den Pfad schon auf mein Dokument angepasst. Muss ich evtl noch den Dateinamen ändern?

Sub Test()
 '
 ' Serienbrief in einzelnen Word Dokumenten speichern
 '
 Dim Dateiname As String
 Dim LetzterRec As Long
     
 Application.ScreenUpdating = False
 Application.Visible = False

 Const path As String = "C:\Test\"          'Pfad anpassen
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
 LetzterRec = Word.ActiveDocument.MailMerge.DataSource.ActiveRecord
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord


     With ActiveDocument.MailMerge
         .DataSource.ActiveRecord = wdFirstRecord
         Do
             If .DataSource.ActiveRecord > 0 Then
                If .DataSource.DataFields("VorNachname").Value <> "0" Then
                     .Destination = wdSendToNewDocument
                    .SuppressBlankLines = True

                     With .DataSource
                         .FirstRecord = .ActiveRecord
                         .LastRecord = .ActiveRecord
                
                         Dateiname = path & .DataFields("VorNachname").Value & ".docx"
                
                     End With
                        .Execute Pause:=False
                 
                         ActiveDocument.SaveAs FileName:=Dateiname           'Speichern unter Dateiname
                        ActiveDocument.Close False
                 End If

               End If
               
             If .DataSource.ActiveRecord < LetzterRec Then
                 .DataSource.ActiveRecord = wdNextRecord
             Else
                 Exit Do
             End If
         Loop
     End With
     
     Application.Visible = True
     Application.ScreenUpdating = True
 End Sub

...zur Frage

Verbesserungsvorschläge für mein Python Skript: Polindrome finden?

Hey,

ich habe heute ein kleines Python Skript geschrieben, um Polindrome in einer Textdatei zu erkennen. Polindrome sind Wörter, die rückwärts geschrieben genau den gleichen Sinn ergeben wie vorwärts geschrieben.

#!/bin/python3
#Polindrome-Woerter in Textdatei erkennen
import string

#Funktion zum Erkennen von Polindromen
def check_polindrome(word):
    reverse = ''
    removable = ['\n', '\t', '\r']
    for c in removable: # Zeug entfernen
        word = word.replace(c, '')
    for c in string.punctuation: #Sonderzeichen entfernen
        word = word.replace(c, '')
    for c in string.whitespace: #Leerzeichen entfernen, da sonst falsche Ergebnisse entstehen
        word = word.replace(c, '')
    if word in string.punctuation or word in string.whitespace: #Leer- und Sonderzeichen abfangen
        return False
    if word.isdigit() == True: #Zahlen abfangen, da z.B. 121 rueckwaerts auch 121 ergibt
        return False
    for i in range(len(word)-1, 0-1, -1): #Wort rueckwaerts zusammen basteln
        reverse = reverse + word[i]
    if reverse.lower() == word.lower(): #Rueckwaerts-Wort mit vorwaerts-Wort vergleichen
        return True
    else:
        return False

#Den Benutzer eine Textdatei oeffnen lassen
file = input('Path to file: ')
polindrome = []

try:
    with open(file, 'r') as f:
        lines = f.readlines()
except FileNotFoundError:
    print('File not found!')
    exit(0)

#Einzelne Woerter im Text der Funktion check_polindrome uebergeben
for i in range(0, len(lines)):
    lines[i] = lines[i].split(' ')
    for word in lines[i]:
        if check_polindrome(word) == True:
            polindrome.append(word)
        else:
            continue

#Ergebnis anzeigen
print(len(polindrome), ' found!\n')
for i in range(len(polindrome)):
    print(polindrome[i].replace('\n', '')) #\n in Wort entfernen, da sonst zu viele Leerzeichen bei Output

Die Projektidee habe ich von: https://www.gutefrage.net/frage/python-projekt-ideen#answer-357880884

Wie man rückwärts über eine Zeichenkette rotiert, habe ich von: https://stackoverflow.com/questions/7961499/best-way-to-loop-over-a-python-string-backwards

Hat jemand Verbesserungsvorschläge für meinen Code?
Ein kleines Feedback bitte

...zur Frage

Treten Kräfte zwischen der Wand und der Kugel auf?

Also ich habe viele Fragen. Hoffe ihr kann mich helfen.

Aufgabe 1) Eine positiv geladene Kugel wird vor eine metalplatte gehalten. Zeichnen sie das Feld. Wo enden die Feldlinien? Treten Kräfte zwischen der Wand und der Kugel auf?

Also ich habe die erste Teil habe ich versucht, ich habe dazu ein Bild hinzugefügt!

Aufgabe 2) Vergleichen sie Kraftwirkungen im elektrischen und im Gravitationsfeld.

Hierzu habe ich gedanken gemacht. Ich glaube die Antwort lautet:

Gravitationskraft wirkt auf alle Körper folge ihrer Masse, und die Elektrischfeldkraft wirkt auf geladene Körper und Teilchen.

Aufgabe3) Die Ladung q1=1.0nC erfährt im Feld1 die Kraft F=0.10mN, die Ladung q2=3nC im Feld 2 die kraft F=0.20mN. Vergleichen sie die beiden Felder.

Hierzu habe ich die Feldstärke rausberchnet und für Feld 1 habe ich 100000 N/C raus und Feld2 habe ich 66666,67N/C. Aber ich weis nict wie die Frage zu beantworten.

Aufgabe 3) Ein Wattestück hat die masse 0.01g und die Ladung - 0.1nC. Berechnen sie die Stärke eines elektrischen Feldes, in dem das Wattestück schwebt. Geben sie die Richtung des Feldes an!

Hierzu habe Ich keine Ahnung.

Hofft ihr könnte mir helfen. Die Zeichnung für Aufgabe 1 is hinzugefügt.

...zur Frage

Wie nutze ich in Word 2016 eine Wenn-Funktion ohne Serienbrief?

Moin,

ich habe in einem Dokument ein Kombinationsfeld mit dem Textmarkennamen „Anrede“. Hier kann entweder „Herr“ oder „Frau“ ausgewählt werden. Je nach Auswahl soll sich dann das gesamte Dokument anpassen.

An einer Stelle habe ich zum Beispiel aktuell das Wort „seiner“ stehen, das zu „Herr“ passt. Wählt man über das Kombinationsfeld „Frau“ aus, dann soll dort jedoch „ihrer“ anstelle von „seiner“ stehen. Dasselbe will ich dann mit anderen einzelnen Wörtern machen, die sich alle nach der Auswahl des Kombinationsfeldes richten.

Ich habe das Wort „seiner“ markiert, bin auf Verweise => Querverweis gegangen und habe „Anrede“ als Textmarke eingefügt. Danach habe ich die eingefügte Textmarke markiert und „Feld bearbeiten“ => „Feldfunktionen“ ausgewählt.

Dort wollte ich folgende Feldfunktion nutzen, die ich so ähnlich im Netz gefunden habe:

{ IF { REF Anrede } = "Herr" "seiner " "ihrer "}{ REF Name }

Ich kann aber nicht mal auf „Ok“ zum Bestätigen gehen, der Button ist ausgegraut. Wird so wohl falsch sein.

Vielen Dank im Voraus!

...zur Frage

Target.Address Fehlermeldung Laufzeitfehler "424": Objekt erforderlich?

Hallo,

ich verschiedene Befehle mit VBA realisieren, um eine Auswahlliste anzupassen. Zum einen sollen Zellen ausgeblendet werden, wenn eine bestimmte Zelle leer ist und daher ein ganzer Teil der Liste entfallen kann. Der Befehl sieht folgendermaßen aus:

Sub HdlZellenVerbergen()

If Target.Address = "$C$9" Then

If C9 = "" Then

Rows("164:195").Hidden = True

Else

Rows("164:195").Hidden = False

End If

End Sub

Da ich mich nun Hals über Kopf in VBA geschmissen habe und schon einige Male Internetrecherche betrieben habe, weiß ich nicht wo der Fehler liegt, da mir hier die Erfahrung fehlt. Der Fehler lautet wie in der Überschrift angegeben. Was muss ich machen, damit das ganze nun funktioniert.

Ein ähnliches Problem erwarte ich dann bei folgendem Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$8" Then

If [C8] = "x" Then [D22] = "y"

End If

End Sub

Auch hier wäre eine Hilfe super.

Vielen Dank im Voraus.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen