Benutzer:Paul Sutermeister/Geschäftsbrief

1 Ordne jeweils ein Synonym zu:

Angebot	Geschäft	Geld	Nachfrage
				Kauf
				Mittel
				Tausch
				Verkauf

2 Ordne zu:

Anfrage	Angebot	Bestellung	Widerruf	Mängelrüge
					Auftrag
					Bitte
					Reklamation
					Rücktritt
					Vorschlag

Was bewirkt das Ereignis zuerst? Lieferverzug Mängelrüge Zahlungsmahnung

1 Ordne Artikel im Schweizerischen OR zu:

3	6	7	8	9
					Angebot bis Frist gültig
					Unbestelltes zahle ich nicht
					Preislisten sind unverbindlich
					Preis auf Waren ist verbindlich
					Bestelltes muss ich bezahlen
					rechtzeitig widerrufen

2 Ordne Artikel im Schweizerischen OR zu:

107	108	184	363
				Mahngeschäft
				Fixgeschäft
				Kaufvertrag
				Werkvertrag

3 Ordne Artikel im Schweizerischen OR zu:

102	104	191	201	367	368
						Zahlungsverzug
						Verzugszins
						Mängelrüge
						Schadenersatz

4 Bringe in die richtige Reihenfolge (1−9):

Absender

Anrede

Beilagen

Betreff

Datum

Empfänger

Grussformel

Nachricht

Unterschrift

5 Ordne die Adresse (1−3):

Name oder Institution

Ort

Strasse

6 Was schicke ich nie eingeschrieben?

	Beschwerde
	Lieferverzug
	Mängelrüge
	Widerruf
	Zahlungsmahnung

7 Ordne das Datum (1−3):

Jahr

Monat in Buchstaben

Tag

8 Korrekte Betreffzeilen

	haben mindestens zwei Wörter
	beginnen mit dem Wort Betreff
	trennen Leerzeilen von der Anrede
	stehen bei der Grussformel
	sind hervorgehoben
	fassen zusammen

9 Was ist eine gute Betreffzeile?

	Mängelrüge
	Ihre Mängelrüge
	Ihre Mängelrüge vom 28.04.2024
	Betreff: Mängelrüge
	Betrifft: Ihre Mängelrüge
	Betreff: Ihre Mängelrüge vom 28.04.2024
	Antwort
	Antwort auf Ihre Mängelrüge

10 Ordne zu:

Anrede	Grussformel
		Alles Gute
		Freundliche Grüsse
		Guten Tag
		Hallo
		Herzliche Grüsse
		Sehr geehrte(r)

11 Ordne das Briefende (1−3):

Grussformel

Firmenname

Unterschrift

12 Ordne zu:

Leistungsbeschreibung	Einzelpreis	Gesamtpreis	Rabatt	Steuer
					Dienstleistung oder Produkt
					Menge oder Dauer
					Artikelnummer
					Aufwand pro Einheit
					Menge mal Aufwand pro Einheit
					Preisnachlass
					Abgabe

13 Ordne die Reihenfolge (1−6):

Beschreibung

Einzelpreis

Mehrwertsteuer

Menge

Summe

Zwischensumme

14 Ordne das Vorgehen beim Serienbrief (1−7):

Adressliste erstellen

Briefvorlage erstellen

Brief mit Adressliste verknüpfen

Platzhalter einfügen

Briefe individualisieren

Als PDF speichern

Briefe versenden

15 Ordne zu:

Prompt	Makro	Entwicklertools	VBA
				„Schreibe mir ein Makro, das ein Worddokument nach DIN 5008 erstellt.“
				Sub Erstelle_DIN_5008_Dokument()
				Datei → Optionen → Menüband anpassen → Hauptregisterkarten →
				Programmiersprache von Microsoft Office-Programmen

16 Bringe in die richtige Reihenfolge (1−10):

KI-Chatbot öffnen

Prompt eingeben

Makro kopieren

Word öffnen

Entwicklertools auswählen

Visual Basic öffnen

Modul einfügen

Makro einfügen

Sub/UserForm ausführen

Worddokument anpassen

17 Bringe in die richtige Reihenfolge (1−4):

Aufzeichnung beenden

Dokument bearbeiten

Makro aufzeichnen

Word öffnen

18 Erstellt folgendes Makro ein Worddokument nach DIN 5008?

Sub Geschäftsbrief()
   Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
   Selection.Style = ActiveDocument.Styles("Kein Leerraum")
   Selection.Font.Name = "Arial"
   Selection.Font.Size = 12
   With Selection.PageSetup
       .LineNumbering.Active = False
       .Orientation = wdOrientPortrait
       .TopMargin = CentimetersToPoints(3)
       .BottomMargin = CentimetersToPoints(3)
       .LeftMargin = CentimetersToPoints(3)
       .RightMargin = CentimetersToPoints(1.5)
       .Gutter = CentimetersToPoints(0)
       .HeaderDistance = CentimetersToPoints(1.25)
       .FooterDistance = CentimetersToPoints(1.25)
       .PageWidth = CentimetersToPoints(21)
       .PageHeight = CentimetersToPoints(29.7)
       .FirstPageTray = wdPrinterDefaultBin
       .OtherPagesTray = wdPrinterDefaultBin
       .SectionStart = wdSectionNewPage
       .OddAndEvenPagesHeaderFooter = False
       .DifferentFirstPageHeaderFooter = False
       .VerticalAlignment = wdAlignVerticalTop
       .SuppressEndnotes = False
       .MirrorMargins = False
       .TwoPagesOnOne = False
       .BookFoldPrinting = False
       .BookFoldRevPrinting = False
       .BookFoldPrintingSheets = 1
       .GutterPos = wdGutterPosLeft
   End With
   Selection.TypeText Text:="Absendername"
   Selection.TypeParagraph
   Selection.TypeText Text:="Absenderstrasse"
   Selection.TypeParagraph
   Selection.TypeText Text:="Absenderort"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Einschreiben"
   Selection.TypeParagraph
   Selection.TypeText Text:="Empfängername"
   Selection.MoveUp Unit:=wdLine, Count:=2
   Selection.MoveRight Unit:=wdCharacter, Count:=1
   Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
   Selection.Font.Bold = wdToggle
   Selection.MoveDown Unit:=wdLine, Count:=2
   Selection.MoveRight Unit:=wdCharacter, Count:=23
   Selection.TypeParagraph
   Selection.TypeText Text:="Empfängerstrasse"
   Selection.TypeParagraph
   Selection.TypeText Text:="Empfängerort"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.InsertDateTime DateTimeFormat:="d. MMMM yyyy", InsertAsField:= _
       False, DateLanguage:=wdSwissGerman, CalendarType:=wdCalendarWestern, _
       InsertAsFullWidth:=False
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Betreffzeile"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Sehr geehrte(r)"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.MoveUp Unit:=wdLine, Count:=5
   Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
   Selection.Font.Bold = wdToggle
   Selection.MoveDown Unit:=wdLine, Count:=5
   Selection.TypeText Text:="Kontaktbotschaft"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Kernbotschaft"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Schlussbotschaft"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Freundliche Grüsse"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Absenderfirma"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Absendername, Absenderfunktion"
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeParagraph
   Selection.TypeText Text:="Beilage"
End Sub

	Ja
	Nein