Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bedingte Textverkettung mit Trennzeichen
zurück: Function: Abfrage in externen DB ausführen Combifeld füllen weiter: Einheitliche Datumskonvertierung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
jpa
Access/Excel VBA-Programmierer


Verfasst am:
30. Sep 2009, 15:09
Rufname: Jean Pierre
Wohnort: Frankfurt

Bedingte Textverkettung mit Trennzeichen - Bedingte Textverkettung mit Trennzeichen

Nach oben
       Version: Office XP (2002)

Häufig müssen Texte mit Trennzeichen Verkettet werden:
[Nachname] & ", " & [Vorname] -> "Allain, Jean Pierre"

Sollte allerdings das Feld [Vorname] null sein, erhält man folgendes: "Allain, "
Mit IF oder IIF kann man diesen Fall abfangen.

Bei längeren Verkettung wie diese:
[Anrede] & " " & [Titel] & " " & [Vorname] & " " & [Nachname]
wird es schnell unübersichtlich.

Daher habe ich folgende Function dafür erstellt:
Code:
Public Function StrConcatDelim(ParamArray Text()) As String
    Dim tmp As String, i As Long
   
    tmp = Text(0) & ""
    For i = 1 To UBound(Text) Step 2
        If tmp = "" Or Text(i + 1) & "" = "" Then
            tmp = tmp & Text(i + 1)
          Else
            tmp = tmp & Text(i) & Text(i + 1)
        End If
    Next i
    StrConcatDelim = tmp
End Function
Aufrufbeispiel:
Code:
    Dim sText As String
   
    sText = StrConcatDelim([Anrede], " ", [Titel], " ", [Vorname], " ", [Nachname])
    sText = StrConcatDelim([Nachname], ", ", [Vorname])
Beim Aufruf der Funktion ist darauf zu achten, mindestens 3 Parameter oder 5 oder 7 oder 9 usw.. zu übergeben.
_________________
Gruß
JPA
Willi Wipp
Moderator


Verfasst am:
30. Apr 2010, 02:50
Rufname:
Wohnort: Raum Wiesbaden


AW: Bedingte Textverkettung mit Trennzeichen - AW: Bedingte Textverkettung mit Trennzeichen

Nach oben
       Version: Office XP (2002)

{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingte Formatierung 1 Nils13 208 18. Mai 2011, 11:44
KlausMz Bedingte Formatierung
Keine neuen Beiträge Access Tabellen & Abfragen: Daten zusammenfassen Trennzeichen nur wenn zweiter Datensatz 3 wwwchrisde 611 18. Feb 2010, 10:14
wwwchrisde Daten zusammenfassen Trennzeichen nur wenn zweiter Datensatz
Keine neuen Beiträge Access Formulare: Bedingte Formatierung funktioniert nicht 3 Sebi1982 1238 17. Sep 2007, 19:34
jens05 Bedingte Formatierung funktioniert nicht
Keine neuen Beiträge Access Formulare: Bedingte Formatierung 1 Imo-Parceval 509 14. Sep 2007, 17:03
JörgG Bedingte Formatierung
Keine neuen Beiträge Access Formulare: Bedingte Formatierung in Abhänigkeit vom aktuellen Monat 4 speedy666 504 13. Sep 2007, 10:53
speedy666 Bedingte Formatierung in Abhänigkeit vom aktuellen Monat
Keine neuen Beiträge Access Formulare: Bedingte Formatierung? (anderes Feld als Kriterium) 2 Avathar 2027 12. Jul 2007, 09:48
Avathar Bedingte Formatierung? (anderes Feld als Kriterium)
Keine neuen Beiträge Access Tabellen & Abfragen: Trennzeichen in Memofeld 17 Vengeance Angel 1637 26. Jun 2007, 12:46
Vengeance Angel Trennzeichen in Memofeld
Keine neuen Beiträge Access Formulare: Bedingte Formatierung bei leerem Feldinhalt 1 sebi1981 709 27. März 2007, 14:00
blicki Bedingte Formatierung bei leerem Feldinhalt
Keine neuen Beiträge Access Formulare: mehr als 3 bedingte Formatierungen 3 tk25693 1015 28. Feb 2007, 19:21
Nouba mehr als 3 bedingte Formatierungen
Keine neuen Beiträge Access Formulare: bedingte Formatierung 1 thw 607 17. Jan 2007, 12:43
thw bedingte Formatierung
Keine neuen Beiträge Access Formulare: Bedingte Formatierung 3 heinz-wolfgang 903 21. Dez 2006, 12:14
Willi Wipp Bedingte Formatierung
Keine neuen Beiträge Access Formulare: Bedingte Formatierung Steuerelement-Code 2 LennyM 1011 11. Jul 2006, 14:34
LennyM Bedingte Formatierung Steuerelement-Code
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe