Briefanrede

[mike6]

Hallo,


über das folgende Makro


******************************************************************************************************
' Anrede
If oDialog.getControl("txt_anrede").text="Herrn" Then
PutValue("Anrede", "Sehr geehrter Herr " + oDialog.getControl("txt_zuname").text + ",")

ElseIf oDialog.getControl("txt_anrede").text="Frau" Then
PutValue("Anrede", "Sehr geehrte Frau " + oDialog.getControl("txt_zuname").text + ",")

Else
PutValue("Anrede", "Sehr geehrte Damen und Herren,")
End If

******************************************************************************************************


erreiche ich, das bei der Briefanrede

Herrn, in der Anrede " sehr geehrter Herr "Name" erscheint.

bei der Briefanrede

Frau, in der Anrede " sehr geeehrte Frau "Name" erscheint.



Wie erweitere ich das Makro, dass bei der Briefanrede "Eheleute"

sehr geehrte Frau "Name", sehr geehrter Herr "Name" erscheint ?



mfg
mike6

[ykcim]

Einfach ein weiteres elseif anhängen.

elseif oDialog.getControl("txt_anrede").text="Eheleute" Then ...

oder

"select ... case" verwenden.

mfg
Michael

[mike6]

Hallo,

vielen Dank für den Tipp.

wie bereits unter

viewtopic.php?t=5722"

angeregt, hier der komplette Code.


'********************************************************
If oDialog.getControl("txt_anrede").text="Herrn" Then
PutValue("Anrede", "Sehr geehrter Herr " + oDialog.getControl("txt_zuname").text + ",")

ElseIf oDialog.getControl("txt_anrede").text="Frau" Then
PutValue("Anrede", "Sehr geehrte Frau " + oDialog.getControl("txt_zuname").text + ",")

ElseIf oDialog.getControl("txt_anrede").text="Eheleute" Then
PutValue("Anrede", "Sehr geehrte Frau " + oDialog.getControl("txt_zuname").text + ", sehr geehrter Herr " + oDialog.getControl("txt_zuname").text ,

Else
PutValue("Anrede", "Sehr geehrte Damen und Herren,")
End If
'********************************************************


mfg
mike6