Postalische Ergänzung

2 Antworten zu dieser Frage

1. Antwort von nach einer Stunde 0 hilfreich

   Re: Postalische Ergänzung

   Moin Moin,
   
   kein Wunder, dass du bei dem Gewuschel den Überblick verlierst.
   
   Keine Ahnung wo du das abgeschrieben hast, aber es muss schon alt sein.
   Zchn(13)+Zchn(10)wird heutzutage durch die Systemvariable vbCRLF ersetzt.
   
   Ein Unterstrich _ am Ende der Zeile führt diese in der nächsten fort!
   
   aus =Wenn(Glätten("" & [Anrede])="";"";[Anrede] & " ") & Zchn(13)+Zchn(10)
   wird
   =[Anrede] & vbCRLF & _
   
   sorry, aber der Rest ist überflüssig!!
   
   also kommen wir zur nächste Zeile: Wenn(Glätten("" & [Vorname] & " ")="";"";[Vorname] & " ") & :Wenn(Glätten("" & [Nachname])="";"";[Nachname])
   Den Vornamen zu überprüfen macht Sinn, aber den Nachnamen? und wo ist der Zeilenumbruch geblieben? Mein Vorschlag:
   
   Wenn(Glätten("" & [Vorname] & " ")="";"";[Vorname] & " ") & [Nachname] & vbCRLF & _
   
   so nun haben wir zwei Adresszeilen erzeugt:
   =[Anrede] & vbCRLF & _
   Wenn(Glätten("" & [Vorname] & " ")="";"";[Vorname] & " ") & [Nachname] & vbCRLF & _
   
   wenn du nun mit den anderen Zeilen genau so verfährst, sollte ein vernünftiges Ergebnis herauskommen.
   
   Grüße aus Rostock
   Wolfgang
   (Netwolf)
   

   • Antwort von nach einem Tag 0 hilfreich

     Re^2: Postalische Ergänzung

     Hallo,
     
     
     befürchte, dass der Ausdruck im Steuerelementinhalt eines Textfeldes steht, dann greifen VBA-Konstanten und VBA-Editor-Metazeichen nicht.
     
     
     Vermutlich muss es so lauten:
     
     
     .... & Wenn(Glätten("" & [Post Erg 1])="";"";Zchn(13) & Zchn(10)& " " & [Post Erg 1] & Zchn(13) & Zchn(10)) & ....
     
     Gruß
     Franz, DF6GL