Feldfunktion: Syntax "If/Then/Else" nur mit Feldern

Hallo Joshua,

blende per Alt+F9 die Feldfunktionen ein.

(Überlege, ob du den Einheitspreis auf Null oder auch Leer überprüfen musst - ist in deiner Fragestellung widersprüchlich.)

Verwende den Assistenten für die Regeln und erstelle die erste Bedingung:

WENN Einheitspreis <>0

DANN *eh*

SONST *ph*

Beende die Regel. Auf diese Weise musst du dir über die Syntax keine Gedanken machen.

Markiere die Zeichenfolge *eh* und füge stattdessen das Seriendruckfeld Einheitspreis ein.

Markiere *ph* und ersetze auch diese Zeichenfolge durch das entsprechende Seriendruckfeld.

Per Alt+F9 kannst du die Feldfunktionen wieder ausblenden. In der Vorschau auf den fertigen Seriendruck siehst du die Ergebnisse.

Grundsätzlich ist es einfacher, Berechnungen bereits in der Datenquelle zur Verfügung zu stellen.

Viele Grüße

Lisa

Dass die F9-Tastenkürzel nicht funktionieren, kann bedeuten, dass sie von einem anderen Programm für eigene Zwecke verbogen wurden.

Die Wirkung von Alt+F9 erhältst Du auch, indem Du ein Feld rechtsklickst und
Feldfunktionen ein/aus wählst.

Wenn/Dann gibt es in Word nicht, hier arbeitet man mit
IF; auch beim Vergleich von Feldern.

{IF {Name}="" "{Unternehmen}" ""}

Gruß

G.O.

Hallo,



es funktioniert bei mir nicht. Erfreulich ist schon mal, dass die alte Syntax weiter funktioniert (mit Semikolons).

Ich habe als Test drei Funktionen in einem neuen Dokument eingefügt. Die ersten beiden Funktionen geben korrekt den then- und else-Zweig der IF-Funktion zurück.

Die dritte Funktion muss nur in den then-Zweig (99, wie in der ersten Funktion) scheint aber vorab schon die fehlerhafte Berechnung auszuführen. Warum ist das nur bei mir so? Ist das eine Option?

Funktion
Ergebnis

{ =IF(true;99;1/100) }
99

{ =IF(false;99;1/100) }
0,01

{ =IF(true;99;1/0) }
!Division durch Null

Viele Grüße

Leider nicht.

Man muss zuerst ein 3D-Säulen oder Balkendiagramm erstellen, erst dann kann man jede Datenreihe einzeln in eine Zylinder- oder Pyramidenform ändern.

https://support.office.com/de-de/ar...77-26c6-4f43-be6d-16718dd75ffa#__toc342560930

BTW, das gilt auch für 2016.

Das ist natürlich schade wenn man das öfters braucht, und schon braucht man ein kleines Helferlein-Makro was ein normales Balken oder Säulendiagramm in Pyramide oder Kegel umwandelt.

Andreas.

Option Explicit

Sub ChangeActiveChartTypeToPyramid()

ChangeActiveChartTypeToPyramidOrCone True

End Sub

Sub ChangeActiveChartTypeToCone()

ChangeActiveChartTypeToPyramidOrCone False

End Sub

Private Sub ChangeActiveChartTypeToPyramidOrCone(ByVal Pyramid As Boolean)

Select Case ActiveChart.ChartType

Case xlBarClustered, xl3DBarClustered, xlCylinderBarClustered

If Pyramid Then

ActiveChart.ChartType = xlPyramidBarClustered

Else

ActiveChart.ChartType = xlConeBarClustered

End If

Case xlBarStacked, xl3DBarStacked, xlCylinderBarStacked

If Pyramid Then

ActiveChart.ChartType = xlPyramidBarStacked

Else

ActiveChart.ChartType = xlConeBarStacked

End If

Case xlBarStacked100, xl3DBarStacked100, xlCylinderBarStacked100

If Pyramid Then

ActiveChart.ChartType = xlPyramidBarStacked100

Else

ActiveChart.ChartType = xlConeBarStacked100

End If

Case xlColumn, xl3DColumn, xlCylinderCol

If Pyramid Then

ActiveChart.ChartType = xlPyramidCol

Else

ActiveChart.ChartType = xlConeCol

End If

Case xlColumnClustered, xl3DColumnClustered, xlCylinderColClustered

If Pyramid Then

ActiveChart.ChartType = xlPyramidColClustered

Else

ActiveChart.ChartType = xlConeColClustered

End If

Case xlColumnStacked, xl3DColumnStacked, xlCylinderColStacked

If Pyramid Then

ActiveChart.ChartType = xlPyramidColStacked

Else

ActiveChart.ChartType = xlConeColStacked

End If

Case xlColumnStacked100, xl3DColumnStacked100, xlCylinderColStacked100

If Pyramid Then

ActiveChart.ChartType = xlPyramidColStacked100

Else

ActiveChart.ChartType = xlConeColStacked100

End If

End Select

End Sub

Dim oField As Field
Dim oSection As Section
Dim oHeader As HeaderFooter
Dim oFooter As HeaderFooter

For Each oSection In ActiveDocument.Sections

For Each oHeader In oSection.Headers
If oHeader.Exists Then
For Each oField In oHeader.Range.Fields
If oField.Type = wdFieldPage Then
Else
oField.Unlink
End If
Next oField
End If
Next oHeader

For Each oFooter In oSection.Footers
If oFooter.Exists Then
For Each oField In oFooter.Range.Fields

If oField.Type = wdFieldPage Then
Else
oField.Unlink
End If
Next oField
End If
Next oFooter

Next oSection