Leere Zeilen in Textfeld löschen

[tomul]

Hallo

Ich habe mir eine Adressdatenbank gemacht und ein Textfeld erstellt, das mir die Adresse direkt ausgibt.
Diese kann ich dann per Button in den Zwischenspeicher legen.
Soweit so gut...

Leider fehlen bei einigen Adressen am Anfang die Angaben von Firma bzw. Abteilung.
Wie kann ich nun diese Zeilen automatisch löschen bzw ausblenden?
Die "Titel"-Angabe am Anganf bekomme ich durch Glätten weg, aber eben nicht ganze Zeilen.
Natürlich kann ich diese auch manuell löschen wenn ich die Adresse in Word einfüge aber das muss schöner gehen

Hier mal der bisherige Inhalt des Textfeldes:

Code [Auswählen] Erweitern

=[Firma] & Zchn$(13) & Zchn$(10) & [Abteilung] & Zchn$(13) & Zchn$(10) & [Anrede] & " " & [Berufsbezeichnung] & Zchn$(13) & Zchn$(10) & [Titel] & " " & [Vorname] & " " & [Nachname] & Zchn$(13) & Zchn$(10) & [Straße] & Zchn$(13) & Zchn$(10) & "" & Zchn$(13) & Zchn$(10) & [PLZ] & " " & [Ort]

Im besten Fall sieht das dann so aus:
Firma
Abteilung
Herrn Rechtsanwalt
Dr. Max Mustermann
Maxallee 1

10000 Maxhausen


Nebenbei.... die leere Zeile zwischen Straße und PLZ/Ort muss bleiben.

Ich hoffe Ihr könnt mir helfen. So langsam verzweifel ich. Ich muss allerdings zugeben dass ich nicht so wirklich die Ahnung von VBA habe, aber ich lerne gerne dazu.

Danke schonmal im voraus für Tipps und Hilfe

[DF6GL]

Hallo,

etwa so:

Code [Auswählen] Erweitern

=([Firma] + Zchn$(13) + Zchn$(10)) & ([Abteilung] + Zchn$(13) + Zchn$(10)) & [Anrede] & " " & [Berufsbezeichnung] & Zchn$(13) & Zchn$(10) & [Titel] & " " & [Vorname] & " " & [Nachname] & Zchn$(13) & Zchn$(10) & [Straße] & Zchn$(13) & Zchn$(10) & "" & Zchn$(13) & Zchn$(10) & [PLZ] & " " & [Ort]

[tomul]

Die Felder in Klammern zu setzen reicht tatsächlich aus und ich verzweifelte schon fast.

Vielen herzlichen Dank. Ich hab wieder mal was gelernt 

[DF6GL]

Hallo,

nein, der Knackpunkt ist der "+"-Operator....

[tomul]

Ups..... den hab ich ja ganz übersehen