title image


Smiley Re: Bitte in VBA übersetzen ... funkt leider bei mir nicht
Hi!Anbei nochmals der CodePrivate Sub Adressanrede_AfterUpdate() If Left(Me.Adressanrede, 4) = "Herr" Then Me.Briefanrede = "Sehr geehrter" ElseIf Left(Me.Adressanrede, 4) = "Frau" Then Me.Briefanrede = "Sehr geehrte" Else Me.Briefanrede = "Liebe(r)" End IfEnd SubDu mußt beim Feld Adressanrede beim Ereignis nach Aktualisierung eine Ereignisprozedur erstellen.Durch die Einschränkung auf 4 Zeichen = left(..,4) nimmst du nur 4 Buchstaben zum Vergleich, alles was nachher folgt wie Dr, Dipl.... ist egal. lg Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: